Tcl

Attach a File to a Multipart MIME Entity

Demonstrates the Chilkat Mime.AppendPartFromFile method, which reads a local file, creates an attachment part, and appends it. The only argument is the file path; the content headers are chosen from the filename extension.

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 add an attachment: Chilkat reads the file, infers its Content-Type from the extension, base64-encodes binary content, and appends it as a child part — typically inside a multipart/mixed. It is the building block behind adding attachments to an email, saving you from constructing the part and setting its headers by hand.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Mime.AppendPartFromFile method, which reads a local file, creates an attachment
#  part, and appends it.  The only argument is the file path; the content headers are chosen from
#  the filename extension.

set mime [new_CkMime]

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

#  A message body part.
set bodyPart [new_CkMime]

set success [CkMime_SetBodyFromPlainText $bodyPart "Please see the attached files."]
if {$success == 0} then {
    puts [CkMime_lastErrorText $bodyPart]
    delete_CkMime $mime
    delete_CkMime $bodyPart
    exit
}

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

#  Attach files directly.
set success [CkMime_AppendPartFromFile $mime "qa_data/report.pdf"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkMime $bodyPart
    exit
}

set success [CkMime_AppendPartFromFile $mime "qa_data/photo.jpg"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    delete_CkMime $bodyPart
    exit
}

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

delete_CkMime $mime
delete_CkMime $bodyPart