Delphi ActiveX

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.

Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
jsonToken: TChilkatJsonObject;
eventId: WideString;
sbUrl: TChilkatStringBuilder;
url: WideString;
resp: TChilkatHttpResponse;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

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

jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/outlookCalendar.json');
if (success = 0) then
  begin
    Memo1.Lines.Add(jsonToken.LastErrorText);
    Exit;
  end;

http.AuthToken := jsonToken.StringOf('access_token');

// Specify the ID of the event to be deleted.
eventId := 'AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgENAAAA5_vF7TKKdE6bGCRqXyl2PQAEaDkEcAAAAA==';

sbUrl := TChilkatStringBuilder.Create(Self);
sbUrl.Append('https://graph.microsoft.com/v1.0/me/events/');
sbUrl.Append(eventId);

url := sbUrl.GetAsString();
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpNoBody('DELETE',url,resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Response status code = ' + IntToStr(resp.StatusCode));

// The send succeeded if the response status code = 204.
if (resp.StatusCode <> 204) then
  begin
    // 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"
    // 		    }
    // 		  }
    // 		}

    Memo1.Lines.Add(resp.BodyStr);
    Memo1.Lines.Add('Failed');
  end
else
  begin
    Memo1.Lines.Add('Event deleted.');
  end;
end;