Tcl Requires Chilkat v11.0.0+

MS Graph Create Calendar

See more Microsoft Calendar Examples

Creates a new calendar.

For more details, see https://docs.microsoft.com/en-us/graph/api/user-post-calendars?view=graph-rest-1.0

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 as shown here:
#     Get Microsoft Graph OAuth2 Access Token with Calendars.ReadWrite scope.

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/msGraphCalendar.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"]

#  Create a JSON body for the HTTP POST
#  {
#    "name": "Work"
#  }
set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "name" "Work"

#  POST the JSON to https://graph.microsoft.com/v1.0/me/calendars
set resp [new_CkHttpResponse]

set success [CkHttp_HttpJson $http "POST" "https://graph.microsoft.com/v1.0/me/calendars" $json "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkJsonObject $json
    delete_CkHttpResponse $resp
    exit
}

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

if {[CkHttpResponse_get_StatusCode $resp] != 201} then {
    puts [CkJsonObject_emit $json]
    puts "Failed, response status code = [CkHttpResponse_get_StatusCode $resp]"
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkJsonObject $json
    delete_CkHttpResponse $resp
    exit
}

puts [CkJsonObject_emit $json]

#  A sample response:
#  {
#    "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/calendars/$entity",
#    "id": "AQMkAD...TgAAAA==",
#    "name": "Work",
#    "color": "auto",
#    "changeKey": "5+vF7T...HjDcA==",
#    "canShare": true,
#    "canViewPrivateItems": true,
#    "canEdit": true,
#    "owner": {
#      "name": "...",
#      "address": "outlook_3A33...4CC15@outlook.com"
#    }
#  }

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

set odataContext [CkJsonObject_stringOf $json "\"@odata.context\""]
set id [CkJsonObject_stringOf $json "id"]
set name [CkJsonObject_stringOf $json "name"]
set color [CkJsonObject_stringOf $json "color"]
set changeKey [CkJsonObject_stringOf $json "changeKey"]
set canShare [CkJsonObject_BoolOf $json "canShare"]
set canViewPrivateItems [CkJsonObject_BoolOf $json "canViewPrivateItems"]
set canEdit [CkJsonObject_BoolOf $json "canEdit"]
set ownerName [CkJsonObject_stringOf $json "owner.name"]
set ownerAddress [CkJsonObject_stringOf $json "owner.address"]

puts "Success."

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