(Tcl) Read All Email from POP3 Inbox by Message Numbers

Demonstrates how to read all of the email from a POP3 inbox by fetching each email by it's message number.

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]

# Set the POP3 server's hostname
CkMailMan_put_MailHost $mailman "pop.someMailServer.com"

# Set the POP3 login/password.
CkMailMan_put_PopUsername $mailman "myLogin"
CkMailMan_put_PopPassword $mailman "myPassword"

# Get the number of messages in the mailbox.
set numMessages [CkMailMan_GetMailboxCount $mailman]

# Message numbers are specific to a POP3 session. 
# If a maildrop (i.e. inbox)  contains 10 messages, 
# the message numbers will be 1, 2, 3, ... 10. 
# If message number 1 is deleted and a new POP3 session 
# is established, there will be 9 messages numbered 1, 2, 3, ... 9. 

set i 1

# email is a CkEmail

while {$i <= $numMessages} {

    set email [CkMailMan_FetchByMsgnum $mailman $i]
    if {[CkMailMan_get_LastMethodSuccess $mailman] != 1} then {
        puts [CkMailMan_lastErrorText $mailman]
        delete_CkMailMan $mailman
        exit
    }

    puts [CkEmail_from $email]: [CkEmail_subject $email]\n
    delete_CkEmail $email

    set i [expr $i + 1]

}

delete_CkMailMan $mailman