Save an Email Attachment using a Specific Filename

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

LOCAL loMailman
LOCAL loImap
LOCAL loEmail
LOCAL lnSuccess
LOCAL i

*  Create a MailMan or Imap object first for the purpose
*  of unlocking the component. (Only one is necessary)
loMailman = CreateObject('Chilkat.MailMan2')
loMailman.UnlockComponent("anything for 30-day trial")
loImap = CreateObject('Chilkat.Imap')
loImap.UnlockComponent("anything for 30-day trial")

loEmail = CreateObject('Chilkat.Email2')

*  Load an email object containing attachments.
*  This .eml can be downloaded from:
*  http://www.example-code.com/testData/HtmlEmail.eml

lnSuccess = loEmail.LoadEml("HtmlEmail.eml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

*  List the attachment filenames:
*  This email has two attachments: logo.jpg and faxCover.doc

FOR i = 0 TO loEmail.NumAttachments - 1
    ? loEmail.GetAttachmentFilename(i)
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:
loEmail.SetAttachmentFilename(0,"pic.jpg")
loEmail.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:
loEmail.SaveAttachedFile(0,".")
loEmail.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:
loEmail.SaveAllAttachments("myAttachments")

=MESSAGEBOX("Finished!")