Read New / Unseen IMAP Email

VB6 sample code showing how to read only the unseen / new email from an IMAP server.

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 "www.mymailserver.com"
    imap.Login "login", "password"
    imap.SelectMailbox "Inbox"
    
    ' Get a message set containing all the unseen message IDs
    ' in the selected mailbox.
    Dim msgSet As messageSet
    'Set msgSet = imap.Search("UNSEEN", 1)
    
    ' Here are some other helpful searches:
    
    ' Emails that have already been seen.
    'Set msgSet = imap.Search("SEEN", 1)

    ' Emails that have already been answered.
    'Set msgSet = imap.Search("ANSWERED", 1)
    
    ' Emails marked for deletion.
    'Set msgSet = imap.Search("DELETED", 1)
    
    ' Draft emails.
    'Set msgSet = imap.Search("DRAFT", 1)
    
    ' Emails with "scott" found anywhere in the FROM header field.
    'Set msgSet = imap.Search("FROM scott", 1)
    
    ' Emails larger than 10K
    'Set msgSet = imap.Search("LARGER 10000", 1)
    
    ' Emails smaller than 10K
    'Set msgSet = imap.Search("SMALLER 10000", 1)
    
    ' Emails sent on a specific day.
    ' Date format is day-month-year
    ' Month can be: Jan, Feb, Mar, Apr, May, Jun,
    ' Jul, Aug, Sep, Oct, Nov, Dec
    'Set msgSet = imap.Search("SENTON 27-Aug-2003", 1)
    
    ' Emails sent after a specific day.
    'Set msgSet = imap.Search("SENTSINCE 27-Aug-2003", 1)

    ' Emails sent before a specific day.
    'Set msgSet = imap.Search("SENTBEFORE 27-Aug-2003", 1)

    ' Emails having V1agra anywhere in the subject.
    'Set msgSet = imap.Search("SUBJECT V1agra", 1)
    
    ' Emails having V1agra anywhere in the header or body.
    'Set msgSet = imap.Search("TEXT V1agra", 1)
    
    ' Emails having "support" in the TO header field.
    'Set msgSet = imap.Search("TO support", 1)
    
    ' Emails that are unanswered
    'Set msgSet = imap.Search("UNANSWERED", 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