(Tcl) Outlook Calendar Delete Event

See more Outlook Calendar Examples

Removes the specified event from the containing calendar.

If the event is a meeting, deleting the event on the organizer's calendar sends a cancellation message to the meeting attendees.

For more information, see https://docs.microsoft.com/en-us/graph/api/event-delete?view=graph-rest-1.0&tabs=http

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: Get Outlook Calendar OAuth2 Access Token (Azure AD v2.0 Endpoint).

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/outlookCalendar.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

# Specify the ID of the event to be deleted.
set eventId "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgENAAAA5_vF7TKKdE6bGCRqXyl2PQAEaDkEcAAAAA=="

set sbUrl [new_CkStringBuilder]

CkStringBuilder_Append $sbUrl "https://graph.microsoft.com/v1.0/me/events/"
CkStringBuilder_Append $sbUrl $eventId

# resp is a CkHttpResponse
set resp [CkHttp_QuickRequest $http "DELETE" [CkStringBuilder_getAsString $sbUrl]]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkStringBuilder $sbUrl
    exit
}

puts "Response status code = [CkHttpResponse_get_StatusCode $resp]"

# The send succeeded if the response status code = 204.
if {[CkHttpResponse_get_StatusCode $resp] != 204} then {
    # If the event for the given ID does not exist, you'll get a 404 response code with this response body:

    # 		{
    # 		  "error": {
    # 		    "code": "ErrorItemNotFound",
    # 		    "message": "The specified object was not found in the store.",
    # 		    "innerError": {
    # 		      "date": "2021-04-19T00:02:04",
    # 		      "request-id": "0eac929a-6ee9-42f8-bb56-39799331c6f4",
    # 		      "client-request-id": "0eac929a-6ee9-42f8-bb56-39799331c6f4"
    # 		    }
    # 		  }
    # 		}

    puts [CkHttpResponse_bodyStr $resp]
    puts "Failed"
} else {
    puts "Event deleted."
}

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkStringBuilder $sbUrl