(Visual FoxPro) Get a List of Message IDs in GMail User's Mailbox

Demonstrates how to get a list of message IDs in a GMail mailbox. The "userId" can be either the user's email address or the special value "me" to indicate the authenticated user.

For more information, see https://developers.google.com/gmail/api/v1/reference/users/messages/list

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loResp
LOCAL loJsonResponse
LOCAL lcId
LOCAL lcThreadId
LOCAL lnResultSizeEstimate
LOCAL i
LOCAL lnCount_i

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

loHttp.AuthToken = "ACCESS_TOKEN"

loHttp.Accept = "application/json"

loResp = loHttp.QuickRequest("GET","https://www.googleapis.com/gmail/v1/users/userId/messages")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    RELEASE loJsonResponse
    CANCEL
ENDIF

RELEASE loResp

* {
*   "messages": [
*     users.messages Resource
*   ],
*   "nextPageToken": string,
*   "resultSizeEstimate": unsigned integer
* }

lnResultSizeEstimate = loJsonResponse.IntOf("resultSizeEstimate")
i = 0
lnCount_i = loJsonResponse.SizeOfArray("messages")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcId = loJsonResponse.StringOf("messages[i].id")
    lcThreadId = loJsonResponse.StringOf("messages[i].threadId")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loJsonResponse