(Visual FoxPro) Send HTML Email with Attachments

Demonstrates how to send an HTML email with file attachments.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL loEmail
LOCAL lcContentIdStarfish
LOCAL loSbHtml
LOCAL lnNumReplacements
LOCAL lnSuccess
LOCAL lcContent

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

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

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

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

loMailman.StartTLS = 1
loMailman.SmtpPort = 587

* Create a new email object
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')
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 <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    CANCEL
ENDIF

* The src attribute for the image tag is set to the contentIdStarfish:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbHtml = CreateObject('Chilkat.StringBuilder')
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.
lnSuccess = loEmail.AddFileAttachment2("qa_data/pdf/fishing.pdf","application/pdf")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    RELEASE loSbHtml
    CANCEL
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.
lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    RELEASE loSbHtml
    CANCEL
ENDIF

lnSuccess = loMailman.CloseSmtpConnection()
IF (lnSuccess <> 1) THEN
    ? "Connection to SMTP server not closed cleanly."
ENDIF

? "HTML email with attachments sent!"

RELEASE loMailman
RELEASE loEmail
RELEASE loSbHtml