Tcl

Add a Related File Addressed by Content-Location

Demonstrates the Chilkat Email.AddRelatedFile2 method, which adds a local file as a related MIME resource addressed by Content-Location rather than Content-ID. The second argument becomes the related item's MIME filename and Content-Location value, and it should match the filename, path, or URL already used by the corresponding HTML reference (such as an img element's src). This example embeds an image referenced as logo.png.

Background: There are two ways HTML email links to embedded resources. The cid: approach (see AddRelatedFile) uses a generated Content-ID, while the Content-Location approach lets the HTML keep an ordinary-looking src="logo.png" and matches it to a part carrying the same Content-Location. The latter is handy when converting an existing web page to email, because the original relative URLs can stay unchanged.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the AddRelatedFile2 method, which adds a local file as a related MIME
#  resource addressed by Content-Location rather than Content-ID.  The 2nd argument becomes
#  the item's MIME filename / Content-Location and should match the reference in the HTML.

set email [new_CkEmail]

CkEmail_put_Subject $email "Email with a related image (by Content-Location)"

#  The HTML references the image by the same name used as the Content-Location.
CkEmail_SetHtmlBody $email "<html><body><img src=\"logo.png\"/></body></html>"

#  Add the file as a related item addressed by Content-Location "logo.png".
set success [CkEmail_AddRelatedFile2 $email "qa_data/images/logo.png" "logo.png"]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

puts "NumRelatedItems = [CkEmail_get_NumRelatedItems $email]"

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

delete_CkEmail $email