Hello
I use VB4Android 3.00 and Net 1.37 with the progamm POP3 for access personal email
It's never possible to go into the sub : POP_ListCompleted
I ve configure my gmail with Pop protocol
The prograam isat the end of my message.
Sorry for may english
Thank you very much for your response
gragey
Sub Process_Globals
Dim pop As POP3
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Log ("Début Init")
pop.UseSSL = True
pop.Initialize("pop.gmail.com", 995, "[email protected]", "password", "pop")
pop.UseSSL = True
End If
pop.ListMessages
End Sub
Sub POP_ListCompleted (Success As Boolean, Messages As Map)
If Success = False Then
Log(LastException.Message)
Else
'download all messages
'change last parameter to True if you want to delete the messages from the server
For i = 0 To Messages.Size - 1
pop.DownloadMessage(Messages.GetKeyAt(i), False)
Next
End If
pop.Close
End Sub
Sub POP_DownloadCompleted (Success As Boolean, MessageId As Int, MessageText As String)
If Success = False Then
Log(LastException.Message)
Else
Log(MessageId)
'Parse the mail
Dim m As Message
m = MailParser.ParseMail(MessageText, File.DirRootExternal)
Log(m)
End If
End Sub
Sub Activity_Pause(UserClosed As Boolean)
End Sub
Sub Activity_Resume
End Sub
I use VB4Android 3.00 and Net 1.37 with the progamm POP3 for access personal email
It's never possible to go into the sub : POP_ListCompleted
I ve configure my gmail with Pop protocol
The prograam isat the end of my message.
Sorry for may english
Thank you very much for your response
gragey
Sub Process_Globals
Dim pop As POP3
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Log ("Début Init")
pop.UseSSL = True
pop.Initialize("pop.gmail.com", 995, "[email protected]", "password", "pop")
pop.UseSSL = True
End If
pop.ListMessages
End Sub
Sub POP_ListCompleted (Success As Boolean, Messages As Map)
If Success = False Then
Log(LastException.Message)
Else
'download all messages
'change last parameter to True if you want to delete the messages from the server
For i = 0 To Messages.Size - 1
pop.DownloadMessage(Messages.GetKeyAt(i), False)
Next
End If
pop.Close
End Sub
Sub POP_DownloadCompleted (Success As Boolean, MessageId As Int, MessageText As String)
If Success = False Then
Log(LastException.Message)
Else
Log(MessageId)
'Parse the mail
Dim m As Message
m = MailParser.ParseMail(MessageText, File.DirRootExternal)
Log(m)
End If
End Sub
Sub Activity_Pause(UserClosed As Boolean)
End Sub
Sub Activity_Resume
End Sub