(Lianja) MS Graph Create Calendar

Creates a new calendar.

For more details, see https://docs.microsoft.com/en-us/graph/api/user-post-calendars?view=graph-rest-1.0

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

// Use your previously obtained access token as shown here:
//    Get Microsoft Graph OAuth2 Access Token with Calendars.ReadWrite scope.

loJsonToken = createobject("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/msGraphCalendar.json")
if (llSuccess = .F.) then
    ? loJsonToken.LastErrorText
    release loHttp
    release loJsonToken
    return
endif

loHttp.AuthToken = loJsonToken.StringOf("access_token")

// Create a JSON body for the HTTP POST
// {
//   "name": "Work"
// }
loJson = createobject("CkJsonObject")
loJson.UpdateString("name","Work")

// POST the JSON to https://graph.microsoft.com/v1.0/me/calendars
loResp = loHttp.PostJson3("https://graph.microsoft.com/v1.0/me/calendars","application/json",loJson)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJsonToken
    release loJson
    return
endif

loJson.Load(loResp.BodyStr)
loJson.EmitCompact = .F.

if (loResp.StatusCode <> 201) then
    ? loJson.Emit()
    ? "Failed, response status code = " + str(loResp.StatusCode)
    release loResp
    release loHttp
    release loJsonToken
    release loJson
    return
endif

release loResp

? loJson.Emit()

// A sample response:
// {
//   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/calendars/$entity",
//   "id": "AQMkAD...TgAAAA==",
//   "name": "Work",
//   "color": "auto",
//   "changeKey": "5+vF7T...HjDcA==",
//   "canShare": true,
//   "canViewPrivateItems": true,
//   "canEdit": true,
//   "owner": {
//     "name": "...",
//     "address": "outlook_3A33...4CC15@outlook.com"
//   }
// }

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

lcOdataContext = loJson.StringOf('"@odata.context"')
lcId = loJson.StringOf("id")
lcName = loJson.StringOf("name")
lcColor = loJson.StringOf("color")
lcChangeKey = loJson.StringOf("changeKey")
lcCanShare = loJson.BoolOf("canShare")
lcCanViewPrivateItems = loJson.BoolOf("canViewPrivateItems")
lcCanEdit = loJson.BoolOf("canEdit")
lcOwnerName = loJson.StringOf("owner.name")
lcOwnerAddress = loJson.StringOf("owner.address")

? "Success."


release loHttp
release loJsonToken
release loJson