(Tcl) Process Large POP3 Mailbox

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set mailman [new_CkMailMan]

CkMailMan_put_MailHost $mailman "pop.example.com"

CkMailMan_put_PopUsername $mailman "myLogin"
CkMailMan_put_PopPassword $mailman "myPassword"

CkMailMan_put_MailPort $mailman 995
CkMailMan_put_PopSsl $mailman 1

# Get the list of UIDLs for all emails in the mailbox.
# sa is a CkStringArray
set sa [CkMailMan_GetUidls $mailman]
if {[CkMailMan_get_LastMethodSuccess $mailman] == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

set numEmails [CkStringArray_get_Count $sa]
if {$numEmails == 0} then {
    puts "Mailbox is empty"
    delete_CkMailMan $mailman
    exit
}

set chunkSize 6

# Download the emails in chunks of 6 emails each.
set chunkBeginIdx 0
set chunkEndIdx [expr $chunkSize - 1]
if {$chunkEndIdx >= $numEmails} then {
    set chunkEndIdx [expr $numEmails - 1]
}

set saChunk [new_CkStringArray]

while {$chunkBeginIdx < $numEmails} {

    puts "$chunkBeginIdx to $chunkEndIdx"

    # Build a chunk of UIDLs.
    CkStringArray_Clear $saChunk
    for {set i $chunkBeginIdx} {$i <= $chunkEndIdx} {incr i} {
        CkStringArray_Append $saChunk [CkStringArray_getString $sa $i]
    }

    # Log the UIDLs in this chunk...
    set chunkStr [CkStringArray_saveToText $saChunk]
    puts "$chunkStr"

    # Download this chunk of email from the POP3 server.
    # bundle is a CkEmailBundle
    set bundle [CkMailMan_FetchMultiple $mailman $saChunk]
    if {[CkMailMan_get_LastMethodSuccess $mailman] == 0} then {
        puts [CkMailMan_lastErrorText $mailman]
        delete_CkMailMan $mailman
        delete_CkStringArray $saChunk
        exit
    }

    puts "Downloaded [CkEmailBundle_get_MessageCount $bundle] emails."
    puts "----"

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

    delete_CkEmailBundle $bundle

    # Get the next chunk...
    set chunkBeginIdx [expr $chunkBeginIdx + $chunkSize]
    set chunkEndIdx [expr $chunkEndIdx + $chunkSize]
    if {$chunkEndIdx >= $numEmails} then {
        set chunkEndIdx [expr $numEmails - 1]
    }

}

delete_CkStringArray $sa


delete_CkMailMan $mailman
delete_CkStringArray $saChunk