Save Email Attachments to Filesystem Directory

Saves email attachments to a directory.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

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

* 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.
loEmail.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.
lnSuccess = loEmail.SaveAllAttachments("myAttachments")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

* List the attachment filenames:

FOR i = 0 TO loEmail.NumAttachments - 1
    ? loEmail.GetAttachmentFilename(i)
NEXT