(Lianja) Send HTML Email with Attachments

Demonstrates how to send an HTML email with file attachments.

Chilkat Lianja Extension Download

Chilkat Lianja Extension

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loMailman = createobject("CkMailMan")

loMailman.SmtpHost = "smtp.my-starttls-mail-server.com"

loMailman.SmtpUsername = "MY-SMTP-USERNAME"
loMailman.SmtpPassword = "MY-SMTP-PASSWORD"

loMailman.StartTLS = .T.
loMailman.SmtpPort = 587

// Create a new email object
loEmail = createobject("CkEmail")
loEmail.Subject = "Test SMTP API to Send HTML Email with Attachments"
loEmail.From = "Joe Programmer <joe@my-starttls-mail-server.com>"
loEmail.AddTo("Chilkat Support","support@chilkatsoft.com")

// Add a plain-text alternative body, which will likely never be seen.
// (It is shown if the receiving email client is incapable of displaying HTML email.)
loEmail.AddPlainTextAlternativeBody("This is a plain-text alternative body...")

// Our HTML will include an image, so add the related image here.
lcContentIdStarfish = loEmail.AddRelatedFile("qa_data/jpg/starfish.jpg")
if (loEmail.LastMethodSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loMailman
    release loEmail
    return
endif

// The src attribute for the image tag is set to the contentIdStarfish:
loSbHtml = createobject("CkStringBuilder")
loSbHtml.Append("<html><body><p>This is an HTML email with an embedded image.</p>")
loSbHtml.Append('<p><img src="cid:CONTENT_ID_STARFISH" /></p></body></html>')
lnNumReplacements = loSbHtml.Replace("CONTENT_ID_STARFISH",lcContentIdStarfish)

loEmail.AddHtmlAlternativeBody(loSbHtml.GetAsString())

// Finally, add some attachments to the email.
// Add a file attachment.
llSuccess = loEmail.AddFileAttachment2("qa_data/pdf/fishing.pdf","application/pdf")
if (llSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loMailman
    release loEmail
    release loSbHtml
    return
endif

// Add an attachment where the content is contained in a string.
lcContent = "This is the content of the 2nd attached file."
loEmail.AddStringAttachment("someText.txt",lcContent)

// Send the HTML email.
llSuccess = loMailman.SendEmail(loEmail)
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
    release loMailman
    release loEmail
    release loSbHtml
    return
endif

llSuccess = loMailman.CloseSmtpConnection()
if (llSuccess <> .T.) then
    ? "Connection to SMTP server not closed cleanly."
endif

? "HTML email with attachments sent!"


release loMailman
release loEmail
release loSbHtml