(VB.NET) POP3 Fetch a Single Email by UIDL
Demonstrates how to fetch a single email by UIDL.
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim mailman As New Chilkat.MailMan
mailman.MailHost = "pop.example.com"
mailman.PopUsername = "myLogin"
mailman.PopPassword = "myPassword"
mailman.MailPort = 995
mailman.PopSsl = True
Dim sa As Chilkat.StringArray = mailman.GetUidls()
If (mailman.LastMethodSuccess = False) Then
Debug.WriteLine(mailman.LastErrorText)
Exit Sub
End If
' Download each email by UIDL.
Dim uidl As String
Dim i As Integer = 0
Dim numUidls As Integer = sa.Count
While i < numUidls
uidl = sa.GetString(i)
Debug.WriteLine(uidl)
Dim email As Chilkat.Email = mailman.FetchEmail(uidl)
If (mailman.LastMethodSuccess = False) Then
Debug.WriteLine(mailman.LastErrorText)
Exit Sub
End If
Debug.WriteLine(email.Subject)
Debug.WriteLine("")
i = i + 1
End While
|