Xbase++
Send GMail using REST API

Demonstrates how to send an email using the GMail REST API.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oEmail
LOCAL cCid
LOCAL oSbHtml
LOCAL nNumReplacements
LOCAL oSbMime
LOCAL oJson
LOCAL oHttp
LOCAL cUrl
LOCAL oResp

nSuccess := 0

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

//  Use the Chilkat Email API to create or load an email.
oEmail := CreateObject("Chilkat.Email")

//  The From name/address don't need to be specified. 
//  GMail will automatically use your Gmail address if the following 2 lines are omitted.
oEmail:FromName := "My Name"
oEmail:FromAddress := "my_account_name@gmail.com"

oEmail:AddTo("John Smith", "somebody@somewhere.com")
//  To add more recipients, make additional calls to AddTo or AddCC, one per recipient...

oEmail:Subject := "This is a test GMail email created using Chilkat."
oEmail:Charset := "utf-8"
oEmail:AddPlainTextAlternativeBody("This is a test")

//  Create an HTML email body with an embedded image.
cCid := oEmail:AddRelatedFile("qa_data/jpg/starfish.jpg")
oSbHtml := CreateObject("Chilkat.StringBuilder")
oSbHtml:Append('<html><body>This is a <b>test</b><br><img src="cid:STARFISH_CID"/></body></html>')
nNumReplacements := oSbHtml:Replace("STARFISH_CID", cCid)

oEmail:AddHtmlAlternativeBody(oSbHtml:GetAsString())

//  OK.. we now have an HTML email with an embedded JPG image
//  We'll need to get the full MIME of the email encoded to a base64url string.
oSbMime := CreateObject("Chilkat.StringBuilder")
oEmail:GetMimeSb(oSbMime)
oSbMime:Encode("base64url", "utf-8")

//  The body of the HTTP request will be JSON..
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateSb("raw", oSbMime)

//  Send the email...
oHttp := CreateObject("Chilkat.Http")
oHttp:AuthToken := "GMAIL-ACCESS-TOKEN"

cUrl := "https://www.googleapis.com/gmail/v1/users/me/messages/send"
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", cUrl, oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oEmail:destroy()
    oSbHtml:destroy()
    oSbMime:destroy()
    oJson:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  A status code of 200 indicates success.
? "Response status code: " + Str(oResp:StatusCode)
? "Response body:"
? oResp:BodyStr

//  The response body contains JSON.
//  Use the online tool at Generate JSON Parsing Code
//  to generate JSON parsing code.

//  A sample successful JSON response:

//  {
//   "id": "166f0d4ac39e50bf",
//   "threadId": "166f0d4ac39e50bf",
//   "labelIds": [
//    "SENT"
//   ]
//  }

oEmail:destroy()
oSbHtml:destroy()
oSbMime:destroy()
oJson:destroy()
oHttp:destroy()
oResp:destroy()