(Visual FoxPro) Add Image to HTML Email

See more Email Object Examples

Demonstrates how to add an image to an HTML email.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loEmail
LOCAL lnSuccess
LOCAL lcHtml
LOCAL lcPathInHtml
LOCAL lcPathOnDisk

* 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.Email')
loEmail = CreateObject('Chilkat.Email')

loEmail.From = "Matt <matt@example.com>"
loEmail.AddTo("Joe","joe@example.com")
loEmail.Subject = "This is a test"

* Add an HTML body with an image tag.
lcHtml = '<html><body><p>Test with image:</p><p><img src="/wildlife/starfish.jpg" /></p></body></html>'
loEmail.SetHtmlBody(lcHtml)

* Add the image data from a file.  The pathInHtml must match the value of the img tag's src attribute.
lcPathInHtml = "/wildlife/starfish.jpg"
* The actual path of the JPG file in the local filesystem:
lcPathOnDisk = "qa_data/jpg/starfish20.jpg"

lnSuccess = loEmail.AddRelatedFile2(lcPathOnDisk,lcPathInHtml)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* The email is now properly constructed with an image that will be visible in the HTML.
* In this example, we'll save it to a .eml file and verify by loading the .eml in an email client such as Mozilla Thunderbird.

lnSuccess = loEmail.SaveEml("qa_output/starfish.eml")

* Also, we can examine the MIME to understand how the image data in the MIME is associated with the img tag in the HTML.
* It is the Content-Location header value that must match the value of the img tag's src attribute.

? loEmail.GetMime()

* Here's the MIME:

* MIME-Version: 1.0
* Date: Thu, 26 May 2022 11:09:12 -0500
* Message-ID: <B1D499F74F533E287BFE04BBD79AAF1D973B61E3@SLICE>
* Content-Type: multipart/related; boundary="------------000205040704010904010706"
* X-Priority: 3 (Normal)
* From: Matt <matt@example.com>
* CKX-Bounce-Address: matt@example.com
* To: Joe <joe@example.com>
* Subject: This is a test
* 
* --------------000205040704010904010706
* Content-Type: text/html; charset=us-ascii
* Content-Transfer-Encoding: 7bit
* 
* <html><body><p>Test with image:</p><p><img src="/wildlife/starfish.jpg" /></p></body></html>
* --------------000205040704010904010706
* Content-Type: image/jpeg; name="/wildlife/starfish.jpg"
* Content-Transfer-Encoding: base64
* Content-Disposition: inline; filename="/wildlife/starfish.jpg"
* Content-Location: /wildlife/starfish.jpg
* 
* /9j/4AAQSkZJRgABAQEASABIAAD//gAmRmlsZSB3cml0dGVuIGJ5IEFkb2JlIFBob3Rvc2hvcD8g
* NC4w/9sAQwAQCwwODAoQDg0OEhEQExgoGhgWFhgxIyUdKDozPTw5Mzg3QEhcTkBEV0U3OFBtUVdf
* YmdoZz5NcXlwZHhcZWdj/9sAQwEREhIYFRgvGhovY0I4QmNjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
* Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj/8IAEQgAFAAUAwERAAIRAQMRAf/EABcAAAMBAAAA
* AAAAAAAAAAAAAAIDBAX/xAAYAQADAQEAAAAAAAAAAAAAAAABAgMEAP/aAAwDAQACEAMQAAAB2kZY
* NNEijWKddfTmLgALWH//xAAbEAACAgMBAAAAAAAAAAAAAAABAgMRAAQSE//aAAgBAQABBQL0XqN+
* pM2aqJGMiqFFCyg7z//EABwRAAICAgMAAAAAAAAAAAAAAAERAAIQIQMSUf/aAAgBAwEBPwHqU5aq
* Axx+y1tMQl4elj//xAAcEQEAAQUBAQAAAAAAAAAAAAABEQACEBIhA1H/2gAIAQIBAT8B3Bhqy7Zc
* enyiwmGgDhiOzj//xAAdEAABAwUBAAAAAAAAAAAAAAABAAIREBIhIkFR/9oACAEBAAY/ArZyn+Cg
* xtxWuJaoCnqDuin/xAAcEAABBAMBAAAAAAAAAAAAAAABABEhYRAxQVH/2gAIAQEAAT8hkEwPUUR9
* DYfE4nxtRpIkBTsayuALIiuY/9oADAMBAAIAAwAAABDWPTsf/8QAGhEAAwADAQAAAAAAAAAAAAAA
* AAEREDFBIf/aAAgBAwEBPxC0DVPcWm+Ce4OesrkE6bjH/8QAGBEBAQEBAQAAAAAAAAAAAAAAAREA
* QRD/2gAIAQIBAT8QahMiOc8YgSrnTY3ELclHXn//xAAcEAEBAAIDAQEAAAAAAAAAAAABEQAhMUFx
* EFH/2gAIAQEAAT8Qn3igmSZSj+c4N4zapMy9IjFV98wncN2iuLFsCEbDGxQkI6RO/n//2Q==
* 
* --------------000205040704010904010706--

RELEASE loEmail