(Tcl) 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 Tcl Extension Downloads

Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

# Use your previously obtained access token here:
CkHttp_put_AuthToken $http "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 
set htFolderMap [new_CkHashtable]

set sbMap [new_CkStringBuilder]

CkStringBuilder_LoadFile $sbMap "qa_data/outlook/folderMap.xml" "utf-8"
CkHashtable_AddFromXmlSb $htFolderMap $sbMap

# Get the ID for the "/Inbox" folder:
set folderId [CkHashtable_lookupStr $htFolderMap "/Inbox"]
if {[CkHashtable_get_LastMethodSuccess $htFolderMap] != 1} then {
    puts "Folder ID not found"
    delete_CkHttp $http
    delete_CkHashtable $htFolderMap
    delete_CkStringBuilder $sbMap
    exit
}

set success 1
set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

# Search for emails in this folder with the phrase "Amazon SES" in the subject, and return only the id and subject.
CkHttp_SetUrlVar $http "folder_id" $folderId
CkHttp_SetUrlVar $http "select" "id,subject"
CkHttp_SetUrlVar $http "filter" "contains(subject,'Amazon SES')"

set sbResponse [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}" $sbResponse]
if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHashtable $htFolderMap
    delete_CkStringBuilder $sbMap
    delete_CkJsonObject $json
    delete_CkStringBuilder $sbResponse
    exit
}

CkJsonObject_LoadSb $json $sbResponse
# Show the results..
puts [CkJsonObject_emit $json]

# 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...

set i 0
set numEmails [CkJsonObject_SizeOfArray $json "value"]
while {$i < $numEmails} {
    CkJsonObject_put_I $json $i

    set messageId [CkJsonObject_stringOf $json "value[i].id"]
    CkHttp_SetUrlVar $http "message_id" $messageId
    puts "Deleting $messageId"
    set resp [CkHttp_quickDeleteStr $http "https://graph.microsoft.com/v1.0/me/messages/{$message_id}"]
    if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
        puts [CkHttp_lastErrorText $http]
        delete_CkHttp $http
        delete_CkHashtable $htFolderMap
        delete_CkStringBuilder $sbMap
        delete_CkJsonObject $json
        delete_CkStringBuilder $sbResponse
        exit
    }

    # A 204 response indicates success.
    if {[CkHttp_get_LastStatus $http] == 204} then {
        puts "Message deleted."
    }     else {
        puts "Message not deleted."
        puts "$resp"
    }

    set i [expr $i + 1]
}

# Sample output:

# Deleting AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_AAAAA=
# Message deleted.
# Deleting AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAADLHd_EAAAA=
# Message deleted.
# 

delete_CkHttp $http
delete_CkHashtable $htFolderMap
delete_CkStringBuilder $sbMap
delete_CkJsonObject $json
delete_CkStringBuilder $sbResponse