(Perl) Move a GMail Message to Trash

Moves a specific GMail email message to trash.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();
$http->put_AuthToken("GMAIL-ACCESS-TOKEN");

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

$http->SetUrlVar("userId","me");
$http->SetUrlVar("id",$id);

# Move to trash by POSTing w/ an empty request body.
$url = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}/trash";
# resp is a HttpResponse
$resp = $http->PText("POST",$url,"","","",0,0);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "status = " . $resp->get_StatusCode() . "\r\n";

# A 200 response status indicate success.
if ($resp->get_StatusCode() != 200) {
    print $resp->bodyStr() . "\r\n";
    print "Failed." . "\r\n";

    exit;
}

# A successful repsonse contains JSON that looks like this:

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

print "response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";

print "Message moved to trash!" . "\r\n";