Perl

Move a GMail Message to Trash

See more GMail REST API Examples

Moves a specific GMail email message to trash. Perl

use chilkat();

$success = 0;

# 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 = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST",$url,"","","",$resp);
if ($success == 0) {
    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";