(Tcl) Move a GMail Message to Trash

Moves a specific GMail email message to trash.

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 "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"
# resp is a CkHttpResponse
set resp [CkHttp_PText $http "POST" $url "" "" "" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    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_CkHttpResponse $resp

    delete_CkHttp $http
    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]

delete_CkHttpResponse $resp

puts "Message moved to trash!"

delete_CkHttp $http