VB.NET

Fetch a MessageSet into an EmailBundle

Demonstrates the Chilkat Imap.FetchMsgSet method, which downloads the messages identified by a MessageSet and appends them to an EmailBundle. The arguments are headersOnly, the MessageSet, and the EmailBundle (which is not cleared). This example searches for unseen messages and downloads the whole set.

Background: This is the natural pairing with QueryMbx: search to get a MessageSet of matching identifiers, then download exactly those messages in one call. Fetching a set is far more efficient than looping one message at a time, and it returns an EmailBundle you iterate with MessageCount and EmailAt. Pass headersOnly = true to pull just headers for a fast preview list.

Chilkat VB.NET Downloads

Download Chilkat for VB.NET

VB.NET

Dim success As Boolean = False

'  Demonstrates the Imap.FetchMsgSet method, which downloads the messages identified by a
'  MessageSet and appends them to an EmailBundle.  The 1st argument is headersOnly, the 2nd
'  is the MessageSet, and the 3rd is the EmailBundle (which is not cleared).

Dim imap As New Chilkat.Imap

imap.Ssl = True
imap.Port = 993

success = imap.Connect("imap.example.com")
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If

success = imap.Login("user@example.com","myPassword")
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


success = imap.SelectMailbox("Inbox")
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


'  Find the messages to download (here, the unseen messages by UID).
Dim msgSet As New Chilkat.MessageSet
success = imap.QueryMbx("UNSEEN",True,msgSet)
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


'  Download the messages in the set (full bodies) into a bundle.
Dim bundle As New Chilkat.EmailBundle
success = imap.FetchMsgSet(False,msgSet,bundle)
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


Dim n As Integer = bundle.MessageCount
Debug.WriteLine("Fetched " & n & " messages.")
Dim email As New Chilkat.Email
Dim i As Integer
For i = 0 To n - 1
    success = bundle.EmailAt(i,email)
    Debug.WriteLine(email.Subject)
Next

success = imap.Disconnect()
If (success = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If