B4X

Create a New GMail Label

See more GMail REST API Examples

Demonstrates how to create a new GMail label. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")
http.AuthToken = "GMAIL-ACCESS-TOKEN"

Dim userId As String = "me"
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 ChilkatJsonObject
json.Initialize
json.UpdateString("name", "questions")
json.UpdateString("labelListVisibility", "labelShow")
json.UpdateString("messageListVisibility", "show")

json.EmitCompact = False
Log(json.Emit)

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

Dim url As String = "https://www.googleapis.com/gmail/v1/users/{$userId}/labels"
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", url, json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("status = " & resp.StatusCode)

'  A 200 response status indicate success.
If resp.StatusCode <> 200 Then
    Log(resp.BodyStr)
    Log("Failed.")
    Return
End If


'  A successful repsonse contains JSON that looks like this:

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

Log("response body:")
Log(resp.BodyStr)

Log("GMail label created!")