(Xojo Plugin) Embed Image in HTML Email

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

Chilkat Xojo Plugin Download

Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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.
Dim mailman As New Chilkat.MailMan

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

// Create a new email object
Dim email As New Chilkat.Email

// Add an embedded image to the HTML email.
Dim fileOnDisk As String
fileOnDisk = "images/dude2.gif"
Dim filePathInHtml As String
filePathInHtml = "dudeAbc.gif"

// Embed the GIF image in the email.
Dim success As Boolean
success = email.AddRelatedFile2(fileOnDisk,filePathInHtml)
If (success <> True) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

// The src attribute for the image tag is set to the filePathInHtml:
Dim htmlBody As String
htmlBody = "<html><body>Embedded Image:<br><img src=""dudeAbc.gif""></body></html>"

// Set the basic email stuff: HTML body, subject, "from", "to"
email.SetHtmlBody htmlBody
email.Subject = "Xojo Plugin HTML email with an embedded image."
success = email.AddTo("Admin","admin@chilkatsoft.com")
email.From = "Chilkat Support <support@chilkatsoft.com>"

success = mailman.SendEmail(email)
If (success <> True) Then
    System.DebugLog(mailman.LastErrorText)
Else
    System.DebugLog("Mail Sent!")
End If