Tcl

Check if a MIME Part is HTML

Demonstrates the Chilkat Mime.IsHtml method, which returns whether the Content-Type is exactly text/html. It takes no arguments and applies to the current part.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: Finding the HTML part is the common goal when rendering a message richly — it is the formatted version a mail client prefers. In a multipart/alternative you would locate it with this predicate and fall back to the plain-text part when it is absent.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Mime.IsHtml method, which returns whether the Content-Type is text/html.  It takes no arguments and applies to the current
#  part.  This example iterates the parts of a multipart message and reports which ones match.

set mime [new_CkMime]

set success [CkMime_LoadMimeFile $mime "qa_data/multipart_message.eml"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

set n [CkMime_get_NumParts $mime]
set part [new_CkMime]

for {set i 0} {$i <= [expr $n - 1]} {incr i} {
    set success [CkMime_PartAt $mime $i $part]
    if {$success == 0} then {
        puts [CkMime_lastErrorText $mime]
        delete_CkMime $mime
        delete_CkMime $part
        exit
    }

    if {CkMime_IsHtml $part} then {
        puts "Part $i ([CkMime_contentType $part]) is HTML."
    }

}

delete_CkMime $mime
delete_CkMime $part