Save Email Attachments to Filesystem Directory

Saves email attachments to a directory.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

' Create a MailMan or Imap object first for the purpose
' of unlocking the component. (Only one is necessary)
Dim mailman As New Chilkat.MailMan()
mailman.UnlockComponent("anything for 30-day trial")
Dim imap As New Chilkat.Imap()
imap.UnlockComponent("anything for 30-day trial")


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
Dim success As Boolean
success = email.LoadEml("HtmlEmail.eml")
If (success <> true) 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 = 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
    MsgBox(email.LastErrorText)
    Exit Sub
End If


' List the attachment filenames:
Dim i As Integer
For i = 0 To email.NumAttachments - 1
    TextBox1.Text = TextBox1.Text & email.GetAttachmentFilename(i) & vbCrLf
    TextBox1.Refresh()
Next