(Lianja) MS Graph Calendar Update Event

Update the properties of an event object.

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

// Implements the following CURL command:

// curl -X PATCH https://graph.microsoft.com/v1.0/me/events/{id} \
//   -H "Content-type: application/json" \
//   -d '{
//   "originalStartTimeZone": "originalStartTimeZone-value",
//   "originalEndTimeZone": "originalEndTimeZone-value",
//   "responseStatus": {
//     "response": "",
//     "time": "datetime-value"
//   },
//   "recurrence": null,
//   "iCalUId": "iCalUId-value",
//   "reminderMinutesBeforeStart": 99,
//   "isOnlineMeeting": true,
//   "onlineMeetingProvider": "teamsForBusiness",
//   "isReminderOn": true,
//   "categories": ["Red category"]
// }'

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON

// The following JSON is sent in the request body.

// {
//   "originalStartTimeZone": "originalStartTimeZone-value",
//   "originalEndTimeZone": "originalEndTimeZone-value",
//   "responseStatus": {
//     "response": "",
//     "time": "datetime-value"
//   },
//   "recurrence": null,
//   "iCalUId": "iCalUId-value",
//   "reminderMinutesBeforeStart": 99,
//   "isOnlineMeeting": true,
//   "onlineMeetingProvider": "teamsForBusiness",
//   "isReminderOn": true,
//   "categories": [
//     "Red category"
//   ]
// }

loJson = createobject("CkJsonObject")
loJson.UpdateString("originalStartTimeZone","originalStartTimeZone-value")
loJson.UpdateString("originalEndTimeZone","originalEndTimeZone-value")
loJson.UpdateString("responseStatus.response","")
loJson.UpdateString("responseStatus.time","datetime-value")
loJson.UpdateNull("recurrence")
loJson.UpdateString("iCalUId","iCalUId-value")
loJson.UpdateInt("reminderMinutesBeforeStart",99)
loJson.UpdateBool("isOnlineMeeting",.T.)
loJson.UpdateString("onlineMeetingProvider","teamsForBusiness")
loJson.UpdateBool("isReminderOn",.T.)
loJson.UpdateString("categories[0]","Red category")

loHttp.SetRequestHeader("Content-type","application/json")

loSbRequestBody = createobject("CkStringBuilder")
loJson.EmitSb(loSbRequestBody)

loResp = loHttp.PTextSb("PATCH","https://graph.microsoft.com/v1.0/me/events/{id}",loSbRequestBody,"utf-8","application/json",.F.,.F.)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJson
    release loSbRequestBody
    return
endif

loSbResponseBody = createobject("CkStringBuilder")
loResp.GetBodySb(loSbResponseBody)
loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    release loResp
    release loHttp
    release loJson
    release loSbRequestBody
    release loSbResponseBody
    release loJResp
    return
endif

release loResp

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "originalStartTimeZone": "originalStartTimeZone-value",
//   "originalEndTimeZone": "originalEndTimeZone-value",
//   "responseStatus": {
//     "response": "",
//     "time": "datetime-value"
//   },
//   "recurrence": null,
//   "iCalUId": "iCalUId-value",
//   "reminderMinutesBeforeStart": 99,
//   "isOnlineMeeting": true,
//   "onlineMeetingProvider": "teamsForBusiness",
//   "isReminderOn": true,
//   "onlineMeeting": {
//     "joinUrl": "https://teams.microsoft.com/l/meetup-join/19%3ameeting_NzIyNzhlMGEtM2YyZC00ZmY0LTlhNzUtZmZjNWFmZGNlNzE2%40thread.v2/0?context=%7b%22Tid%22%3a%2272f988bf-86f1-41af-91ab-2d7cd011db47%22%2c%22Oid%22%3a%22bc55b173-cff6-457d-b7a1-64bda7d7581a%22%7d",
//     "conferenceId": "177513992",
//     "tollNumber": "+91 22 6241 6885"
//   }
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

lcOriginalStartTimeZone = loJResp.StringOf("originalStartTimeZone")
lcOriginalEndTimeZone = loJResp.StringOf("originalEndTimeZone")
lcResponseStatusResponse = loJResp.StringOf("responseStatus.response")
lcResponseStatusTime = loJResp.StringOf("responseStatus.time")
lcRecurrence = loJResp.StringOf("recurrence")
lcICalUId = loJResp.StringOf("iCalUId")
lnReminderMinutesBeforeStart = loJResp.IntOf("reminderMinutesBeforeStart")
llIsOnlineMeeting = loJResp.BoolOf("isOnlineMeeting")
lcOnlineMeetingProvider = loJResp.StringOf("onlineMeetingProvider")
llIsReminderOn = loJResp.BoolOf("isReminderOn")
lcOnlineMeetingJoinUrl = loJResp.StringOf("onlineMeeting.joinUrl")
lcOnlineMeetingConferenceId = loJResp.StringOf("onlineMeeting.conferenceId")
lcOnlineMeetingTollNumber = loJResp.StringOf("onlineMeeting.tollNumber")


release loHttp
release loJson
release loSbRequestBody
release loSbResponseBody
release loJResp