Tcl

Check if a MIME Entity is multipart/alternative

Demonstrates the Chilkat Mime.IsMultipartAlternative method, which returns whether the Content-Type is exactly multipart/alternative. It takes no arguments.

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: Recognizing multipart/alternative matters because its children are the same content in different formats — you display one (usually the last renderable), not all of them. That is the opposite of multipart/mixed, where every child is shown.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Mime.IsMultipartAlternative method, which returns whether the Content-Type is multipart/alternative.  It takes no arguments.

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
}

if {CkMime_IsMultipartAlternative $mime} then {
    puts "This is a multipart/alternative entity."
} else {
    puts "This is not multipart/alternative."
}


delete_CkMime $mime