(Tcl) Move a GMail Message to Trash

Moves a specific GMail email message to trash.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

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 "GMAIL-ACCESS-TOKEN"

# The id of the GMail message to move to Trash.
set id "16678c485e7f0a0c"
set userId "me"

CkHttp_SetUrlVar $http "userId" "me"
CkHttp_SetUrlVar $http "id" $id

# Move to trash by POSTing w/ an empty request body.
set url "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}/trash"
set resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "POST" $url "" "" "" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

puts "status = [CkHttpResponse_get_StatusCode $resp]"

# A 200 response status indicate success.
if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts [CkHttpResponse_bodyStr $resp]
    puts "Failed."
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

# A successful repsonse contains JSON that looks like this:

# {
#  "id": "16678c485e7f0a0c",
#  "threadId": "16678c485e7f0a0c",
#  "labelIds": [
#   "TRASH",
#   "CATEGORY_SOCIAL"
#  ]
# }

puts "response body:"
puts [CkHttpResponse_bodyStr $resp]

puts "Message moved to trash!"

delete_CkHttp $http
delete_CkHttpResponse $resp