Xbase++

Zip an Email's Attachments into One File

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 Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oEmail

nSuccess := 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.

oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "Zip the attachments"

oEmail:AddStringAttachment("a.txt", "first attachment")
oEmail:AddStringAttachment("b.txt", "second attachment")
? "NumAttachments before = " + Str(oEmail:NumAttachments)

//  Replace all attachments with a single Zip attachment named "files.zip".
nSuccess := oEmail:ZipAttachments("files.zip")
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    oEmail:destroy()
    RETURN
ENDIF

? "NumAttachments after = " + Str(oEmail:NumAttachments)

oEmail:destroy()