VBScript

Save Email Attachments to Filesystem

Saves email attachments to a directory. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set email = CreateObject("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 <> 1) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
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 = 1

'  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 <> 1) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  List the attachment filenames:

For i = 0 To email.NumAttachments - 1
    outFile.WriteLine(email.GetAttachmentFilename(i))
Next

outFile.Close