(Xojo Plugin) SendGrid HTML Email with Embedded Images

See more SendGrid Examples

Demonstrates how to send an HTML email with embedded images using SendGrid.

Chilkat Xojo Plugin Download

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

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

Dim req As New Chilkat.HttpRequest
Dim http As New Chilkat.Http

Dim success As Boolean

// First.. load a JPG file and build an HTML img tag with the JPG data inline encoded.
// Our HTML img tag will look like this:
// <img src="data:image/jpeg;base64,/9j/4AAQSkZJRgABAQEA3ADcAA..." alt="" style="border-width:0px;" />
Dim bdJpg As New Chilkat.BinData
success = bdJpg.LoadFile("qa_data/jpg/starfish.jpg")
If (success = False) Then
    System.DebugLog("Failed to load JPG file.")
    Return
End If

// Note: HTML containing embedded base64 image data may not be visible in all email clients.
// For example, GMail might not display the image, but viewing in Outlook might be OK.
Dim sbHtml As New Chilkat.StringBuilder
success = sbHtml.Append("<html><body><b>This is a test<b><br /><img src=""data:image/jpeg;base64,")
// Append the base64 image data to sbHtml.
success = bdJpg.GetEncodedSb("base64",sbHtml)
success = sbHtml.Append(""" alt="""" style=""border-width:0px;"" /></body></html>")

Dim json As New Chilkat.JsonObject
success = json.UpdateString("personalizations[0].to[0].email","matt@chilkat.io")
success = json.UpdateString("personalizations[0].to[0].name","Matt")
success = json.UpdateString("from.email","admin@chilkatsoft.com")
success = json.UpdateString("subject","Test HTML email with images")
success = json.UpdateString("content[0].type","text/html")
success = json.UpdateSb("content[0].value",sbHtml)

http.AuthToken = "SENDGRID_API_KEY"

Dim resp As Chilkat.HttpResponse
resp = http.PostJson3("https://api.sendgrid.com/v3/mail/send","application/json",json)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
Else
    System.DebugLog("response status code: " + Str(resp.StatusCode))
    // Display the response.
    // If successful, the response code is 202 and the response body string is empty.
    // (The response body string may also be empty for error response codes.)
    System.DebugLog(resp.BodyStr)

End If