B4X

List all Labels in the User's Mailbox

See more GMail REST API Examples

List all Labels in the GMail User's Mailbox 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)

Dim url As String = "https://www.googleapis.com/gmail/v1/users/{$userId}/labels"

http.SessionLogFilename = "c:/temp/qa_output/sessionLog.txt"

'  Get the list of GMail labels as JSON.
Dim sb As ChilkatStringBuilder
sb.Initialize
success = http.QuickGetSb(url, sb)
If success <> True Then
    Log(http.LastErrorText)
    Return
End If


Dim json As ChilkatJsonObject
json.Initialize
json.LoadSb(sb)
json.EmitCompact = False
Log(json.Emit)

If http.LastStatus <> 200 Then
    Log("Failed.")
    Return
End If