(Perl) Download a Specific GMail Message into a Chilkat Email Object

Demonstrates how to download a GMail message into a Chilkat Email object.

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 download.
$id = "166e50fed0b9b0cb";
$userId = "me";

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

# Fetch the email.
$url = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}?format=raw";
$sbJson = chilkat::CkStringBuilder->new();
$success = $http->DownloadSb($url,"utf-8",$sbJson);
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->LoadSb($sbJson);
$json->put_EmitCompact(0);

if ($http->get_LastStatus() != 200) {
    print $json->emit() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# The returned JSON contains something like this:

# {
#   "id": "166e50fed0b9b0cb",
#   "threadId": "166e50fed0b9b0cb",
#   "labelIds": [
#     "CATEGORY_SOCIAL",
#     "INBOX"
#   ],
#   "snippet": "...",
#   "historyId": "582477",
#   "internalDate": "1541441317000",
#   "sizeEstimate": 28603,
#   "raw": "BASE64URL_CONTENT"
# }

# The RFC822 MIME of the email is contained in the "raw" as a base64URL encoded string.
# Let's decode and load into a Chilkat email object..
$sbRaw = chilkat::CkStringBuilder->new();
$json->StringOfSb("raw",$sbRaw);
$sbRaw->Decode("base64url","utf-8");

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

# Now we can use the email API to do whatever we desire..
print "From: " . $email->fromAddress() . "\r\n";
print "Subject: " . $email->subject() . "\r\n";
# ...