Perl
Outlook Send Email with Attachments

This example sends a plain-text email with attachments. Other examples exist for:
Sending plain-text email.
Sending HTML email.
Sending HTML email with embedded images.
Sending HTML email with embedded images and attachments.
Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

# Important: This example requires Chilkat v9.5.0.68 or greater.

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

$http = chilkat::CkHttp->new();

# Use your previously obtained access token here:
# See the following examples for getting an access token:
#    Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint).
#    Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint).
#    Refresh Access Token (Azure AD v2.0 Endpoint).
#    Refresh Access Token (Azure AD Endpoint).

$http->put_AuthToken("MICROSOFT_GRAPH_ACCESS_TOKEN");

# To send mail, we'll POST to the following endpoint:
# 
# POST /users/{id | userPrincipalName}/sendMail
# 
# (The special keyword "me" may be used in place of a principal name.)
# 

# Load the files to be attached.
$attach1 = chilkat::CkBinData->new();
$attach1->LoadFile("qa_data/pdf/fishing.pdf");
$attach2 = chilkat::CkBinData->new();
$attach2->LoadFile("qa_data/msword/sample.docx");

# The body of the POST request contains JSON that specifies the email subject, body,
# recipients, etc.  This example will build the following JSON plain-text email:
# 

# 	{
# 	  "message": {
# 	    "subject": "Sample Email with Attachments",
# 	    "body": {
# 	      "contentType": "Text",
# 	      "content": "This is the plain-text body..."
# 	    },
# 	    "toRecipients": [
# 	      {
# 	        "emailAddress": {
# 		  "name": "Chilkat Software",
# 	          "address": "admin@chilkat.io"
# 	        }
# 	      },
# 	      {
# 	        "emailAddress": {
# 	          "address": "chilkat.support@gmail.com"
# 	        }
# 	      }
# 	    ],
# 	    "ccRecipients": [
# 	      {
# 	        "emailAddress": {
# 		  "name": "Chilkat Blog",
# 		  "address": "admin@cknotes.com"
# 	        }
# 	      }
# 	    ],
# 	    "attachments": [
# 	       {
# 	         "@odata.type": "#microsoft.graph.fileAttachment",
# 	         "name": "fishing.pdf",
# 	         "contentType": "application/pdf",
# 	         "size": <theActualSize>,
# 	         "isInline": false,
# 	         "contentBytes": "base64_data_here"
# 	       },
# 	       {
# 	         "@odata.type": "#microsoft.graph.fileAttachment",
# 	         "name": "sample.docx",
# 	         "contentType": "application/vnd.openxmlformats-officedocument.wordprocessingml.document",
# 	         "size": <theActualSize>,
# 	         "isInline": false,
# 	         "contentBytes": "base64_data_here"
# 	       }
# 	    ]
# 	  },
# 	  "saveToSentItems": true
# 	}
# 
# Build the above JSON.
$json = chilkat::CkJsonObject->new();
$json->UpdateString("message.subject","Sample Email with Attachments");
$json->UpdateString("message.body.contentType","Text");
$json->UpdateString("message.body.content","This is the plain-text body...");

$json->UpdateString("message.toRecipients[0].emailAddress.name","Chilkat Software");
$json->UpdateString("message.toRecipients[0].emailAddress.address",'admin@chilkat.io');
$json->UpdateString("message.toRecipients[1].emailAddress.address",'chilkat.support@gmail.com');
$json->UpdateString("message.ccRecipients[0].emailAddress.name","Chilkat Blog");
$json->UpdateString("message.ccRecipients[0].emailAddress.address",'admin@cknotes.com');

$json->UpdateString('message.attachments[0].\'@odata.type\'',"#microsoft.graph.fileAttachment");
$json->UpdateString("message.attachments[0].name","fishing.pdf");
$json->UpdateString("message.attachments[0].contentType","application/pdf");
$json->UpdateInt("message.attachments[0].size",$attach1->get_NumBytes());
$json->UpdateBool("message.attachments[0].isInline",0);
$json->UpdateBd("message.attachments[0].contentBytes","base64",$attach1);

$json->UpdateString('message.attachments[1].\'@odata.type\'',"#microsoft.graph.fileAttachment");
$json->UpdateString("message.attachments[1].name","sample.docx");
$json->UpdateString("message.attachments[1].contentType","application/vnd.openxmlformats-officedocument.wordprocessingml.document");
$json->UpdateInt("message.attachments[1].size",$attach2->get_NumBytes());
$json->UpdateBool("message.attachments[1].isInline",0);
$json->UpdateBd("message.attachments[1].contentBytes","base64",$attach2);

$json->UpdateBool("saveToSentItems",1);

# -------------------------------------------------------------
# Important: This example requires Chilkat v9.5.0.68 or greater.
# -------------------------------------------------------------

# Send the HTTP POST (i.e. send the HTML email)
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST","https://graph.microsoft.com/v1.0/me/sendMail",$json,"application/json",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# The send succeeded if the response status code = 202.
# In the success case, there is no response body.  (We just get the response code to know that it succeeded.)
if ($resp->get_StatusCode() != 202) {
    $json->Load($resp->bodyStr());
    $json->put_EmitCompact(0);
    print $json->emit() . "\r\n";
    print "Failed, response status code = " . $resp->get_StatusCode() . "\r\n";
}
else {
    print "Outlook Mail with Attachments Sent." . "\r\n";
}