Visual FoxPro

Save All Email Attachments to a Directory

Demonstrates the Chilkat Email.SaveAllAttachments method, which saves all of the email's attachments to a directory. If the directory or any of its components do not exist, Chilkat creates them automatically. This example adds two attachments and saves them.

Background: Each attachment is written using its own filename. Because those filenames come from the sender and may collide, consider the OverwriteExisting property (which can auto-generate unique names) and RemoveAttachmentPaths (which strips embedded path info) to keep saved files safe and non-clobbering — important when processing untrusted incoming mail.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail

lnSuccess = 0

*  Demonstrates the SaveAllAttachments method, which saves all attachments to a directory.
*  If the directory (or any of its components) does not exist, Chilkat creates it.

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "Save all attachments"

loEmail.AddStringAttachment("a.txt","first attachment")
loEmail.AddStringAttachment("b.txt","second attachment")

*  Save every attachment into the specified directory.
lnSuccess = loEmail.SaveAllAttachments("qa_output/attachments")
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

? "Saved all attachments."

*  Note: The path "qa_output/..." is a relative local filesystem path,
*  relative to the current working directory of the running application.

RELEASE loEmail