VBScript

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 VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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 = CreateObject("Chilkat.Email")
email.Subject = "Zip the attachments"

success = email.AddStringAttachment("a.txt","first attachment")
success = email.AddStringAttachment("b.txt","second attachment")
outFile.WriteLine("NumAttachments before = " & email.NumAttachments)

'  Replace all attachments with a single Zip attachment named "files.zip".
success = email.ZipAttachments("files.zip")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("NumAttachments after = " & email.NumAttachments)

outFile.Close