(VB.NET) POP3 Fetch Mime Source of Email by UIDL
Demonstrates how to fetch the MIME source of a single email by UIDL. Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean = False
' 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 stUidls As New Chilkat.StringTable
success = mailman.FetchUidls(stUidls)
If (success = False) Then
Debug.WriteLine(mailman.LastErrorText)
Exit Sub
End If
' Download each email as MIME.
Dim bdMime As New Chilkat.BinData
Dim count As Integer = stUidls.Count
Dim i As Integer = 0
While i < count
success = mailman.FetchMimeBd(stUidls.StringAt(i),bdMime)
If (success = False) Then
Debug.WriteLine(mailman.LastErrorText)
Exit Sub
End If
' Do whatever is needed with the MIME contained in bdMime.
i = i + 1
End While
|