(Xojo Plugin) Download Unread Email from IMAP Mailbox

Download unread email messages from an IMAP mailbox.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim imap As New Chilkat.Imap

// Connect to an IMAP server.
// Use TLS
imap.Ssl = True
imap.Port = 993
Dim success As Boolean
success = imap.Connect("imap.someMailServer.com")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Login
success = imap.Login("admin@chilkatsoft.com","myPassword")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> True) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

Dim messageSet As Chilkat.MessageSet
Dim fetchUids As Boolean
fetchUids = True

// Find emails marked as seen or not already seen:
Dim seenSearch As String
seenSearch = "SEEN"
Dim notSeenSearch As String
notSeenSearch = "NOT SEEN"

// Get the set of unseen message UIDs
messageSet = imap.Search(notSeenSearch,fetchUids)
If (imap.LastMethodSuccess = False) Then
    System.DebugLog(imap.LastErrorText)
    Return
End If

// Fetch the unseen emails into a bundle object:
Dim bundle As Chilkat.EmailBundle
bundle = imap.FetchBundle(messageSet)
If (imap.LastMethodSuccess = False) Then

    System.DebugLog(imap.LastErrorText)
    Return
End If

// Display the Subject and From of each email.
Dim i As Int32
i = 0
Dim numEmails As Int32
numEmails = bundle.MessageCount
While i < numEmails
    Dim email As Chilkat.Email
    email = bundle.GetEmail(i)

    System.DebugLog(email.GetHeaderField("Date"))
    System.DebugLog(email.Subject)
    System.DebugLog(email.From)
    System.DebugLog("--")

    i = i + 1
Wend

// Disconnect from the IMAP server.
success = imap.Disconnect()