APLICACAO WINDOWS SERVICE

LEONARDOSILVEIR 27/08/2011 01:05:25
#382608

Pessoal, precisa da ajuda de vocês. Montei uma função onde para ficar verificando uma caixa de email imap. A partir dessa função criei um windows service para rodar automatiamente esse verificaçao para mim. Porém qndo tento rodar no windows service ele nao execute, quando rodo num formualrio dá certo, peço ajuda a entender o pq está dando errado.

Protected Overrides Sub OnStart(ByVal args() As String)
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Call VerificaEmail()
End Sub

Public Sub VerificaEmail()

Dim imap As New Imap()

If Imap.Connected = False Then
Imap.Connect([Ô]imap.gmail.com[Ô], [Ô]993[Ô], True)
Imap.Login([Ô]teste@gmail.com[Ô], [Ô]teste[Ô])
End If
If Imap.Connected = True Then
Imap.SelectInbox()
Dim uids As List(Of Long) = Imap.SearchFlag(Flag.Unseen)

For Each uid As Long In uids
Dim eml As String = Imap.GetMessageByUID(uid)
Dim email As IMail = New MailBuilder().CreateFromEml(eml)

For Each attachment As MimeData In email.Attachments
attachment.Save([Ô]D:    emp\[Ô] + attachment.FileName)
Next

Next
End If
End Sub