![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VBScript) Save Email Attachments to FilesystemSaves email attachments to a directory.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email") 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 |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.