(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_AuthToken $http "ACCESS_TOKEN"

CkHttp_put_Accept $http "application/json"

# resp is a CkHttpResponse
set resp [CkHttp_QuickRequest $http "GET" "https://www.googleapis.com/gmail/v1/users/userId/messages"]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonResponse
    exit
}

delete_CkHttpResponse $resp

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

set resultSizeEstimate [CkJsonObject_IntOf $jsonResponse "resultSizeEstimate"]
set i 0
set count_i [CkJsonObject_SizeOfArray $jsonResponse "messages"]
while {$i < $count_i} {
    CkJsonObject_put_I $jsonResponse $i
    set id [CkJsonObject_stringOf $jsonResponse "messages[i].id"]
    set threadId [CkJsonObject_stringOf $jsonResponse "messages[i].threadId"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkJsonObject $jsonResponse