Visual Basic 6.0
Visual Basic 6.0
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 Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' 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 New ChilkatEmail
success = email.LoadEml("qa_data/eml/with_zip_attachment.eml")
If (success = 0) Then
Debug.Print email.LastErrorText
Exit Sub
End If
Debug.Print "NumAttachments before = " & email.NumAttachments
' Expand any Zip attachments in place.
success = email.UnzipAttachments()
If (success = 0) Then
Debug.Print email.LastErrorText
Exit Sub
End If
Debug.Print "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.