Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail

lnSuccess = 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.

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "Zip the attachments"

loEmail.AddStringAttachment("a.txt","first attachment")
loEmail.AddStringAttachment("b.txt","second attachment")
? "NumAttachments before = " + STR(loEmail.NumAttachments)

*  Replace all attachments with a single Zip attachment named "files.zip".
lnSuccess = loEmail.ZipAttachments("files.zip")
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

? "NumAttachments after = " + STR(loEmail.NumAttachments)

RELEASE loEmail