(Tcl) Permanently Delete a Specific GMail Message

Immediately and permanently deletes the specified message. This operation cannot be undone. (This is not the same as moving a 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 delete.
set id "1669cc9a926bb8c1"
set userId "me"

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

# Delete the email.
set url "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}"
set responseStr [CkHttp_quickDeleteStr $http $url]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "status = [CkHttp_get_LastStatus $http]"

# A 204 response indicate success.
# It is common for HTTP DELETE operations to respond with a 204 status code with an empty body for success.
# You'll find many REST APIs follow this custom..
if {[CkHttp_get_LastStatus $http] != 204} then {
    puts "$responseStr"
    puts "Failed."
    delete_CkHttp $http
    exit
}

puts "Message deleted!"

delete_CkHttp $http