Tcl

Save All Email Attachments to a Directory

Demonstrates the Chilkat Email.SaveAllAttachments method, which saves all of the email's attachments to a directory. If the directory or any of its components do not exist, Chilkat creates them automatically. This example adds two attachments and saves them.

Background: Each attachment is written using its own filename. Because those filenames come from the sender and may collide, consider the OverwriteExisting property (which can auto-generate unique names) and RemoveAttachmentPaths (which strips embedded path info) to keep saved files safe and non-clobbering — important when processing untrusted incoming mail.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the SaveAllAttachments method, which saves all attachments to a directory.
#  If the directory (or any of its components) does not exist, Chilkat creates it.

set email [new_CkEmail]

CkEmail_put_Subject $email "Save all attachments"

CkEmail_AddStringAttachment $email "a.txt" "first attachment"
CkEmail_AddStringAttachment $email "b.txt" "second attachment"

#  Save every attachment into the specified directory.
set success [CkEmail_SaveAllAttachments $email "qa_output/attachments"]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

puts "Saved all attachments."

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

delete_CkEmail $email