(Visual FoxPro) Create a New GMail Label

Demonstrates how to create a new GMail label.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcUserId
LOCAL loJson
LOCAL lcUrl
LOCAL loResp

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')
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('Chilkat.JsonObject')
loJson.UpdateString("name","questions")
loJson.UpdateString("labelListVisibility","labelShow")
loJson.UpdateString("messageListVisibility","show")

loJson.EmitCompact = 0
? loJson.Emit()

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

lcUrl = "https://www.googleapis.com/gmail/v1/users/{$userId}/labels"
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST",lcUrl,loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loResp
    CANCEL
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
    CANCEL
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