Xbase++
SendGrid HTML Email with Embedded Images

Demonstrates how to send an HTML email with embedded images using SendGrid.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oReq
LOCAL oHttp
LOCAL oBdJpg
LOCAL oSbHtml
LOCAL oJson
LOCAL oResp

nSuccess := 0

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

oReq := CreateObject("Chilkat.HttpRequest")
oHttp := CreateObject("Chilkat.Http")

//  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;" />
oBdJpg := CreateObject("Chilkat.BinData")
nSuccess := oBdJpg:LoadFile("qa_data/jpg/starfish.jpg")
IF (nSuccess == 0)
    ? "Failed to load JPG file."
    oReq:destroy()
    oHttp:destroy()
    oBdJpg:destroy()
    RETURN
ENDIF

//  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.
oSbHtml := CreateObject("Chilkat.StringBuilder")
oSbHtml:Append('<html><body><b>This is a test<b><br /><img src="data:image/jpeg;base64,')
//  Append the base64 image data to sbHtml.
oBdJpg:GetEncodedSb("base64", oSbHtml)
oSbHtml:Append('" alt="" style="border-width:0px;" /></body></html>')

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("personalizations[0].to[0].email", "matt@chilkat.io")
oJson:UpdateString("personalizations[0].to[0].name", "Matt")
oJson:UpdateString("from.email", "admin@chilkatsoft.com")
oJson:UpdateString("subject", "Test HTML email with images")
oJson:UpdateString("content[0].type", "text/html")
oJson:UpdateSb("content[0].value", oSbHtml)

oHttp:AuthToken := "SENDGRID_API_KEY"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://api.sendgrid.com/v3/mail/send", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oReq:destroy()
    oHttp:destroy()
    oBdJpg:destroy()
    oSbHtml:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "response status code: " + Str(oResp: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.)
? oResp:BodyStr

oReq:destroy()
oHttp:destroy()
oBdJpg:destroy()
oSbHtml:destroy()
oJson:destroy()
oResp:destroy()