Perl
Send GMail with Attachments

Demonstrates how to send an email containing attachments using the GMail REST API.
Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

# 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();

# 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->put_FromName("My Name");
$email->put_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->put_Subject("This is a test GMail email created using Chilkat.");
$email->put_Charset("utf-8");
$email->AddPlainTextAlternativeBody("This is a test");

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

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

# Add some attachments..
$mimeType = $email->addFileAttachment("qa_data/helloWorld.pdf");
if ($email->get_LastMethodSuccess() != 1) {
    print "Failed to add PDF attachment." . "\r\n";
    exit;
}

$mimeType = $email->addFileAttachment("qa_data/msword/sample2.docx");
if ($email->get_LastMethodSuccess() != 1) {
    print "Failed to add MS-Word attachment." . "\r\n";
    exit;
}

# OK.. we now have an HTML email with 2 attachments..
$sbMime = chilkat::CkStringBuilder->new();
$email->GetMimeSb($sbMime);

# Send the email.  (GMail has a 5MB limit on the total email size.)
$http = chilkat::CkHttp->new();
$http->put_AuthToken("GMAIL-ACCESS-TOKEN");

# Send using the simple upload request for the Gmail API
$url = "https://www.googleapis.com/upload/gmail/v1/users/me/messages/send?uploadType=media";
$sendGzipped = 1;

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpSb("POST",$url,$sbMime,"utf-8","message/rfc822",$resp);
if ($success == 0) {
    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": "166f0d4ac39e50bf",
#  "threadId": "166f0d4ac39e50bf",
#  "labelIds": [
#   "SENT"
#  ]
# }