Perl

Send GMail using REST API

See more GMail REST API Examples

Demonstrates how to send an email using the GMail REST API. 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.

# Use the Chilkat Email API to create or load an email.
my $email = Chilkat2::Email->new;

# The From name/address don't need to be specified.
# GMail will automatically use your Gmail address if the following 2 lines are omitted.
$email->FromName('My Name');
$email->FromAddress('my_account_name@gmail.com');

$email->AddTo('John Smith', 'somebody@somewhere.com');
# To add more recipients, make additional calls to AddTo or AddCC, one per recipient...

$email->Subject('This is a test GMail email created using Chilkat.');
$email->Charset('utf-8');
$email->AddPlainTextAlternativeBody('This is a test');

# Create an HTML email body with an embedded image.
my $cid = $email->AddRelatedFile('qa_data/jpg/starfish.jpg');
my $sbHtml = Chilkat2::StringBuilder->new;
$sbHtml->Append('<html><body>This is a <b>test</b><br><img src="cid:STARFISH_CID"/></body></html>');
my $numReplacements = $sbHtml->Replace('STARFISH_CID', $cid);

$email->AddHtmlAlternativeBody($sbHtml->GetAsString());

# OK.. we now have an HTML email with an embedded JPG image
# We'll need to get the full MIME of the email encoded to a base64url string.
my $sbMime = Chilkat2::StringBuilder->new;
$email->GetMimeSb($sbMime);
$sbMime->Encode('base64url', 'utf-8');

# The body of the HTTP request will be JSON..
my $json = Chilkat2::JsonObject->new;
$json->UpdateSb('raw', $sbMime);

# Send the email...
my $http = Chilkat2::Http->new;
$http->AuthToken('GMAIL-ACCESS-TOKEN');

my $url = 'https://www.googleapis.com/gmail/v1/users/me/messages/send';
my $resp = Chilkat2::HttpResponse->new;
my $success = $http->HttpJson('POST', $url, $json, 'application/json', $resp);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

# A status code of 200 indicates success.
print 'Response status code: ', $resp->StatusCode, "\n";
print "Response body:\n";
print $resp->BodyStr, "\n";

# The response body contains JSON.
# Use the online tool at Generate JSON Parsing Code
# to generate JSON parsing code.

# A sample successful JSON response:

# {
#  "id": "166f0d4ac39e50bf",
#  "threadId": "166f0d4ac39e50bf",
#  "labelIds": [
#   "SENT"
#  ]
# }