(Lianja) Send GMail with BCC Recipients using REST API

See more GMail REST API Examples

Demonstrates how to send an email with BCC recipients using the GMail REST API.

Note: This example requires Chilkat v9.5.0.91 or greater.

Chilkat Lianja Extension Download

Chilkat Lianja Extension

// 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.
loEmail = createobject("CkEmail")

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

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

// -----------------------------------------------------------------------------------------
// This section of this example demonstrates how to add BCC recipients.
// 
// Technically, an email should never contain a "Bcc" MIME header because it would
// effectively nullify the purpose of BCC -- which means "Blind Carbon Copy".
// Email recipients should not be able to see the BCC recipients.
// Chilkat never adds a "Bcc" header field.
// However.. in this case, the GMail REST server will look for the Bcc header field,
// and will include those email addresses when sending, and also removes the Bcc header
// from the email that is sent.
// 
// Starting in Chilkat v9.5.0.91, we can tell the email object to add the Bcc header
// using the "UseBccHeader" UncommonOptions.  For example:
loEmail.UncommonOptions = "UseBccHeader"
loEmail.AddBcc("Joe","joe@example.com")
loEmail.AddBcc("Dave","dave@example.com")
// ...
// -----------------------------------------------------------------------------------------

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

// Create an HTML email body with an embedded image.
lcCid = loEmail.AddRelatedFile("qa_data/jpg/starfish.jpg")
loSbHtml = createobject("CkStringBuilder")
loSbHtml.Append('<html><body>This is a <b>test</b><br><img src="cid:STARFISH_CID"/></body></html>')
lnNumReplacements = loSbHtml.Replace("STARFISH_CID",lcCid)

loEmail.AddHtmlAlternativeBody(loSbHtml.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.
loSbMime = createobject("CkStringBuilder")
loEmail.GetMimeSb(loSbMime)
loSbMime.Encode("base64url","utf-8")

// The body of the HTTP request will be JSON..
loJson = createobject("CkJsonObject")
loJson.UpdateSb("raw",loSbMime)

// Send the email...
loHttp = createobject("CkHttp")
loHttp.AuthToken = "GMAIL-ACCESS-TOKEN"

lcUrl = "https://www.googleapis.com/gmail/v1/users/me/messages/send"
loResp = loHttp.PostJson3(lcUrl,"application/json",loJson)
if (loHttp.LastMethodSuccess <> .T.) then
    ? loHttp.LastErrorText
    release loEmail
    release loSbHtml
    release loSbMime
    release loJson
    release loHttp
    return
endif

// A status code of 200 indicates success.
? "Response status code: " + str(loResp.StatusCode)
? "Response body:"
? loResp.BodyStr
release loResp

// 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"
//  ]
// }


release loEmail
release loSbHtml
release loSbMime
release loJson
release loHttp