Visual FoxPro
Embed Image in HTML Email

Demonstrates how to create and send an HTML email with an embedded image.
Chilkat Visual FoxPro Downloads

Visual FoxPro
LOCAL lnSuccess
LOCAL loMailman
LOCAL loEmail
LOCAL lcFileOnDisk
LOCAL lcFilePathInHtml
LOCAL lcHtmlBody

lnSuccess = 0

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

* The mailman object is used for sending and receiving email.
loMailman = CreateObject('Chilkat.MailMan')

* Set the SMTP server.
loMailman.SmtpHost = "smtp.comcast.net"

* Create a new email object
loEmail = CreateObject('Chilkat.Email')

* Add an embedded image to the HTML email.
lcFileOnDisk = "images/dude2.gif"
lcFilePathInHtml = "dudeAbc.gif"

* Embed the GIF image in the email.
lnSuccess = loEmail.AddRelatedFile2(lcFileOnDisk,lcFilePathInHtml)
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    CANCEL
ENDIF

* The src attribute for the image tag is set to the filePathInHtml:
lcHtmlBody = '<html><body>Embedded Image:<br><img src="dudeAbc.gif"></body></html>'

* Set the basic email stuff: HTML body, subject, "from", "to"
loEmail.SetHtmlBody(lcHtmlBody)
loEmail.Subject = "Visual FoxPro HTML email with an embedded image."
lnSuccess = loEmail.AddTo("Admin","admin@chilkatsoft.com")
loEmail.From = "Chilkat Support <support@chilkatsoft.com>"

lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
ELSE
    ? "Mail Sent!"
ENDIF

RELEASE loMailman
RELEASE loEmail