(Perl) Outlook -- Delete Folder

Deletes an email folder.

Note: This example requires Chilkat v9.5.0.68 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, 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 delete the folder /Inbox/abc/subFolderC

# Get the existing folder ID 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);

$existingFolderId = $htFolderMap->lookupStr("/Inbox/abc/subFolderC");
if ($htFolderMap->get_LastMethodSuccess() != 1) {
    print "Folder ID not found" . "\r\n";
    exit;
}

$http->SetUrlVar("folder_id",$existingFolderId);

$resp = $http->quickDeleteStr("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}");
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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