Tcl

Create a multipart/related MIME Entity

Demonstrates the Chilkat Mime.NewMultipartRelated method, which initializes the object as an empty multipart/related entity. It takes no arguments; the primary part and its related resources are then appended.

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

Background: multipart/related ties a primary part to the resources it references — most commonly an HTML body and the inline images it embeds via cid: references. Unlike a plain attachment, a related image is displayed within the message rather than listed separately. The HTML part comes first, followed by each referenced resource with a matching Content-ID.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Mime.NewMultipartRelated method, which initializes the object as an empty
#  multipart/related entity, clearing any existing content.  It takes no arguments.

set mime [new_CkMime]

set success [CkMime_NewMultipartRelated $mime]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

#  multipart/related groups a primary part with the resources it references, such as an HTML body
#  and the inline images it displays.
set htmlPart [new_CkMime]

set success [CkMime_SetBodyFromHtml $htmlPart "<html><body><img src=\"cid:logo\"></body></html>"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $htmlPart]
    delete_CkMime $mime
    delete_CkMime $htmlPart
    exit
}

set success [CkMime_AppendPart $mime $htmlPart]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkMime $htmlPart
    exit
}

set success [CkMime_AppendPartFromFile $mime "qa_data/logo.png"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkMime $htmlPart
    exit
}

puts "Number of parts: [CkMime_get_NumParts $mime]"

delete_CkMime $mime
delete_CkMime $htmlPart