Read New / Unseen Email

Download VB.NET Project Files and Source Code

VB.NET source code example to read new / unseen email from an IMAP server.

    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 unseen message IDs
        ' in the selected mailbox.
        Dim msgSet As Chilkat.MessageSet
        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 Chilkat.EmailBundle()
        bundle = imap.FetchBundle(msgSet)

        ' Loop over the bundle and display the From and Subject.
        Dim email As Chilkat.Email
        Dim i As Long
        For i = 0 To bundle.MessageCount - 1
            email = bundle.GetEmail(i)
            ListBox1.Items.Add(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

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