(Perl) Insert Email into GMail Folder

Directly inserts a message into only this user's mailbox similar to IMAP APPEND, bypassing most scanning and classification. Does not send a message.

This example will create a Chilkat Email object and upload/insert it into GMail. Then adds the "INBOX" label to the email to make it appear in INBOX

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.

$email = chilkat::CkEmail->new();

# This example chooses to load an email from a file.
$success = $email->LoadEml("qa_data/eml/testEmail.eml");
if ($success != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

# Get the email as MIME.
$sbMime = chilkat::CkStringBuilder->new();
$email->GetMimeSb($sbMime);

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

# Upload to GMail (does not send, but just inserts).

# IMPORTANT: After uploading/inserting, you won't see the message in the Inbox.
# In your web browser, if you go to "All Mail", you will see it.

$url = "https://www.googleapis.com/upload/gmail/v1/users/me/messages?uploadType=media";
$sendGzipped = 1;
# resp is a HttpResponse
$resp = $http->PTextSb("POST",$url,$sbMime,"utf-8","message/rfc822",0,$sendGzipped);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# A status code of 200 indicates success.
print "Response status code: " . $resp->get_StatusCode() . "\r\n";
print "Response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";

# The response body contains JSON.
# A sample successful JSON response:

# {
#  "id": "166f583051d36144",
#  "threadId": "166f5529e079a456"
# }

$json = chilkat::CkJsonObject->new();
$json->Load($resp->bodyStr());
$id = $json->stringOf("id");

# Add the Inbox label to the inserted email so that it appears in Inbox.
print "---- Adding the Inbox label to the newly inserted email. ----" . "\r\n";

# Create the following JSON to be sent in a POST to modify labels for this message.
# {
#   "addLabelIds": [
#     "INBOX"
#     ]
# }

$json2 = chilkat::CkJsonObject->new();
$json2->UpdateString("addLabelIds[0]","INBOX");

$http->SetUrlVar("id",$id);
$url = "https://www.googleapis.com/gmail/v1/users/me/messages/{$id}/modify";

# resp is a HttpResponse
$resp = $http->PostJson3($url,"application/json",$json2);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# A status code of 200 indicates success.
print "Response status code: " . $resp->get_StatusCode() . "\r\n";
print "Response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";

# The response body contains JSON.
# A sample successful JSON response:

# {
#  "id": "166f583051d36144",
#  "threadId": "166f583051d36144",
#  "labelIds": [
#   "INBOX"
#  ]
# }