(Tcl) Parsing a Multipart/Digest Email

This example demonstrates how to parse a multipart/digest email. An email parsed by this sample could have a MIME structure as follows:

multipart/mixed
    text/plain
    text/plain
    multipart/digest
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
    text/plain

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Note: This example requires Chilkat v9.5.0.66 or greater.

set emlPath "qa_data/eml/multipart_digest.eml"

set email [new_CkEmail]

# For this example, we'll load the email from a .eml.
# The email could alternatively be loaded as a result of downloading from an IMAP or POP3 server..

set success [CkEmail_LoadEml $email $emlPath]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

set numDigests [CkEmail_get_NumDigests $email]
puts "num digests = $numDigests"

set i 0
while {$i < $numDigests} {
    # eDigest is a CkEmail
    set eDigest [CkEmail_GetDigest $email $i]
    puts "$i:[CkEmail_fromAddress $eDigest], [CkEmail_subject $eDigest]"
    set m [CkEmail_getHeaderField $eDigest "Message"]
    if {[CkEmail_get_LastMethodSuccess $eDigest] == 1} then {
        puts "    Message = $m"
    }

    delete_CkEmail $eDigest

    set i [expr $i + 1]
}

delete_CkEmail $email