(PureBasic) MS Graph Calendar List Events

Retrieve 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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/msGraphCalendar.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(jsonToken)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    ; Specify the calendar id
    CkHttp::ckSetUrlVar(http,"id","AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAClEpRTgAAAA==")
    ; Send a GET request to https://graph.microsoft.com/v1.0/me/calendars/{$id}/events
    strResponse.s = CkHttp::ckQuickGetStr(http,"https://graph.microsoft.com/v1.0/me/calendars/{$id}/events")
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoad(json,strResponse)
    CkJsonObject::setCkEmitCompact(json, 0)

    If CkHttp::ckLastStatus(http) <> 200
        Debug CkJsonObject::ckEmit(json)
        Debug "Failed, response status code = " + Str(CkHttp::ckLastStatus(http))
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    Debug CkJsonObject::ckEmit(json)

    ; 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.s
    i.i
    count_i.i
    odataEtag.s
    id.s
    createdDateTime.s
    lastModifiedDateTime.s
    changeKey.s
    originalStartTimeZone.s
    originalEndTimeZone.s
    iCalUId.s
    reminderMinutesBeforeStart.i
    isReminderOn.i
    hasAttachments.i
    subject.s
    bodyPreview.s
    importance.s
    sensitivity.s
    isAllDay.i
    isCancelled.i
    isOrganizer.i
    responseRequested.i
    seriesMasterId.s
    showAs.s
    v_type.s
    webLink.s
    onlineMeetingUrl.s
    recurrence.s
    responseStatusResponse.s
    responseStatusTime.s
    bodyContentType.s
    bodyContent.s
    startDateTime.s
    startTimeZone.s
    endDateTime.s
    endTimeZone.s
    locationDisplayName.s
    locationLocationType.s
    locationUniqueId.s
    locationUniqueIdType.s
    organizerEmailAddressName.s
    organizerEmailAddressAddress.s
    j.i
    count_j.i
    displayName.s
    locationType.s
    uniqueId.s
    uniqueIdType.s
    statusResponse.s
    statusTime.s
    emailAddressName.s
    emailAddressAddress.s

    odataContext = CkJsonObject::ckStringOf(json,Chr(34) + "@odata.context" + Chr(34))
    i = 0
    count_i = CkJsonObject::ckSizeOfArray(json,"value")
    While i < count_i
        CkJsonObject::setCkI(json, i)
        odataEtag = CkJsonObject::ckStringOf(json,"value[i]." + Chr(34) + "@odata.etag" + Chr(34))
        id = CkJsonObject::ckStringOf(json,"value[i].id")
        createdDateTime = CkJsonObject::ckStringOf(json,"value[i].createdDateTime")
        lastModifiedDateTime = CkJsonObject::ckStringOf(json,"value[i].lastModifiedDateTime")
        changeKey = CkJsonObject::ckStringOf(json,"value[i].changeKey")
        originalStartTimeZone = CkJsonObject::ckStringOf(json,"value[i].originalStartTimeZone")
        originalEndTimeZone = CkJsonObject::ckStringOf(json,"value[i].originalEndTimeZone")
        iCalUId = CkJsonObject::ckStringOf(json,"value[i].iCalUId")
        reminderMinutesBeforeStart = CkJsonObject::ckIntOf(json,"value[i].reminderMinutesBeforeStart")
        isReminderOn = CkJsonObject::ckBoolOf(json,"value[i].isReminderOn")
        hasAttachments = CkJsonObject::ckBoolOf(json,"value[i].hasAttachments")
        subject = CkJsonObject::ckStringOf(json,"value[i].subject")
        bodyPreview = CkJsonObject::ckStringOf(json,"value[i].bodyPreview")
        importance = CkJsonObject::ckStringOf(json,"value[i].importance")
        sensitivity = CkJsonObject::ckStringOf(json,"value[i].sensitivity")
        isAllDay = CkJsonObject::ckBoolOf(json,"value[i].isAllDay")
        isCancelled = CkJsonObject::ckBoolOf(json,"value[i].isCancelled")
        isOrganizer = CkJsonObject::ckBoolOf(json,"value[i].isOrganizer")
        responseRequested = CkJsonObject::ckBoolOf(json,"value[i].responseRequested")
        seriesMasterId = CkJsonObject::ckStringOf(json,"value[i].seriesMasterId")
        showAs = CkJsonObject::ckStringOf(json,"value[i].showAs")
        v_type = CkJsonObject::ckStringOf(json,"value[i].type")
        webLink = CkJsonObject::ckStringOf(json,"value[i].webLink")
        onlineMeetingUrl = CkJsonObject::ckStringOf(json,"value[i].onlineMeetingUrl")
        recurrence = CkJsonObject::ckStringOf(json,"value[i].recurrence")
        responseStatusResponse = CkJsonObject::ckStringOf(json,"value[i].responseStatus.response")
        responseStatusTime = CkJsonObject::ckStringOf(json,"value[i].responseStatus.time")
        bodyContentType = CkJsonObject::ckStringOf(json,"value[i].body.contentType")
        bodyContent = CkJsonObject::ckStringOf(json,"value[i].body.content")
        startDateTime = CkJsonObject::ckStringOf(json,"value[i].start.dateTime")
        startTimeZone = CkJsonObject::ckStringOf(json,"value[i].start.timeZone")
        endDateTime = CkJsonObject::ckStringOf(json,"value[i].end.dateTime")
        endTimeZone = CkJsonObject::ckStringOf(json,"value[i].end.timeZone")
        locationDisplayName = CkJsonObject::ckStringOf(json,"value[i].location.displayName")
        locationLocationType = CkJsonObject::ckStringOf(json,"value[i].location.locationType")
        locationUniqueId = CkJsonObject::ckStringOf(json,"value[i].location.uniqueId")
        locationUniqueIdType = CkJsonObject::ckStringOf(json,"value[i].location.uniqueIdType")
        organizerEmailAddressName = CkJsonObject::ckStringOf(json,"value[i].organizer.emailAddress.name")
        organizerEmailAddressAddress = CkJsonObject::ckStringOf(json,"value[i].organizer.emailAddress.address")
        j = 0
        count_j = CkJsonObject::ckSizeOfArray(json,"value[i].categories")
        While j < count_j
            CkJsonObject::setCkJ(json, j)
            ; ...
            j = j + 1
        Wend
        j = 0
        count_j = CkJsonObject::ckSizeOfArray(json,"value[i].locations")
        While j < count_j
            CkJsonObject::setCkJ(json, j)
            displayName = CkJsonObject::ckStringOf(json,"value[i].locations[j].displayName")
            locationType = CkJsonObject::ckStringOf(json,"value[i].locations[j].locationType")
            uniqueId = CkJsonObject::ckStringOf(json,"value[i].locations[j].uniqueId")
            uniqueIdType = CkJsonObject::ckStringOf(json,"value[i].locations[j].uniqueIdType")
            j = j + 1
        Wend
        j = 0
        count_j = CkJsonObject::ckSizeOfArray(json,"value[i].attendees")
        While j < count_j
            CkJsonObject::setCkJ(json, j)
            v_type = CkJsonObject::ckStringOf(json,"value[i].attendees[j].type")
            statusResponse = CkJsonObject::ckStringOf(json,"value[i].attendees[j].status.response")
            statusTime = CkJsonObject::ckStringOf(json,"value[i].attendees[j].status.time")
            emailAddressName = CkJsonObject::ckStringOf(json,"value[i].attendees[j].emailAddress.name")
            emailAddressAddress = CkJsonObject::ckStringOf(json,"value[i].attendees[j].emailAddress.address")
            j = j + 1
        Wend
        i = i + 1
    Wend

    Debug "Success."


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(jsonToken)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure