![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) MS Graph Create CalendarCreates a new calendar. For more details, see https://docs.microsoft.com/en-us/graph/api/user-post-calendars?view=graph-rest-1.0 Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loHttp LOCAL loJsonToken LOCAL loJson LOCAL loResp LOCAL lcOdataContext LOCAL lcId LOCAL lcName LOCAL lcColor LOCAL lcChangeKey LOCAL lcCanShare LOCAL lcCanViewPrivateItems LOCAL lcCanEdit LOCAL lcOwnerName LOCAL lcOwnerAddress lnSuccess = 0 * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loHttp = CreateObject('Chilkat.Http') * Use your previously obtained access token as shown here: * Get Microsoft Graph OAuth2 Access Token with Calendars.ReadWrite scope. loJsonToken = CreateObject('Chilkat.JsonObject') lnSuccess = loJsonToken.LoadFile("qa_data/tokens/msGraphCalendar.json") IF (lnSuccess = 0) THEN ? loJsonToken.LastErrorText RELEASE loHttp RELEASE loJsonToken CANCEL ENDIF loHttp.AuthToken = loJsonToken.StringOf("access_token") * Create a JSON body for the HTTP POST * { * "name": "Work" * } loJson = CreateObject('Chilkat.JsonObject') loJson.UpdateString("name","Work") * POST the JSON to https://graph.microsoft.com/v1.0/me/calendars loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpJson("POST","https://graph.microsoft.com/v1.0/me/calendars",loJson,"application/json",loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loJsonToken RELEASE loJson RELEASE loResp CANCEL ENDIF loJson.Load(loResp.BodyStr) loJson.EmitCompact = 0 IF (loResp.StatusCode <> 201) THEN ? loJson.Emit() ? "Failed, response status code = " + STR(loResp.StatusCode) RELEASE loHttp RELEASE loJsonToken RELEASE loJson RELEASE loResp CANCEL ENDIF ? 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 RELEASE loResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.