Visual FoxPro

Create a New GMail Label

See more GMail REST API Examples

Demonstrates how to create a new GMail label. Visual FoxPro

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