Visual FoxPro Requires Chilkat v11.0.0+
Outlook -- Copy Mail Folder and Contents to another Mail Folder

Copy a mailfolder and its contents to another mailfolder.
Chilkat Visual FoxPro Downloads

Visual FoxPro
LOCAL lnSuccess
LOCAL loHttp
LOCAL loHtFolderMap
LOCAL loSbMap
LOCAL lcSrcFolderId
LOCAL lcDstFolderId
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 copy /Inbox/abc/subFolderA and its contents to /Inbox/xyz
*  We'll need the folder ids for both source and destination folders..

*  Get the folder IDs 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)

*  Get the IDs for the source and destination folders.
lcSrcFolderId = loHtFolderMap.LookupStr("/Inbox/abc/subFolderA")
IF (loHtFolderMap.LastMethodSuccess <> 1) THEN
    ? "Folder ID not found"
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    CANCEL
ENDIF

lcDstFolderId = loHtFolderMap.LookupStr("/Inbox/xyz")
IF (loHtFolderMap.LastMethodSuccess <> 1) THEN
    ? "Destination folder ID not found"
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    CANCEL
ENDIF

*  Create a JSON request body with this content:
*  
*  		{
*  		  "DestinationId": "destinationId-value"
*  		}

loJsonRequestBody = CreateObject('Chilkat.JsonObject')
loJsonRequestBody.UpdateString("DestinationId",lcDstFolderId)

loHttp.SetUrlVar("src_folder_id",lcSrcFolderId)

*  Copy the source folder to the new location
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://graph.microsoft.com/v1.0/me/mailFolders/{$src_folder_id}/copy",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 (loResp.StatusCode = 201) THEN
    ? "Folder copied."
ELSE
    ? "Response status code = " + STR(loResp.StatusCode)
    ? "Error: Folder not copied."
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#mailFolder",
*  	  "@odata.type": "#microsoft.graph.mailFolder",
*  	  "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAM6JqMAAAAA=",
*  	  "displayName": "subFolderA",
*  	  "parentFolderId": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAL8huwEAAAA=",
*  	  "childFolderCount": 1,
*  	  "unreadItemCount": 0,
*  	  "totalItemCount": 0
*  	}

RELEASE loHttp
RELEASE loHtFolderMap
RELEASE loSbMap
RELEASE loJsonRequestBody
RELEASE loResp
RELEASE loJsonResponse