B4X
B4X
Unzip an Email's Zip Attachments
See more Email Object Examples
Demonstrates the Chilkat Email.UnzipAttachments method, which unzips and replaces any Zip file attachments with their expanded contents. For example, if an email contains a single Zip holding three files, that Zip attachment is replaced by the three files as individual attachments. This example loads an email and expands its Zip attachments.
Background: Senders often bundle several files into one
.zip to keep a message tidy or to compress large content. UnzipAttachments reverses that automatically, so downstream processing can work with the individual files directly rather than having to detect, extract, and re-inject archive contents. It is the inverse of ZipAttachments.Chilkat B4X Downloads
Dim success As Boolean = False
' Demonstrates the UnzipAttachments method, which unzips and replaces any Zip file
' attachments with their expanded contents. For example, a single Zip containing 3 files
' is replaced by those 3 files as individual attachments.
Dim email As ChilkatEmail
email.Initialize
success = email.LoadEml("qa_data/eml/with_zip_attachment.eml")
If success = False Then
Log(email.LastErrorText)
Return
End If
Log("NumAttachments before = " & email.NumAttachments)
' Expand any Zip attachments in place.
success = email.UnzipAttachments
If success = False Then
Log(email.LastErrorText)
Return
End If
Log("NumAttachments after = " & email.NumAttachments)
' Note: The path "qa_data/..." is a relative local filesystem path,
' relative to the current working directory of the running application.