Visual FoxPro
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 Visual FoxPro Downloads

Visual FoxPro
LOCAL lnSuccess
LOCAL loHttp
LOCAL loHtFolderMap
LOCAL loSbMap
LOCAL lcFolderId
LOCAL loJson
LOCAL loSbResponse
LOCAL lcResp
LOCAL lcMessageId
LOCAL i
LOCAL lnNumEmails

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 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 
loHtFolderMap = CreateObject('Chilkat.Hashtable')
loSbMap = CreateObject('Chilkat.StringBuilder')
loSbMap.LoadFile("qa_data/outlook/folderMap.xml","utf-8")
loHtFolderMap.AddFromXmlSb(loSbMap)

*  Get the ID for the "/Inbox" folder:
lcFolderId = loHtFolderMap.LookupStr("/Inbox")
IF (loHtFolderMap.LastMethodSuccess <> 1) THEN
    ? "Folder ID not found"
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    CANCEL
ENDIF

lnSuccess = 1
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0

*  Search for emails in this folder with the phrase "Amazon SES" in the subject, and return only the id and subject.
loHttp.SetUrlVar("folder_id",lcFolderId)
loHttp.SetUrlVar("select","id,subject")
loHttp.SetUrlVar("filter","contains(subject,'Amazon SES')")

loSbResponse = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",loSbResponse)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    CANCEL
ENDIF

loJson.LoadSb(loSbResponse)
*  Show the results..
? loJson.Emit()

*  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
lnNumEmails = loJson.SizeOfArray("value")
DO WHILE i < lnNumEmails
    loJson.I = i

    lcMessageId = loJson.StringOf("value[i].id")
    loHttp.SetUrlVar("message_id",lcMessageId)
    ? "Deleting " + lcMessageId
    lcResp = loHttp.QuickDeleteStr("https://graph.microsoft.com/v1.0/me/messages/{$message_id}")
    IF (loHttp.LastMethodSuccess <> 1) THEN
        ? loHttp.LastErrorText
        RELEASE loHttp
        RELEASE loHtFolderMap
        RELEASE loSbMap
        RELEASE loJson
        RELEASE loSbResponse
        CANCEL
    ENDIF

    *  A 204 response indicates success.
    IF (loHttp.LastStatus = 204) THEN
        ? "Message deleted."
    ELSE
        ? "Message not deleted."
        ? lcResp
    ENDIF

    i = i + 1
ENDDO

*  Sample output:

*  Deleting AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_AAAAA=
*  Message deleted.
*  Deleting AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_EAAAA=
*  Message deleted.
*

RELEASE loHttp
RELEASE loHtFolderMap
RELEASE loSbMap
RELEASE loJson
RELEASE loSbResponse