(Lianja) Create a New GMail Label

Demonstrates how to create a new GMail label.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Lianja Extension Download Chilkat Lianja Extension

llSuccess = .F.

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

loHttp = createobject("CkHttp")
loHttp.AuthToken = "GMAIL-ACCESS-TOKEN"

lcUserId = "me"
loHttp.SetUrlVar("userId",lcUserId)

// Create the JSON to be sent in the HTTP request body.
// The name of the new label is "questions".
loJson = createobject("CkJsonObject")
loJson.UpdateString("name","questions")
loJson.UpdateString("labelListVisibility","labelShow")
loJson.UpdateString("messageListVisibility","show")

loJson.EmitCompact = .F.
? loJson.Emit()

// The JSON contains this:
// {
//   "name": "questions",
//   "labelListVisibility": "labelShow",
//   "messageListVisibility": "show"
// }

lcUrl = "https://www.googleapis.com/gmail/v1/users/{$userId}/labels"
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpJson("POST",lcUrl,loJson,"application/json",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJson
    release loResp
    return
endif

? "status = " + str(loResp.StatusCode)

// A 200 response status indicate success.
if (loResp.StatusCode <> 200) then
    ? loResp.BodyStr
    ? "Failed."
    release loHttp
    release loJson
    release loResp
    return
endif

// A successful repsonse contains JSON that looks like this:

// {
//  "id": "Label_43",
//  "name": "questions",
//  "messageListVisibility": "show",
//  "labelListVisibility": "labelShow"
// }

? "response body:"
? loResp.BodyStr

? "GMail label created!"


release loHttp
release loJson
release loResp