(Perl) Outlook -- Delete Email

Demonstrates how to delete email using the Microsoft Graph API.

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

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:
$http->put_AuthToken("MICROSOFT_GRAPH_ACCESS_TOKEN");

# This example will search /Inbox for a message we want to delete.
# First we need to get the folder ID for /Inbox.
# Then we'll search for messages based on some criteria, and delete the matching messages.

# Get the folder ID for /Inbox from the folder map created by this example 
$htFolderMap = chilkat::CkHashtable->new();
$sbMap = chilkat::CkStringBuilder->new();
$sbMap->LoadFile("qa_data/outlook/folderMap.xml","utf-8");
$htFolderMap->AddFromXmlSb($sbMap);

# Get the ID for the "/Inbox" folder:
$folderId = $htFolderMap->lookupStr("/Inbox");
if ($htFolderMap->get_LastMethodSuccess() != 1) {
    print "Folder ID not found" . "\r\n";
    exit;
}

$success = 1;
$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);

# Search for emails in this folder with the phrase "Amazon SES" in the subject, and return only the id and subject.
$http->SetUrlVar("folder_id",$folderId);
$http->SetUrlVar("select","id,subject");
$http->SetUrlVar("filter","contains(subject,'Amazon SES')");

$sbResponse = chilkat::CkStringBuilder->new();
$success = $http->QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",$sbResponse);
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$json->LoadSb($sbResponse);
# Show the results..
print $json->emit() . "\r\n";

# Sample results:

# 	{
# 	  "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('me')/mailFolders('AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA')/messages(id,subject)",
# 	  "value": [
# 	    {
# 	      "@odata.etag": "W/\"CQAAABYAAADn68XtMop0TpsYJGpfKXY9AAA1jyl6\"",
# 	      "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_AAAAA=",
# 	      "subject": "Amazon SES Address Verification Request in region US West (Oregon)"
# 	    },
# 	    {
# 	      "@odata.etag": "W/\"CQAAABYAAADn68XtMop0TpsYJGpfKXY9AAA1jyl7\"",
# 	      "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_EAAAA=",
# 	      "subject": "Amazon SES Address Verification Request in region US West (Oregon)"
# 	    }
# 	  ]
# 	}
# 

# ------------
# Proceed to delete each of the above emails...

$i = 0;
$numEmails = $json->SizeOfArray("value");
while ($i < $numEmails) {
    $json->put_I($i);

    $messageId = $json->stringOf("value[i].id");
    $http->SetUrlVar("message_id",$messageId);
    print "Deleting " . $messageId . "\r\n";
    $resp = $http->quickDeleteStr("https://graph.microsoft.com/v1.0/me/messages/{$message_id}");
    if ($http->get_LastMethodSuccess() != 1) {
        print $http->lastErrorText() . "\r\n";
        exit;
    }

    # A 204 response indicates success.
    if ($http->get_LastStatus() == 204) {
        print "Message deleted." . "\r\n";
    }
    else {
        print "Message not deleted." . "\r\n";
        print $resp . "\r\n";
    }

    $i = $i + 1;
}

# Sample output:

# Deleting AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_AAAAA=
# Message deleted.
# Deleting AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_EAAAA=
# Message deleted.
#