Visual Basic 6.0
Visual Basic 6.0
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 Visual Basic 6.0 Downloads
Dim success As Long
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.
Dim email As New ChilkatEmail
email.Subject = "Zip the attachments"
success = email.AddStringAttachment("a.txt","first attachment")
success = email.AddStringAttachment("b.txt","second attachment")
Debug.Print "NumAttachments before = " & email.NumAttachments
' Replace all attachments with a single Zip attachment named "files.zip".
success = email.ZipAttachments("files.zip")
If (success = 0) Then
Debug.Print email.LastErrorText
Exit Sub
End If
Debug.Print "NumAttachments after = " & email.NumAttachments