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

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

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