(Excel) Save Email Attachments to Filesystem

Saves email attachments to a directory.

Download Excel Class Modules Chilkat Excel Class Modules

Dim email As Chilkat.Email
Set email = Chilkat.NewEmail

' Load an email object containing attachments.
' This .eml can be downloaded from:
' http://www.example-code.com/testData/HtmlEmail.eml

success = email.LoadEml("HtmlEmail.eml")
If (success <> True) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

' If OverwriteExisting is turned on, files with the same
' name are overwritten.  If turned off, new/unique filenames
' are automatically generated.  The filenames actually saved
' are accessible via the GetAttachmentFilename method.
email.OverwriteExisting = True

' Save all attachments to the "myAttachments" subdirectory
' found under the calling process's current working directory.
' This directory is automatically created if it does not already
' exist.
success = email.SaveAllAttachments("myAttachments")
If (success <> True) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

' List the attachment filenames:

For i = 0 To email.NumAttachments - 1
    Debug.Print email.GetAttachmentFilename(i)
Next