Fetch a Set of POP3 Messages by UIDL

See more POP3 Examples

Demonstrates the Chilkat MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are listed in a StringTable and appends them to an EmailBundle. The arguments are the UIDL StringTable, headersOnly, numBodyLines, and the EmailBundle. This example fetches two specific messages by UIDL.

load ./chilkat.dll

set success 0

#  Demonstrates the MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are
#  listed in a StringTable and appends them to an EmailBundle.  The arguments are the UIDL
#  StringTable, headersOnly, numBodyLines, and the EmailBundle.  The messages remain on the
#  server.

set mailman [new_CkMailMan]

#  Configure the POP3 server connection.
CkMailMan_put_MailHost $mailman "pop.example.com"
CkMailMan_put_MailPort $mailman 995
CkMailMan_put_PopSsl $mailman 1
CkMailMan_put_PopUsername $mailman "user@example.com"
CkMailMan_put_PopPassword $mailman "myPassword"

#  Build the set of UIDLs to fetch.
set uidls [new_CkStringTable]

CkStringTable_Append $uidls "0000000123abcdef"
CkStringTable_Append $uidls "0000000124abcdef"

#  Fetch the listed messages (full bodies) into a bundle.
#  headersOnly=ckfalse (fetch the entire message).
#  Note: numBodyLines only applies when headersOnly is 1 (it sets how many lines of the
#  body to include along with the headers).  When headersOnly is 0, the entire message
#  is fetched and numBodyLines is ignored.
set bundle [new_CkEmailBundle]

set success [CkMailMan_FetchUidlSet $mailman $uidls 0 0 $bundle]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkStringTable $uidls
    delete_CkEmailBundle $bundle
    exit
}

set n [CkEmailBundle_get_MessageCount $bundle]
puts "Fetched $n messages."

set email [new_CkEmail]

for {set i 0} {$i <= [expr $n - 1]} {incr i} {
    set success [CkEmailBundle_EmailAt $bundle $i $email]
    puts [CkEmail_subject $email]
}

#  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
#  connects and authenticates -- using the property settings above -- whenever a server
#  operation requires it.  Calling the explicit connect/authenticate methods can still be
#  helpful to determine whether a failure occurs while connecting or while authenticating.

delete_CkMailMan $mailman
delete_CkStringTable $uidls
delete_CkEmailBundle $bundle
delete_CkEmail $email