Fetch All Messages from a POP3 Mailbox

See more POP3 Examples

Demonstrates the Chilkat MailMan.FetchAll method, which retrieves messages from the POP3 mailbox and appends them to an EmailBundle. The arguments are keepOnServer, headersOnly, numBodyLines, and the EmailBundle that receives the emails. This example downloads every message and iterates the bundle, printing each subject.

load ./chilkat.dll

set success 0

#  Demonstrates the MailMan.FetchAll method, which retrieves messages from the POP3 mailbox
#  and appends them to an EmailBundle.  The arguments are keepOnServer, headersOnly,
#  numBodyLines, and the EmailBundle that receives the emails.

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"

#  Fetch all messages, leaving them on the server, with full bodies.
#  keepOnServer=cktrue, 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_FetchAll $mailman 1 0 0 $bundle]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    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_CkEmailBundle $bundle
delete_CkEmail $email