(Xojo Plugin) Create a New GMail Label

Demonstrates how to create a new GMail label.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim success As Boolean

Dim http As New Chilkat.Http
http.AuthToken = "GMAIL-ACCESS-TOKEN"

Dim userId As String
userId = "me"
success = http.SetUrlVar("userId",userId)

// Create the JSON to be sent in the HTTP request body.
// The name of the new label is "questions".
Dim json As New Chilkat.JsonObject
success = json.UpdateString("name","questions")
success = json.UpdateString("labelListVisibility","labelShow")
success = json.UpdateString("messageListVisibility","show")

json.EmitCompact = False
System.DebugLog(json.Emit())

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

Dim url As String
url = "https://www.googleapis.com/gmail/v1/users/{$userId}/labels"
Dim resp As Chilkat.HttpResponse
resp = http.PostJson3(url,"application/json",json)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("status = " + Str(resp.StatusCode))

// A 200 response status indicate success.
If (resp.StatusCode <> 200) Then
    System.DebugLog(resp.BodyStr)
    System.DebugLog("Failed.")

    Return
End If

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

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

System.DebugLog("response body:")
System.DebugLog(resp.BodyStr)

System.DebugLog("GMail label created!")