Fetch a Range of POP3 Messages

See more POP3 Examples

Demonstrates the Chilkat MailMan.FetchRange method, which retrieves a range of messages from the POP3 mailbox and appends them to an EmailBundle. The arguments are keepOnServer, headersOnly, numBodyLines, a zero-based inclusive startIndex and endIndex, and the EmailBundle. This example fetches the first five messages.

load ./chilkat.dll

set success 0

#  Demonstrates the MailMan.FetchRange method, which retrieves a range of messages from the
#  POP3 mailbox and appends them to an EmailBundle.  The arguments are keepOnServer,
#  headersOnly, numBodyLines, startIndex, endIndex, and the EmailBundle.  The indexes are
#  zero-based and inclusive.

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 the first 5 messages (indexes 0 through 4), full bodies, leaving them on the server.
#  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_FetchRange $mailman 1 0 0 0 4 $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