Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Outlook Calendar Delete EventSee more Outlook Calendar ExamplesRemoves 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
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' Use your previously obtained access token here: Get Outlook Calendar OAuth2 Access Token (Azure AD v2.0 Endpoint). Dim jsonToken As Chilkat.JsonObject Set jsonToken = Chilkat.NewJsonObject success = jsonToken.LoadFile("qa_data/tokens/outlookCalendar.json") If (success = False) Then Debug.Print jsonToken.LastErrorText Exit Sub End If http.AuthToken = jsonToken.StringOf("access_token") ' Specify the ID of the event to be deleted. eventId = "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgENAAAA5_vF7TKKdE6bGCRqXyl2PQAEaDkEcAAAAA==" Dim sbUrl As Chilkat.StringBuilder Set sbUrl = Chilkat.NewStringBuilder Dim success As Boolean success = sbUrl.Append("https://graph.microsoft.com/v1.0/me/events/") success = sbUrl.Append(eventId) Set resp = http.QuickRequest("DELETE",sbUrl.GetAsString()) If (http.LastMethodSuccess <> True) Then Debug.Print http.LastErrorText Exit Sub End If Debug.Print "Response status code = "; resp.StatusCode ' The send succeeded if the response status code = 204. If (resp.StatusCode <> 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" ' } ' } ' } Debug.Print resp.BodyStr Debug.Print "Failed" Else Debug.Print "Event deleted." End If |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.