(Tcl) Email Body - Plain Text and/or HTML

Any given email may have a plain-text body, an HTML body, or both. The Body property will return the HTML body by default (if it exists) otherwise it will return the plain-text body. There are methods for checking to see if an email has a particular body (HasPlainTextBody and HasHtmlBody) and there are methods for getting a specific body: GetHtmlBody, GetPlainTextBody.

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 "something.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# Display the default Body:
puts [CkEmail_body $email]

# If a plain-text body is present, display it:

set bText [CkEmail_HasPlainTextBody $email]
if {$bText == 1} then {
    puts [CkEmail_getPlainTextBody $email]
}

# If an HTML body is present, display the HTML source:

set bHtml [CkEmail_HasHtmlBody $email]
if {$bHtml == 1} then {
    puts [CkEmail_getHtmlBody $email]
}


delete_CkEmail $email