Lianja

Add File Attachments to an Email

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

llSuccess = .F.

loEmail = createobject("CkEmail")

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "support@chilkatsoft.com"
llSuccess = 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 <> .T.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

lcContentType = loEmail.AddFileAttachment("something.xml")
if (loEmail.LastMethodSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

lcContentType = loEmail.AddFileAttachment("something.zip")
if (loEmail.LastMethodSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

llSuccess = loEmail.SaveEml("email.eml")
if (llSuccess = .F.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

? "Saved EML!"


release loEmail