Sample code for 30+ languages & platforms
Visual FoxPro

SendGrid HTML Email with Embedded Images

See more SendGrid Examples

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

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loReq
LOCAL loHttp
LOCAL loBdJpg
LOCAL loSbHtml
LOCAL loJson
LOCAL loResp

lnSuccess = 0

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

loReq = CreateObject('Chilkat.HttpRequest')
loHttp = 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;" />
loBdJpg = CreateObject('Chilkat.BinData')
lnSuccess = loBdJpg.LoadFile("qa_data/jpg/starfish.jpg")
IF (lnSuccess = 0) THEN
    ? "Failed to load JPG file."
    RELEASE loReq
    RELEASE loHttp
    RELEASE loBdJpg
    CANCEL
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.
loSbHtml = CreateObject('Chilkat.StringBuilder')
loSbHtml.Append('<html><body><b>This is a test<b><br /><img src="data:image/jpeg;base64,')
* Append the base64 image data to sbHtml.
loBdJpg.GetEncodedSb("base64",loSbHtml)
loSbHtml.Append('" alt="" style="border-width:0px;" /></body></html>')

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

loHttp.AuthToken = "SENDGRID_API_KEY"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://api.sendgrid.com/v3/mail/send",loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loReq
    RELEASE loHttp
    RELEASE loBdJpg
    RELEASE loSbHtml
    RELEASE loJson
    RELEASE loResp
    CANCEL
ENDIF

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

RELEASE loReq
RELEASE loHttp
RELEASE loBdJpg
RELEASE loSbHtml
RELEASE loJson
RELEASE loResp