Perl

Download a Specific GMail Message into a Chilkat Email Object

See more GMail REST API Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;
$http->AuthToken('GMAIL-ACCESS-TOKEN');

# The id of the GMail message to download.
my $id = '166e50fed0b9b0cb';
my $userId = 'me';

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

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

my $json = Chilkat2::JsonObject->new;
$json->LoadSb($sbJson);
$json->EmitCompact(0);

if ($http->LastStatus != 200) {
    print $json->Emit(), "\n";
    print "Failed.\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..
my $sbRaw = Chilkat2::StringBuilder->new;
$json->StringOfSb('raw', $sbRaw);
$sbRaw->Decode('base64url', 'utf-8');

my $email = Chilkat2::Email->new;
$email->SetFromMimeSb($sbRaw);

# Now we can use the email API to do whatever we desire..
print 'From: ', $email->FromAddress, "\n";
print 'Subject: ', $email->Subject, "\n";
# ...