(Perl) Outlook Send Email

See more Outlook Examples

This example sends a simple plain-text email. Other examples exist for:

Sending HTML email.
Sending HTML email with embedded images.
Sending email with attachments.
Sending HTML email with embedded images and attachments.

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.

$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).

$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/microsoftGraph.json");
if ($success == 0) {
    print $jsonToken->lastErrorText() . "\r\n";
    exit;
}

$http->put_AuthToken($jsonToken->stringOf("access_token"));

# To send email, 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.)
# 

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

# 	{
# 	  "message": {
# 	    "subject": "Meet for lunch?",
# 	    "body": {
# 	      "contentType": "Text",
# 	      "content": "The new cafeteria is open."
# 	    },
# 	    "toRecipients": [
# 	      {
# 	        "emailAddress": {
# 		  "name": "Chilkat Software",
# 	          "address": "admin@chilkat.io"
# 	        }
# 	      },
# 	      {
# 	        "emailAddress": {
# 	          "address": "chilkat.support@gmail.com"
# 	        }
# 	      }
# 	    ],
# 	    "ccRecipients": [
# 	      {
# 	        "emailAddress": {
# 		  "name": "Chilkat Blog",
# 		  "address": "admin@cknotes.com"
# 	        }
# 	      }
# 	    ]
# 	  },
# 	  "saveToSentItems": true
# 	}
# 

# Build the above JSON.
$json = chilkat::CkJsonObject->new();
$json->UpdateString("message.subject","Meet for lunch?");
$json->UpdateString("message.body.contentType","Text");
$json->UpdateString("message.body.content","The new cafeteria is open.");
$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->UpdateBool("saveToSentItems",1);

# Send the HTTP POST (i.e. send the email)
# resp is a HttpResponse
$resp = $http->PostJson2("https://graph.microsoft.com/v1.0/me/sendMail","application/json",$json->emit());
if ($http->get_LastMethodSuccess() != 1) {
    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 Sent." . "\r\n";
}