![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Outlook -- Create a Mail FolderCreates a new mail folder as a child of an existing mail folder. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loHttp LOCAL loHtFolderMap LOCAL loSbMap LOCAL lcExistingFolderId LOCAL loJsonRequestBody LOCAL loResp LOCAL loJsonResponse lnSuccess = 0 * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loHttp = CreateObject('Chilkat.Http') * Use your previously obtained access token here: loHttp.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 loHtFolderMap = CreateObject('Chilkat.Hashtable') loSbMap = CreateObject('Chilkat.StringBuilder') loSbMap.LoadFile("qa_data/outlook/folderMap.xml","utf-8") loHtFolderMap.AddFromXmlSb(loSbMap) lcExistingFolderId = loHtFolderMap.LookupStr("/Inbox/abc") IF (loHtFolderMap.LastMethodSuccess <> 1) THEN ? "Folder ID not found" RELEASE loHttp RELEASE loHtFolderMap RELEASE loSbMap CANCEL ENDIF * Create a JSON request body with this content: * * { * "displayName": "displayName-value", * } * This example will create /Inbox/abc/subFolderC loJsonRequestBody = CreateObject('Chilkat.JsonObject') loJsonRequestBody.UpdateString("displayName","subFolderC") loHttp.SetUrlVar("folder_id",lcExistingFolderId) * Create the folder "subFolderC" at the specified location. loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpJson("POST","https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/childFolders",loJsonRequestBody,"application/json",loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loHtFolderMap RELEASE loSbMap RELEASE loJsonRequestBody RELEASE loResp CANCEL ENDIF * A 201 response indicates success. IF (loHttp.LastStatus = 201) THEN ? "Folder created." ELSE ? "Response status code = " + STR(loResp.StatusCode) ? "Error: Folder not created." ENDIF * Show the response in both cases.. loJsonResponse = CreateObject('Chilkat.JsonObject') loJsonResponse.EmitCompact = 0 loJsonResponse.Load(loResp.BodyStr) ? loJsonResponse.Emit() * 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 * } RELEASE loHttp RELEASE loHtFolderMap RELEASE loSbMap RELEASE loJsonRequestBody RELEASE loResp RELEASE loJsonResponse |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.