(Xojo Plugin) Process Large POP3 Mailbox

Demonstrates how to read email from a mailbox that may contain a large number of emails.

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

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

Dim mailman As New Chilkat.MailMan

mailman.MailHost = "pop.example.com"

mailman.PopUsername = "myLogin"
mailman.PopPassword = "myPassword"

mailman.MailPort = 995
mailman.PopSsl = True

// Get the list of UIDLs for all emails in the mailbox.
Dim sa As Chilkat.StringArray
sa = mailman.GetUidls()
If (mailman.LastMethodSuccess = False) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

Dim i As Int32
Dim numEmails As Int32
numEmails = sa.Count
If (numEmails = 0) Then
    System.DebugLog("Mailbox is empty")
    Return
End If

Dim chunkSize As Int32
chunkSize = 6

// Download the emails in chunks of 6 emails each.
Dim chunkBeginIdx As Int32
chunkBeginIdx = 0
Dim chunkEndIdx As Int32
chunkEndIdx = chunkSize - 1
If (chunkEndIdx >= numEmails) Then
    chunkEndIdx = numEmails - 1
End If

Dim saChunk As New Chilkat.StringArray
While (chunkBeginIdx < numEmails)

    System.DebugLog(Str(chunkBeginIdx) + " to " + Str(chunkEndIdx))

    // Build a chunk of UIDLs.
    saChunk.Clear 
    For i = chunkBeginIdx To chunkEndIdx
        Dim success As Boolean
        success = saChunk.Append(sa.GetString(i))
    Next

    // Log the UIDLs in this chunk...
    Dim chunkStr As String
    chunkStr = saChunk.SaveToText()
    System.DebugLog(chunkStr)

    // Download this chunk of email from the POP3 server.
    Dim bundle As Chilkat.EmailBundle
    bundle = mailman.FetchMultiple(saChunk)
    If (mailman.LastMethodSuccess = False) Then
        System.DebugLog(mailman.LastErrorText)
        Return
    End If

    System.DebugLog("Downloaded " + Str(bundle.MessageCount) + " emails.")
    System.DebugLog("----")

    // Process the bundle...
    // (your application's processing code goes here...)

    // Get the next chunk...
    chunkBeginIdx = chunkBeginIdx + chunkSize
    chunkEndIdx = chunkEndIdx + chunkSize
    If (chunkEndIdx >= numEmails) Then
        chunkEndIdx = numEmails - 1
    End If

Wend