Read All Mail in IMAP Mailbox

This VB example program reads all the email from an IMAP mailbox.

Private Sub Command1_Click()

    ' Create an object, connect to the IMAP server, login,
    ' and select a mailbox.
    Dim imap As New ChilkatImap
    imap.UnlockComponent "UnlockCode"
    imap.Connect "mail.my_imap_server.com"
    imap.Login "login", "password"
    imap.SelectMailbox "Inbox"
    
    ' Get a message set containing all the message IDs
    ' in the selected mailbox.
    Dim msgSet As messageSet
    Set msgSet = imap.Search("ALL", 1)
    
    ' Fetch all the mail into a bundle object.
    Dim bundle As New ChilkatEmailBundle2
    Set bundle = imap.FetchBundle(msgSet)
    
    ' Loop over the bundle and display the From and Subject.
    Dim email As ChilkatEmail2
    For i = 0 To bundle.MessageCount - 1
        Set email = bundle.GetEmail(i)
        List1.AddItem email.From & ": " & email.Subject
    Next
    
    ' Save the email to an XML file
    bundle.SaveXml "bundle.xml"
    
    ' Disconnect from the IMAP server.
    ' This example leaves the email on the IMAP server.
    imap.Disconnect
    
    
End Sub