Visual Basic 6.0
Visual Basic 6.0
Save All Email Attachments to a Directory
See more Email Object Examples
Demonstrates the Chilkat Email.SaveAllAttachments method, which saves all of the email's attachments to a directory. If the directory or any of its components do not exist, Chilkat creates them automatically. This example adds two attachments and saves them.
Background: Each attachment is written using its own filename. Because those filenames come from the sender and may collide, consider the
OverwriteExisting property (which can auto-generate unique names) and RemoveAttachmentPaths (which strips embedded path info) to keep saved files safe and non-clobbering — important when processing untrusted incoming mail.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' Demonstrates the SaveAllAttachments method, which saves all attachments to a directory.
' If the directory (or any of its components) does not exist, Chilkat creates it.
Dim email As New ChilkatEmail
email.Subject = "Save all attachments"
success = email.AddStringAttachment("a.txt","first attachment")
success = email.AddStringAttachment("b.txt","second attachment")
' Save every attachment into the specified directory.
success = email.SaveAllAttachments("qa_output/attachments")
If (success = 0) Then
Debug.Print email.LastErrorText
Exit Sub
End If
Debug.Print "Saved all attachments."
' Note: The path "qa_output/..." is a relative local filesystem path,
' relative to the current working directory of the running application.