Visual FoxPro

Save Email Attachments to Filesystem

Saves email attachments to a directory. Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL i

lnSuccess = 0

loEmail = CreateObject('Chilkat.Email')

* 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
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
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
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* List the attachment filenames:

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

RELEASE loEmail