Read IMAP Email Flags - Seen, Answered, Deleted, Draft

Download VB.NET Project Files and Source Code

VB.NET source code example to read email from an IMAP server and examine the IMAP flags for Seen, Answered, Deleted, and Draft

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' Create an object, connect to the IMAP server, login,
        ' and select a mailbox.
        Dim imap As New Chilkat.Imap()
        imap.UnlockComponent("UnlockCode")
        imap.Connect("www.mymailserver.com")
        imap.Login("login", "password")
        imap.SelectMailbox("Inbox")

        ' Get a message set containing all the message IDs
        ' in the selected mailbox.
        Dim msgSet As Chilkat.MessageSet
        msgSet = imap.Search("ALL", 1)

        ' Fetch all the mail headers into a bundle object.
        Dim bundle As New Chilkat.EmailBundle()
        bundle = imap.FetchHeaders(msgSet)

        ' Loop over the bundle and display the From and Subject.
        Dim email As Chilkat.Email
        Dim descrip As String
        Dim i As Long
        For i = 0 To bundle.MessageCount - 1

            ' This email object only contains the header because
            ' we fetched the email using FetchHeaders.
            email = bundle.GetEmail(i)

            descrip = "("

            If (imap.GetMailFlag(email, "Seen") = 1) Then
                descrip = descrip & "Seen, "
            Else
                descrip = descrip & "NOT Seen, "
            End If

            If (imap.GetMailFlag(email, "Deleted") = 1) Then
                descrip = descrip & "Marked for Deletion, "
            Else
                descrip = descrip & "NOT Marked for Deletion, "
            End If

            If (imap.GetMailFlag(email, "Answered") = 1) Then
                descrip = descrip & "Answered, "
            Else
                descrip = descrip & "NOT Answered, "
            End If

            If (imap.GetMailFlag(email, "Draft") = 1) Then
                descrip = descrip & "Draft"
            Else
                descrip = descrip & "NOT a Draft"
            End If

            descrip = descrip & ")"

            descrip = descrip & email.From & ": " & email.Subject

            ' We can always synchronize the flags in our local email object
            ' with the current state of the flags for the email on the IMAP server
            ' by calling RefetchMailFlags...
            ' Example: status = imap.RefetchMailFlags(email)

            ListBox1.Items.Add(descrip)
        Next

        ' Disconnect from the IMAP server.
        ' This example leaves the email on the IMAP server.
        imap.Disconnect()

    End Sub

Important: The download for this example does not contain the ChilkatDotNet.dll which
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp