Tcl

Set a MIME Body from a File

Demonstrates the Chilkat Mime.SetBodyFromFile method, which reads a local file and sets it as the body, choosing content headers from the filename extension. The only argument is the file path.

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: This is the one-call way to turn a file into a MIME part: Chilkat reads the bytes and infers the Content-Type and transfer encoding from the extension — .jpg becomes image/jpeg with base64, .txt a text type, and so on. It is the natural building block for adding an attachment, usually followed by setting a Content-Disposition and filename.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Mime.SetBodyFromFile method, which reads a local file and sets it as the body,
#  choosing content headers based on the filename extension.  The only argument is the file path.

set mime [new_CkMime]

#  The Content-Type and encoding are set from the ".jpg" extension (image/jpeg, base64).
set success [CkMime_SetBodyFromFile $mime "qa_data/photo.jpg"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

puts "Content-Type: [CkMime_contentType $mime]"
puts "Encoding: [CkMime_encoding $mime]"

delete_CkMime $mime