Tcl

Read Gmail POP3 Mailbox

Reads the header for each email in a GMail POP3 mailbox and displays the FROM and SUBJECT header fields. In your GMail "Forwarding and POP" settings, be sure to select "When messages are accessed with POP keep Gmail's copy in the Inbox". Tcl

load ./chilkat.dll

set success 0

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# The mailman object is used for receiving (POP3) 
# and sending (SMTP) email.
set mailman [new_CkMailMan]

# Set the GMail account POP3 properties.
CkMailMan_put_MailHost $mailman "pop.gmail.com"
CkMailMan_put_PopUsername $mailman "myLogin"
CkMailMan_put_PopPassword $mailman "myPassword"
CkMailMan_put_PopSsl $mailman 1
CkMailMan_put_MailPort $mailman 995

# Read mail headers and one line of the body.
# To get the full emails, set headersOnly = 0
set bundle [new_CkEmailBundle]

set keepOnServer 1
set headersOnly 1
set numBodyLines 1
set success [CkMailMan_FetchAll $mailman $keepOnServer $headersOnly $numBodyLines $bundle]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkEmailBundle $bundle
    exit
}

set i 0
set email [new_CkEmail]

while {$i < [CkEmailBundle_get_MessageCount $bundle]} {
    CkEmailBundle_EmailAt $bundle $i $email

    # Display the From email address and the subject.
    puts "From: [CkEmail_from $email]"
    puts "Subject: [CkEmail_subject $email]"

    set i [expr $i + 1]
}

delete_CkMailMan $mailman
delete_CkEmailBundle $bundle
delete_CkEmail $email