B4X
SendGrid HTML Email with Embedded Images

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

B4X
Dim success As Boolean = False

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

Dim req As ChilkatHttpRequest
req.Initialize
Dim http As ChilkatHttp
http.Initialize("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;" />
Dim bdJpg As ChilkatBinData
bdJpg.Initialize
success = bdJpg.LoadFile("qa_data/jpg/starfish.jpg")
If success = False Then
    Log("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 ChilkatStringBuilder
sbHtml.Initialize
sbHtml.Append("<html><body><b>This is a test<b><br /><img src=" & Chr(34) & "data:image/jpeg;base64,")
'  Append the base64 image data to sbHtml.
bdJpg.GetEncodedSb("base64", sbHtml)
sbHtml.Append(Chr(34) & " alt=" & Chr(34) & Chr(34) & " style=" & Chr(34) & "border-width:0px;" & Chr(34) & " /></body></html>")

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

http.AuthToken = "SENDGRID_API_KEY"

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", "https://api.sendgrid.com/v3/mail/send", json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("response status code: " & 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.)
Log(resp.BodyStr)