Xbase++

Outlook Calendar List Calendars

See more Outlook Calendar Examples

Get all the user's calendars. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJsonToken
LOCAL oResp
LOCAL oJson
LOCAL cId
LOCAL cName
LOCAL cColor
LOCAL cHexColor
LOCAL nIsDefaultCalendar
LOCAL cChangeKey
LOCAL nCanShare
LOCAL nCanViewPrivateItems
LOCAL nCanEdit
LOCAL cDefaultOnlineMeetingProvider
LOCAL nIsTallyingResponses
LOCAL nIsRemovable
LOCAL cOwnerName
LOCAL cOwnerAddress
LOCAL j
LOCAL nCount_j
LOCAL cStrVal
LOCAL cOdata_context
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Use your previously obtained access token here: Get Outlook Calendar OAuth2 Access Token (Azure AD v2.0 Endpoint).

oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/outlookCalendar.json")
IF (nSuccess == 0)
    ? oJsonToken:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

oHttp:AuthToken := oJsonToken:StringOf("access_token")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpNoBody("GET", "https://graph.microsoft.com/v1.0/me/calendars", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response status code = " + Str(oResp:StatusCode)

//  The HTTP request succeeded if the response status code = 200.
IF (oResp:StatusCode != 200)
    ? oResp:BodyStr
    ? "Failed"
    oHttp:destroy()
    oJsonToken:destroy()
    oResp:destroy()
    RETURN
ENDIF

oJson := CreateObject("Chilkat.JsonObject")
oJson:Load(oResp:BodyStr)
oJson:EmitCompact := 0
? oJson:Emit()

//  Here is a sample response:

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

//  {
//      "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#me/calendars",
//      "value": [
//          {
//              "@odata.id": "https://graph.microsoft.com/v1.0/users('ddfcd489-628b-40d7-b48b-57002df800e5@1717622f-1d94-4d0c-9d74-709fad664b77')/calendars('AAMkAGI2TGuLAAA=')",
//              "id": "AAMkAGI2TGuLAAA=",
//              "name": "Calendar",
//              "color": "auto",
//              "changeKey": "nfZyf7VcrEKLNoU37KWlkQAAA0x0+w==",
//              "canShare":true,
//              "canViewPrivateItems":true,
//              "hexColor": "",
//              "canEdit":true,
//              "allowedOnlineMeetingProviders": [
//                  "teamsForBusiness"
//              ],
//              "defaultOnlineMeetingProvider": "teamsForBusiness",
//              "isTallyingResponses": true,
//              "isRemovable": false,
//              "owner":{
//                  "name":"Samantha Booth",
//                  "address":"samanthab@adatum.onmicrosoft.com"
//              }
//          }
//      ]
//  }

cOdata_context := oJson:StringOf('"@odata.context"')
i := 0
nCount_i := oJson:SizeOfArray("value")
DO WHILE i < nCount_i
    oJson:I := i
    cId := oJson:StringOf("value[i].id")
    cName := oJson:StringOf("value[i].name")
    cColor := oJson:StringOf("value[i].color")
    cHexColor := oJson:StringOf("value[i].hexColor")
    nIsDefaultCalendar := oJson:BoolOf("value[i].isDefaultCalendar")
    cChangeKey := oJson:StringOf("value[i].changeKey")
    nCanShare := oJson:BoolOf("value[i].canShare")
    nCanViewPrivateItems := oJson:BoolOf("value[i].canViewPrivateItems")
    nCanEdit := oJson:BoolOf("value[i].canEdit")
    cDefaultOnlineMeetingProvider := oJson:StringOf("value[i].defaultOnlineMeetingProvider")
    nIsTallyingResponses := oJson:BoolOf("value[i].isTallyingResponses")
    nIsRemovable := oJson:BoolOf("value[i].isRemovable")
    cOwnerName := oJson:StringOf("value[i].owner.name")
    cOwnerAddress := oJson:StringOf("value[i].owner.address")
    j := 0
    nCount_j := oJson:SizeOfArray("value[i].allowedOnlineMeetingProviders")
    DO WHILE j < nCount_j
        oJson:J := j
        cStrVal := oJson:StringOf("value[i].allowedOnlineMeetingProviders[j]")
        j := j + 1
    ENDDO
    i := i + 1
ENDDO

oHttp:destroy()
oJsonToken:destroy()
oResp:destroy()
oJson:destroy()