(Tcl) Retrieve UIDL's from POP3 Server

Retrieve a list of UIDLs from a POP3 server. A UIDL is an identifier consisting of 1 to 70 characters in the range 0x21 to 0x7E, which uniquely identifies a messages within a mailbox and persists across sessions.

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"
    set i [expr $i + 1]
}

delete_CkStringArray $sa


delete_CkMailMan $mailman