(Perl) Outlook -- List Attachments for a Specific Message

Demonstrates how to list the attachments for a particular email message.

Note: This example requires Chilkat v9.5.0.67 or greater.

This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

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

$http->put_AuthToken("MICROSOFT_GRAPH_ACCESS_TOKEN");

$sbResponse = chilkat::CkStringBuilder->new();

# Sends:  GET /users/{user_id | userPrincipalName}/messages/{message_id}/attachments
# Note: It is also possible to use the literal string "me" for the current logged-on user.
# For example: GET /me/messages/{message_id}/attachments

$http->ClearUrlVars();
$http->SetUrlVar("userPrincipalName",'chilkatsoft@outlook.com');

# Assume we already have a message ID from previously listing the messages in a folder
$messageId = "AAMkADYzZWE3YmZmLWU0YzgtNGNkZC04MGE1LWFiYTFlNTRlY2QwYQBGAAAAAAAu7cUXL5YOTrdsUIw7-v8FBwBUcG0qWqkmQYqWLHQataQxAACnwqJUAABUcG0qWqkmQYqWLHQataQxAACnwrnOAAA=";
$http->SetUrlVar("message_id",$messageId);

# Send the request to list the messages.
$success = $http->QuickGetSb("https://graph.microsoft.com/v1.0/users/{$userPrincipalName}/messages/{$message_id}/attachments",$sbResponse);
if (($success != 1) and ($http->get_LastStatus() == 0)) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->LoadSb($sbResponse);
$json->put_EmitCompact(0);

print "Status code = " . $http->get_LastStatus() . "\r\n";
if ($http->get_LastStatus() != 200) {
    print $json->emit() . "\r\n";
    print "Failed." . "\r\n";
}

$sbResponse->Clear();
$json->EmitSb($sbResponse);
$sbResponse->WriteFile("qa_output/attachments.txt","utf-8",0);

print "OK" . "\r\n";