(Lianja) Embed Image in HTML Email

Demonstrates how to create and send an HTML email with an embedded image.

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.

// The mailman object is used for sending and receiving email.
loMailman = createobject("CkMailMan")

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

// Create a new email object
loEmail = createobject("CkEmail")

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

// Embed the GIF image in the email.
llSuccess = loEmail.AddRelatedFile2(lcFileOnDisk,lcFilePathInHtml)
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
    release loMailman
    release loEmail
    return
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 = "Lianja HTML email with an embedded image."
llSuccess = loEmail.AddTo("Admin","admin@chilkatsoft.com")
loEmail.From = "Chilkat Support <support@chilkatsoft.com>"

llSuccess = loMailman.SendEmail(loEmail)
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
else
    ? "Mail Sent!"
endif



release loMailman
release loEmail