PowerBuilder

Outlook Calendar List Events

See more Outlook Calendar Examples

Retrieve a list of events in a calendar. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_JsonToken
string ls_CalendarId
oleobject loo_Resp
oleobject loo_Json
string ls_OriginalStartTimeZone
string ls_OriginalEndTimeZone
string ls_ResponseStatusResponse
string ls_ResponseStatusTime
string ls_ICalUId
integer li_ReminderMinutesBeforeStart
integer li_IsReminderOn
integer i
integer li_Count_i

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_JsonToken = create oleobject
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_JsonToken.LoadFile("qa_data/tokens/outlookCalendar.json")
if li_Success = 0 then
    Write-Debug loo_JsonToken.LastErrorText
    destroy loo_Http
    destroy loo_JsonToken
    return
end if

loo_Http.AuthToken = loo_JsonToken.StringOf("access_token")

// Specify the ID of the calendar to list.
ls_CalendarId = "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAAAiCsAAAA"

loo_Http.SetUrlVar("id",ls_CalendarId)

// To list the events in the default calendar, use the following URL: https://graph.microsoft.com/v1.0/me/calendars/events

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpNoBody("GET","https://graph.microsoft.com/v1.0/me/calendars/{$id}/events",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_Resp
    return
end if

Write-Debug "Response status code = " + string(loo_Resp.StatusCode)

// The HTTP request succeeded if the response status code = 200.
if loo_Resp.StatusCode <> 200 then
    Write-Debug loo_Resp.BodyStr
    Write-Debug "Failed"
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_Resp
    return
end if

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.Load(loo_Resp.BodyStr)
loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()

// Here is a sample response:

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

// {
//   "value": [
//     {
//       "originalStartTimeZone": "originalStartTimeZone-value",
//       "originalEndTimeZone": "originalEndTimeZone-value",
//       "responseStatus": {
//         "response": "",
//         "time": "datetime-value"
//       },
//       "iCalUId": "iCalUId-value",
//       "reminderMinutesBeforeStart": 99,
//       "isReminderOn": true
//     }
//   ]
// }

i = 0
li_Count_i = loo_Json.SizeOfArray("value")
do while i < li_Count_i
    loo_Json.I = i
    ls_OriginalStartTimeZone = loo_Json.StringOf("value[i].originalStartTimeZone")
    ls_OriginalEndTimeZone = loo_Json.StringOf("value[i].originalEndTimeZone")
    ls_ResponseStatusResponse = loo_Json.StringOf("value[i].responseStatus.response")
    ls_ResponseStatusTime = loo_Json.StringOf("value[i].responseStatus.time")
    ls_ICalUId = loo_Json.StringOf("value[i].iCalUId")
    li_ReminderMinutesBeforeStart = loo_Json.IntOf("value[i].reminderMinutesBeforeStart")
    li_IsReminderOn = loo_Json.BoolOf("value[i].isReminderOn")
    i = i + 1
loop


destroy loo_Http
destroy loo_JsonToken
destroy loo_Resp
destroy loo_Json