(Visual FoxPro) Add File Attachments to an Email

Demonstrates how to add one or more file attachments to an email.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loEmail
LOCAL lnSuccess
LOCAL lcContentType

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "support@chilkatsoft.com"
lnSuccess = loEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com")

* To add file attachments to an email, call AddFileAttachment
* once for each file to be attached.  The method returns
* the content-type of the attachment if successful, otherwise
* returns cknull

lcContentType = loEmail.AddFileAttachment("something.pdf")
IF (loEmail.LastMethodSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

lcContentType = loEmail.AddFileAttachment("something.xml")
IF (loEmail.LastMethodSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

lcContentType = loEmail.AddFileAttachment("something.zip")
IF (loEmail.LastMethodSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

lnSuccess = loEmail.SaveEml("email.eml")
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

? "Saved EML!"

RELEASE loEmail