Save an Email Attachment using a Specific Filename

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

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

'  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


'  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
    TextBox1.Text = TextBox1.Text & email.GetAttachmentFilename(i) & vbCrLf
    TextBox1.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!")