Tcl

Get a List of Message IDs in GMail User's Mailbox

See more GMail REST API Examples

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. Tcl

load ./chilkat.dll

set success 0

# 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"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "GET" "https://www.googleapis.com/gmail/v1/users/userId/messages" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    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_CkHttp $http
    delete_CkHttpResponse $resp
    delete_CkJsonObject $jsonResponse
    exit
}

# {
#   "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_CkHttpResponse $resp
delete_CkJsonObject $jsonResponse