List IMAP Mailboxes

VB6 sample program to list IMAP mailboxes.

Private Sub Command1_Click()

    ' Create an object, connect to the IMAP server, and login
    Dim imap As New ChilkatImap
    imap.UnlockComponent "UnlockCode"
    imap.Connect "www.mymailserver.com"
    imap.Login "login", "password"
    
    ' Get the names of all the mailboxes.
    Dim mboxes As mailboxes
    Set mboxes = imap.ListMailboxes("", "*")
    
    For i = 0 To mboxes.Count - 1
        List1.AddItem mboxes.GetName(i)
    Next
    
    ' Disconnect from the IMAP server.
    imap.Disconnect
    
    
End Sub