Tcl
Tcl
Zip an Email's Attachments into One File
See more Email Object Examples
Demonstrates the Chilkat Email.ZipAttachments method, which replaces all of an email's attachments with a single Zip file attachment having the specified filename. The original attachments are removed and packed into the Zip. This example adds two attachments and zips them into one.
Background: Bundling multiple attachments into a single
.zip keeps a message tidy, compresses the payload, and works around recipients or gateways that limit the number of attachments. Note that the filename here (files.zip) names the attachment inside the message — it is not a path on disk. The reverse operation is UnzipAttachments.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# Demonstrates the ZipAttachments method, which replaces all of an email's attachments
# with a single Zip file attachment having the specified filename. The original
# attachments are removed and packed into the Zip.
set email [new_CkEmail]
CkEmail_put_Subject $email "Zip the attachments"
CkEmail_AddStringAttachment $email "a.txt" "first attachment"
CkEmail_AddStringAttachment $email "b.txt" "second attachment"
puts "NumAttachments before = [CkEmail_get_NumAttachments $email]"
# Replace all attachments with a single Zip attachment named "files.zip".
set success [CkEmail_ZipAttachments $email "files.zip"]
if {$success == 0} then {
puts [CkEmail_lastErrorText $email]
delete_CkEmail $email
exit
}
puts "NumAttachments after = [CkEmail_get_NumAttachments $email]"
delete_CkEmail $email