(Tcl) POP3 Fetch a Single Email by UIDL

Demonstrates how to fetch a single email by UIDL.

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

# sa is a CkStringArray
set sa [CkMailMan_GetUidls $mailman]
if {[CkMailMan_get_LastMethodSuccess $mailman] == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

# Download each email by UIDL.

set i 0
set numUidls [CkStringArray_get_Count $sa]
while {$i < $numUidls} {
    set uidl [CkStringArray_getString $sa $i]
    puts "$uidl"

    # email is a CkEmail
    set email [CkMailMan_FetchEmail $mailman $uidl]
    if {[CkMailMan_get_LastMethodSuccess $mailman] == 0} then {
        puts [CkMailMan_lastErrorText $mailman]
        delete_CkMailMan $mailman
        exit
    }

    puts [CkEmail_subject $email]
    puts 
    delete_CkEmail $email

    set i [expr $i + 1]
}

delete_CkStringArray $sa


delete_CkMailMan $mailman