|
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
(VBScript) MS Graph Calendar List EventsRetrieve a list of events in a calendar. The list contains single instance meetings and series masters. For more details, see https://docs.microsoft.com/en-us/graph/api/calendar-list-events?view=graph-rest-1.0
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' 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 = 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 = CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/msGraphCalendar.json") If (success = 0) Then outFile.WriteLine(jsonToken.LastErrorText) WScript.Quit End If http.AuthToken = jsonToken.StringOf("access_token") ' Specify the calendar id success = http.SetUrlVar("id","AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAClEpRTgAAAA==") ' Send a GET request to https://graph.microsoft.com/v1.0/me/calendars/{$id}/events strResponse = http.QuickGetStr("https://graph.microsoft.com/v1.0/me/calendars/{$id}/events") If (http.LastMethodSuccess = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = CreateObject("Chilkat.JsonObject") success = json.Load(strResponse) json.EmitCompact = 0 If (http.LastStatus <> 200) Then outFile.WriteLine(json.Emit()) outFile.WriteLine("Failed, response status code = " & http.LastStatus) WScript.Quit End If outFile.WriteLine(json.Emit()) ' Sample output: ' (See parsing code below..) ' { ' "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/calendars('AQMkADAwATM0MDAAMS1i ... AClEpRTgAAAA%3D%3D')/events", ' "value": [ ' { ' "@odata.etag": "W/\"5+vF7TKKdE6bGCRqXyl2PQAClIgmmw==\"", ' "id": "AQMkADAwATM0MDAAM ... AApRZ7JkAAAA=", ' "createdDateTime": "2019-04-26T14:31:39.8791929Z", ' "lastModifiedDateTime": "2019-04-26T14:31:41.2753537Z", ' "changeKey": "5+vF7TKKdE6bGCRqXyl2PQAClIgmmw==", ' "categories": [ ' ], ' "originalStartTimeZone": "Pacific Standard Time", ' "originalEndTimeZone": "Pacific Standard Time", ' "iCalUId": "040000008200E ... A230FEBFE5F7486A", ' "reminderMinutesBeforeStart": 15, ' "isReminderOn": true, ' "hasAttachments": false, ' "subject": "Let's go for lunch", ' "bodyPreview": "Does mid month work for you?", ' "importance": "normal", ' "sensitivity": "normal", ' "isAllDay": false, ' "isCancelled": false, ' "isOrganizer": true, ' "responseRequested": true, ' "seriesMasterId": null, ' "showAs": "busy", ' "type": "singleInstance", ' "webLink": "https://outlook.live.com/owa/?itemid=AQMkADAwATM0MDAAMS1iNTcwLWI2NT ... gkal8pdj0AApRZ7JkAAAA%3D&exvsurl=1&path=/calendar/item", ' "onlineMeetingUrl": null, ' "recurrence": null, ' "responseStatus": { ' "response": "organizer", ' "time": "0001-01-01T00:00:00Z" ' }, ' "body": { ' "contentType": "html", ' "content": "<html>\r\n<head>\r\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\r\n<meta content=\"text/html; charset=us-ascii\">\r\n</head>\r\n<body>\r\nDoes mid month work for you?\r\n</body>\r\n</html>\r\n" ' }, ' "start": { ' "dateTime": "2019-11-15T20:00:00.0000000", ' "timeZone": "UTC" ' }, ' "end": { ' "dateTime": "2019-11-15T22:00:00.0000000", ' "timeZone": "UTC" ' }, ' "location": { ' "displayName": "Harry's Bar", ' "locationType": "default", ' "uniqueId": "Harry's Bar", ' "uniqueIdType": "private" ' }, ' "locations": [ ' { ' "displayName": "Harry's Bar", ' "locationType": "default", ' "uniqueId": "Harry's Bar", ' "uniqueIdType": "private" ' } ' ], ' "attendees": [ ' { ' "type": "required", ' "status": { ' "response": "none", ' "time": "0001-01-01T00:00:00Z" ' }, ' "emailAddress": { ' "name": "Adele Vance", ' "address": "adelev@contoso.onmicrosoft.com" ' } ' } ' ], ' "organizer": { ' "emailAddress": { ' "name": "Matt", ' "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 odataEtag = json.StringOf("value[i].""@odata.etag""") id = json.StringOf("value[i].id") createdDateTime = json.StringOf("value[i].createdDateTime") lastModifiedDateTime = json.StringOf("value[i].lastModifiedDateTime") changeKey = json.StringOf("value[i].changeKey") originalStartTimeZone = json.StringOf("value[i].originalStartTimeZone") originalEndTimeZone = json.StringOf("value[i].originalEndTimeZone") iCalUId = json.StringOf("value[i].iCalUId") reminderMinutesBeforeStart = json.IntOf("value[i].reminderMinutesBeforeStart") isReminderOn = json.BoolOf("value[i].isReminderOn") hasAttachments = json.BoolOf("value[i].hasAttachments") subject = json.StringOf("value[i].subject") bodyPreview = json.StringOf("value[i].bodyPreview") importance = json.StringOf("value[i].importance") sensitivity = json.StringOf("value[i].sensitivity") isAllDay = json.BoolOf("value[i].isAllDay") isCancelled = json.BoolOf("value[i].isCancelled") isOrganizer = json.BoolOf("value[i].isOrganizer") responseRequested = json.BoolOf("value[i].responseRequested") seriesMasterId = json.StringOf("value[i].seriesMasterId") showAs = json.StringOf("value[i].showAs") v_type = json.StringOf("value[i].type") webLink = json.StringOf("value[i].webLink") onlineMeetingUrl = json.StringOf("value[i].onlineMeetingUrl") recurrence = json.StringOf("value[i].recurrence") responseStatusResponse = json.StringOf("value[i].responseStatus.response") responseStatusTime = json.StringOf("value[i].responseStatus.time") bodyContentType = json.StringOf("value[i].body.contentType") bodyContent = json.StringOf("value[i].body.content") startDateTime = json.StringOf("value[i].start.dateTime") startTimeZone = json.StringOf("value[i].start.timeZone") endDateTime = json.StringOf("value[i].end.dateTime") endTimeZone = json.StringOf("value[i].end.timeZone") locationDisplayName = json.StringOf("value[i].location.displayName") locationLocationType = json.StringOf("value[i].location.locationType") locationUniqueId = json.StringOf("value[i].location.uniqueId") locationUniqueIdType = json.StringOf("value[i].location.uniqueIdType") organizerEmailAddressName = json.StringOf("value[i].organizer.emailAddress.name") organizerEmailAddressAddress = json.StringOf("value[i].organizer.emailAddress.address") j = 0 count_j = json.SizeOfArray("value[i].categories") Do While j < count_j json.J = j ' ... j = j + 1 Loop j = 0 count_j = json.SizeOfArray("value[i].locations") Do While j < count_j json.J = j displayName = json.StringOf("value[i].locations[j].displayName") locationType = json.StringOf("value[i].locations[j].locationType") uniqueId = json.StringOf("value[i].locations[j].uniqueId") uniqueIdType = json.StringOf("value[i].locations[j].uniqueIdType") j = j + 1 Loop j = 0 count_j = json.SizeOfArray("value[i].attendees") Do While j < count_j json.J = j v_type = json.StringOf("value[i].attendees[j].type") statusResponse = json.StringOf("value[i].attendees[j].status.response") statusTime = json.StringOf("value[i].attendees[j].status.time") emailAddressName = json.StringOf("value[i].attendees[j].emailAddress.name") emailAddressAddress = json.StringOf("value[i].attendees[j].emailAddress.address") j = j + 1 Loop i = i + 1 Loop outFile.WriteLine("Success.") outFile.Close |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.