Save an Email Attachment using a Specific Filename

Demonstrates how to save an email attachment using a specific filename, regardless of the filename in the email.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

'  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 Long
success = email.LoadEml("HtmlEmail.eml")
If (success <> 1) Then
    MsgBox email.LastErrorText
    Exit Sub
End If

'  List the attachment filenames:
'  This email has two attachments: logo.jpg and faxCover.doc
Dim i As Long
For i = 0 To email.NumAttachments - 1
    Text1.Text = Text1.Text & email.GetAttachmentFilename(i) & vbCrLf
    Text1.Refresh
Next

'  Let's say we want to save the 1st attachment as "pic.jpg",
'  and the 2nd attachment as "cover.doc".
'  Call SetAttachmentFilename for both:
email.SetAttachmentFilename 0,"pic.jpg"
email.SetAttachmentFilename 1,"cover.doc"

'  The SaveAttachedFile method allows you to specify the directory
'  where the attachment is saved.  To save to the current working
'  directory, pass a "." for the directory path.  This code
'  saves each attachment to the current working directory:
email.SaveAttachedFile 0,"."
email.SaveAttachedFile 1,"."

'  Alternatively, we could save all the attachments in a single
'  call.  The argument to SaveAllAttachments is the directory
'  path.  In this case, the filenames set by SetAttachmentFilename
'  are used:
email.SaveAllAttachments "myAttachments"

MsgBox "Finished!"