Perl

Outlook -- Create a Mail Folder

See more Outlook Examples

Creates a new mail folder as a child of an existing mail folder. Perl

use chilkat();

$success = 0;

# 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 create a new mail folder as a child of /Inbox/abc

# 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");
if ($htFolderMap->get_LastMethodSuccess() != 1) {
    print "Folder ID not found" . "\r\n";
    exit;
}

# Create a JSON request body with this content:
# 
# 	{
# 	  "displayName": "displayName-value",
# 	}

# This example will create /Inbox/abc/subFolderC
$jsonRequestBody = chilkat::CkJsonObject->new();
$jsonRequestBody->UpdateString("displayName","subFolderC");

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

# Create the folder "subFolderC" at the specified location.
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST","https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/childFolders",$jsonRequestBody,"application/json",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# A 201 response indicates success.
if ($http->get_LastStatus() == 201) {
    print "Folder created." . "\r\n";
}
else {
    print "Response status code = " . $resp->get_StatusCode() . "\r\n";
    print "Error: Folder not created." . "\r\n";
}

# Show the response in both cases..
$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->put_EmitCompact(0);
$jsonResponse->Load($resp->bodyStr());
print $jsonResponse->emit() . "\r\n";

# A sample successful JSON response looks like this:

# 	{
# 	  "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('me')/mailFolders('AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAL8huv8AAAA%3D')/childFolders/$entity",
# 	  "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAM6JqMIAAAA=",
# 	  "displayName": "subFolderC",
# 	  "parentFolderId": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAL8huv8AAAA=",
# 	  "childFolderCount": 0,
# 	  "unreadItemCount": 0,
# 	  "totalItemCount": 0
# 	}