Tcl

Repair MIME Formatting Problems in an Email

Demonstrates the Chilkat Email.ApplyFixups method, which repairs selected MIME-formatting problems commonly found in email produced by other software. The argument is a comma-separated list of fixup keywords. The currently defined keyword is FixRelated, which relocates HTML-related items (such as embedded images) into the appropriate MIME structure so they are not incorrectly presented as ordinary attachments. This example loads an email and applies that fixup.

Background: Not every mail program builds strictly correct MIME. A common defect is placing an inline image as a loose attachment instead of nesting it in a multipart/related enclosure, which makes it show up as a downloadable file rather than displaying in the HTML. ApplyFixups corrects such structural issues so the message renders as intended.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the ApplyFixups method, which repairs selected MIME-formatting problems
#  commonly found in email produced by other software.  The argument is a comma-separated
#  list of fixup keywords.

set email [new_CkEmail]

set success [CkEmail_LoadEml $email "qa_data/eml/message.eml"]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

#  Apply the "FixRelated" fixup, which relocates HTML-related items (such as embedded
#  images) into the proper MIME structure so they are not shown as ordinary attachments.
set success [CkEmail_ApplyFixups $email "FixRelated"]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

puts "Applied MIME fixups."

#  Note: The path "qa_data/..." is a relative local filesystem path,
#  relative to the current working directory of the running application.

delete_CkEmail $email