Xbase++
Create GMail Draft

Demonstrates how to create a new GMail draft email.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oEmail
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")
oEmail:Subject := "This is a test GMail email created using Chilkat."
oEmail:Charset := "utf-8"
oEmail:AddPlainTextAlternativeBody("This is a test")
oEmail:AddHtmlAlternativeBody("<html><body><p>This is a <b>test</b></body></html>")

//  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("message.raw", oSbMime)

//  Upload the email to GMail as a draft.
oHttp := CreateObject("Chilkat.Http")
oHttp:AuthToken := "GMAIL-ACCESS-TOKEN"

cUrl := "https://www.googleapis.com/gmail/v1/users/me/drafts"
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", cUrl, oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oEmail: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": "r-2607584557788895307",
//   "message": {
//    "id": "166f09932c662e93",
//    "threadId": "166f09932c662e93",
//    "labelIds": [
//     "DRAFT"
//    ]
//   }
//  }

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