Fetch a Set of POP3 Messages by UIDL

See more POP3 Examples

Demonstrates the Chilkat MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are listed in a StringTable and appends them to an EmailBundle. The arguments are the UIDL StringTable, headersOnly, numBodyLines, and the EmailBundle. This example fetches two specific messages by UIDL.

Dim success As Long
success = 0

'  Demonstrates the MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are
'  listed in a StringTable and appends them to an EmailBundle.  The arguments are the UIDL
'  StringTable, headersOnly, numBodyLines, and the EmailBundle.  The messages remain on the
'  server.

Dim mailman As New ChilkatMailMan

'  Configure the POP3 server connection.
mailman.MailHost = "pop.example.com"
mailman.MailPort = 995
mailman.PopSsl = 1
mailman.PopUsername = "user@example.com"
mailman.PopPassword = "myPassword"

'  Build the set of UIDLs to fetch.
Dim uidls As New ChilkatStringTable
success = uidls.Append("0000000123abcdef")
success = uidls.Append("0000000124abcdef")

'  Fetch the listed messages (full bodies) into a bundle.
'  headersOnly=0 (fetch the entire message).
'  Note: numBodyLines only applies when headersOnly is 1 (it sets how many lines of the
'  body to include along with the headers).  When headersOnly is 0, the entire message
'  is fetched and numBodyLines is ignored.
Dim bundle As New ChilkatEmailBundle

success = mailman.FetchUidlSet(uidls,0,0,bundle)
If (success = 0) Then
    Debug.Print mailman.LastErrorText
    Exit Sub
End If

Dim n As Long
n = bundle.MessageCount
Debug.Print "Fetched " & n & " messages."

Dim email As New ChilkatEmail
Dim i As Long
For i = 0 To n - 1
    success = bundle.EmailAt(i,email)
    Debug.Print email.Subject
Next

'  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
'  connects and authenticates -- using the property settings above -- whenever a server
'  operation requires it.  Calling the explicit connect/authenticate methods can still be
'  helpful to determine whether a failure occurs while connecting or while authenticating.