(Visual FoxPro) List all Labels in the User's Mailbox
List all Labels in the GMail User's Mailbox
LOCAL lnSuccess
LOCAL loHttp
LOCAL lcUserId
LOCAL lcUrl
LOCAL loSb
LOCAL loJson
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loHttp = CreateObject('Chilkat_9_5_0.Http')
loHttp.AuthToken = "GMAIL-ACCESS-TOKEN"
lcUserId = "me"
loHttp.SetUrlVar("userId",lcUserId)
lcUrl = "https://www.googleapis.com/gmail/v1/users/{$userId}/labels"
loHttp.SessionLogFilename = "c:/temp/qa_output/sessionLog.txt"
* Get the list of GMail labels as JSON.
loSb = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loHttp.QuickGetSb(lcUrl,loSb)
IF (lnSuccess <> 1) THEN
? loHttp.LastErrorText
RELEASE loHttp
RELEASE loSb
CANCEL
ENDIF
loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.LoadSb(loSb)
loJson.EmitCompact = 0
? loJson.Emit()
IF (loHttp.LastStatus <> 200) THEN
? "Failed."
RELEASE loHttp
RELEASE loSb
RELEASE loJson
CANCEL
ENDIF
RELEASE loHttp
RELEASE loSb
RELEASE loJson
|