Xojo Plugin

Save Email Attachments to Filesystem

Saves email attachments to a directory. Xojo Plugin

Dim success As Boolean
success = False

Dim email As New Chilkat.Email

//  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
    System.DebugLog(email.LastErrorText)
    Return
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
    System.DebugLog(email.LastErrorText)
    Return
End If

//  List the attachment filenames:
Dim i As Int32
For i = 0 To email.NumAttachments - 1
    System.DebugLog(email.GetAttachmentFilename(i))
Next