Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Save Email Attachments to Filesystem Directory
Saves email attachments to a directory. ' Create a MailMan or Imap object first for the purpose ' of unlocking the component. (Only one is necessary) Dim mailman As New ChilkatMailMan2 mailman.UnlockComponent "anything for 30-day trial" Dim imap As New ChilkatImap imap.UnlockComponent "anything for 30-day trial" Dim email As New ChilkatEmail2 ' Load an email object containing attachments. ' This .eml can be downloaded from: ' http://www.example-code.com/testData/HtmlEmail.eml Dim success As Integer success = email.LoadEml("HtmlEmail.eml") If (success <> 1) Then MsgBox 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 = 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 MsgBox email.LastErrorText Exit Sub End If ' List the attachment filenames: Dim i As Integer For i = 0 To email.NumAttachments - 1 Text1.Text = Text1.Text & email.GetAttachmentFilename(i) & vbCrLf Text1.Refresh Next |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.