(Tcl) Access Attached Message (Embedded Email)

How to access an email embedded within another email (i.e. an attached message).

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set email [new_CkEmail]

# Load an email from a .eml
set success [CkEmail_LoadEml $email "embeddedEmail.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# Display how many attached emails are embedded within
# this one:
set numAttached [CkEmail_get_NumAttachedMessages $email]
puts "numAttached = $numAttached"

# Get the 1st attached message.
# email2 is a CkEmail

set email2 [CkEmail_GetAttachedMessage $email 0]
if {[CkEmail_get_LastMethodSuccess $email] == 1} then {

    # Display the subject, From, and a header field...
    puts [CkEmail_subject $email2]
    puts [CkEmail_from $email2]
    puts [CkEmail_getHeaderField $email2 X-SOMETHING]
}


delete_CkEmail $email