PureBasic

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.

PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 0

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Use your previously obtained access token here: Get Outlook Calendar OAuth2 Access Token (Azure AD v2.0 Endpoint).

    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/outlookCalendar.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(jsonToken)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    ; Specify the ID of the event to be deleted.
    eventId.s = "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgENAAAA5_vF7TKKdE6bGCRqXyl2PQAEaDkEcAAAAA=="

    sbUrl.i = CkStringBuilder::ckCreate()
    If sbUrl.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbUrl,"https://graph.microsoft.com/v1.0/me/events/")
    CkStringBuilder::ckAppend(sbUrl,eventId)

    url.s = CkStringBuilder::ckGetAsString(sbUrl)
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpNoBody(http,"DELETE",url,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkStringBuilder::ckDispose(sbUrl)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    Debug "Response status code = " + Str(CkHttpResponse::ckStatusCode(resp))

    ; The send succeeded if the response status code = 204.
    If CkHttpResponse::ckStatusCode(resp) <> 204
        ; 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"
        ; 		    }
        ; 		  }
        ; 		}

        Debug CkHttpResponse::ckBodyStr(resp)
        Debug "Failed"
    Else
        Debug "Event deleted."
    EndIf



    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(jsonToken)
    CkStringBuilder::ckDispose(sbUrl)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure