Tcl

Outlook Calendar List Events

See more Outlook Calendar Examples

Retrieve a list of events in a calendar. Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

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

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/outlookCalendar.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

# Specify the ID of the calendar to list.
set calendarId "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEGAAAA5_vF7TKKdE6bGCRqXyl2PQAAAiCsAAAA"

CkHttp_SetUrlVar $http "id" $calendarId

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

set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "GET" "https://graph.microsoft.com/v1.0/me/calendars/{$id}/events" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkHttpResponse $resp
    exit
}

puts "Response status code = [CkHttpResponse_get_StatusCode $resp]"

# The HTTP request succeeded if the response status code = 200.
if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts [CkHttpResponse_bodyStr $resp]
    puts "Failed"
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkHttpResponse $resp
    exit
}

set json [new_CkJsonObject]

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

# 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
#     }
#   ]
# }

set i 0
set count_i [CkJsonObject_SizeOfArray $json "value"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set originalStartTimeZone [CkJsonObject_stringOf $json "value[i].originalStartTimeZone"]
    set originalEndTimeZone [CkJsonObject_stringOf $json "value[i].originalEndTimeZone"]
    set responseStatusResponse [CkJsonObject_stringOf $json "value[i].responseStatus.response"]
    set responseStatusTime [CkJsonObject_stringOf $json "value[i].responseStatus.time"]
    set iCalUId [CkJsonObject_stringOf $json "value[i].iCalUId"]
    set reminderMinutesBeforeStart [CkJsonObject_IntOf $json "value[i].reminderMinutesBeforeStart"]
    set isReminderOn [CkJsonObject_BoolOf $json "value[i].isReminderOn"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkHttpResponse $resp
delete_CkJsonObject $json