(Perl) Create GMail Draft

Demonstrates how to create a new GMail draft email.

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.

# Use the Chilkat Email API to create or load an email.
$email = chilkat::CkEmail->new();
$email->put_Subject("This is a test GMail email created using Chilkat.");
$email->put_Charset("utf-8");
$email->AddPlainTextAlternativeBody("This is a test");
$email->AddHtmlAlternativeBody("<html><body><p>This is a <b>test</b></body></html>");

# We'll need to get the full MIME of the email encoded to a base64url string.
$sbMime = chilkat::CkStringBuilder->new();
$email->GetMimeSb($sbMime);
$sbMime->Encode("base64url","utf-8");

# The body of the HTTP request will be JSON..
$json = chilkat::CkJsonObject->new();
$json->UpdateSb("message.raw",$sbMime);

# Upload the email to GMail as a draft.
$http = chilkat::CkHttp->new();
$http->put_AuthToken("GMAIL-ACCESS-TOKEN");

$url = "https://www.googleapis.com/gmail/v1/users/me/drafts";
# resp is a HttpResponse
$resp = $http->PostJson3($url,"application/json",$json);
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.
# Use the online tool at Generate JSON Parsing Code
# to generate JSON parsing code.

# A sample successful JSON response:

# {
#  "id": "r-2607584557788895307",
#  "message": {
#   "id": "166f09932c662e93",
#   "threadId": "166f09932c662e93",
#   "labelIds": [
#    "DRAFT"
#   ]
#  }
# }