(Lianja) 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.

Note: This example requires Chilkat v11.0.0 or greater.

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

llSuccess = .F.

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

loHttp = createobject("CkHttp")

loHttp.AuthToken = "ACCESS_TOKEN"

loHttp.Accept = "application/json"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpNoBody("GET","https://www.googleapis.com/gmail/v1/users/userId/messages",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loResp
    return
endif

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

loJsonResponse = createobject("CkJsonObject")
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = .F.
? loJsonResponse.Emit()

if (loResp.StatusCode <> 200) then
    ? "Failed."
    release loHttp
    release loResp
    release loJsonResponse
    return
endif

// {
//   "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 loResp
release loJsonResponse