Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) MS Graph Calendars ListGet all the user's calendars (/calendars navigation property), get the calendars from the default calendar group or from a specific calendar group. For more details, see https://docs.microsoft.com/en-us/graph/api/user-list-calendars?view=graph-rest-1.0
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") ' Use your previously obtained access token as shown here: ' Get Microsoft Graph OAuth2 Access Token with Calendars.ReadWrite scope. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/msGraphCalendar.json") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( jsonToken.LastErrorText) & "</pre>" Response.End End If http.AuthToken = jsonToken.StringOf("access_token") ' Send a GET request to https://graph.microsoft.com/v1.0/me/calendars strResponse = http.QuickGetStr("https://graph.microsoft.com/v1.0/me/calendars") If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.Load(strResponse) json.EmitCompact = 0 If (http.LastStatus <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Failed, response status code = " & http.LastStatus) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' Sample output: ' { ' "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/calendars", ' "value": [ ' { ' "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAAAiCsAAAA", ' "name": "Calendar", ' "color": "auto", ' "changeKey": "5+vF7TKKdE6bGCRqXyl2PQAAAAAiEQ==", ' "canShare": true, ' "canViewPrivateItems": true, ' "canEdit": true, ' "owner": { ' "name": "...", ' "address": "outlook_3A33FCEB9B74CC15@outlook.com" ' } ' }, ' { ' "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAClEpRTgAAAA==", ' "name": "Work", ' "color": "auto", ' "changeKey": "5+vF7TKKdE6bGCRqXyl2PQAClHjDcA==", ' "canShare": true, ' "canViewPrivateItems": true, ' "canEdit": true, ' "owner": { ' "name": "...", ' "address": "outlook_3A33FCEB9B74CC15@outlook.com" ' } ' } ' ] ' } ' ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON odataContext = json.StringOf("""@odata.context""") i = 0 count_i = json.SizeOfArray("value") Do While i < count_i json.I = i id = json.StringOf("value[i].id") name = json.StringOf("value[i].name") color = json.StringOf("value[i].color") changeKey = json.StringOf("value[i].changeKey") canShare = json.BoolOf("value[i].canShare") canViewPrivateItems = json.BoolOf("value[i].canViewPrivateItems") canEdit = json.BoolOf("value[i].canEdit") ownerName = json.StringOf("value[i].owner.name") ownerAddress = json.StringOf("value[i].owner.address") i = i + 1 Loop Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>" %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.