Tcl

Iterate Email Headers

Demonstrates how to iterate over the email header fields. Tcl

load ./chilkat.dll

set success 0

set email [new_CkEmail]

# First, load an email from a file. 
# Note: an email object may be loaded from a file, or
# downloaded directly from a POP3 or IMAP server...

set success [CkEmail_LoadEml $email "testReceivedHdrs.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# How many header fields?

set n [CkEmail_get_NumHeaderFields $email]
if {$n > 0} then {

    # Display the name and value of each header:

    for {set i 0} {$i <= [expr $n - 1]} {incr i} {
        set name [CkEmail_getHeaderFieldName $email $i]
        set value [CkEmail_getHeaderFieldValue $email $i]
        puts "$i"
        puts "$name"
        puts "$value"

    }

}


delete_CkEmail $email