Add File Attachments to an Email

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

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)

LOCAL loEmail
LOCAL lnSuccess
LOCAL lcContentType

loEmail = CreateObject('Chilkat.Email2')

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "support@chilkatsoft.com"
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 (lcContentType = NULL ) THEN
    ? loEmail.LastErrorText
    QUIT
ENDIF

lcContentType = loEmail.AddFileAttachment("something.xml")
IF (lcContentType = NULL ) THEN
    ? loEmail.LastErrorText
    QUIT
ENDIF

lcContentType = loEmail.AddFileAttachment("something.zip")
IF (lcContentType = NULL ) THEN
    ? loEmail.LastErrorText
    QUIT
ENDIF

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

=MESSAGEBOX("Saved EML!")