Inserts a new event to a specified calendar.
This example inserts an event into the calender specified by ID = "support@chilkatcloud.com"
Returns the JSON of the event that was created.
integer li_rc
oleobject loo_Rest
integer li_Success
oleobject loo_Oauth2
oleobject loo_JsonReq
oleobject loo_SbReq
oleobject loo_SbJson
oleobject loo_Json
string ls_Kind
string ls_Etag
string ls_Id
string ls_Status
string ls_HtmlLink
string ls_Created
string ls_Updated
string ls_Summary
string ls_Description
string ls_Location
string ls_CreatorEmail
integer li_CreatorSelf
string ls_OrganizerEmail
integer li_OrganizerSelf
string ls_StartDateTime
string ls_EndDateTime
string ls_ICalUID
integer li_Sequence
string ls_HangoutLink
integer li_RemindersUseDefault
integer i
integer li_Count_i
string ls_Email
string ls_ResponseStatus
integer li_Organizer
integer li_Self
loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest")
if li_rc < 0 then
destroy loo_Rest
MessageBox("Error","Connecting to COM object failed")
return
end if
// Provide a previously obtained OAuth2 access token.
loo_Oauth2 = create oleobject
li_rc = loo_Oauth2.ConnectToNewObject("Chilkat_9_5_0.OAuth2")
loo_Oauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"
loo_Rest.SetAuthOAuth2(loo_Oauth2)
li_Success = loo_Rest.Connect("www.googleapis.com",443,1,1)
if li_Success <> 1 then
Write-Debug loo_Rest.LastErrorText
destroy loo_Rest
destroy loo_Oauth2
return
end if
// The following code creates the JSON request body.
// The JSON created by this code is shown below.
loo_JsonReq = create oleobject
li_rc = loo_JsonReq.ConnectToNewObject("Chilkat_9_5_0.JsonObject")
loo_JsonReq.UpdateString("kind","calendar#event")
loo_JsonReq.UpdateString("status","confirmed")
loo_JsonReq.UpdateString("summary","QXQC")
loo_JsonReq.UpdateString("description","21st Annual QXQC Gathering")
loo_JsonReq.UpdateString("location","Quigley's Irish Pub, 43 E Jefferson Ave, Naperville, IL 60540, USA")
loo_JsonReq.UpdateString("start.dateTime","2017-12-09T20:00:00-06:00")
loo_JsonReq.UpdateString("end.dateTime","2017-12-09T23:00:00-06:00")
loo_JsonReq.UpdateString("attendees[0].email","dean@example.com")
loo_JsonReq.UpdateString("attendees[0].responseStatus","needsAction")
loo_JsonReq.UpdateString("attendees[1].email","support@chilkatcloud.com")
loo_JsonReq.UpdateBool("attendees[1].organizer",1)
loo_JsonReq.UpdateBool("attendees[1].self",1)
loo_JsonReq.UpdateString("attendees[1].responseStatus","accepted")
loo_JsonReq.UpdateString("attendees[2].email","ajay@example.com")
loo_JsonReq.UpdateString("attendees[2].responseStatus","needsAction")
loo_JsonReq.UpdateString("attendees[3].email","jim@example.com")
loo_JsonReq.UpdateString("attendees[3].responseStatus","needsAction")
loo_JsonReq.UpdateString("attendees[4].email","gilian@example.com")
loo_JsonReq.UpdateString("attendees[4].responseStatus","needsAction")
loo_JsonReq.UpdateBool("reminders.useDefault",1)
loo_SbReq = create oleobject
li_rc = loo_SbReq.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")
loo_JsonReq.EmitSb(loo_SbReq)
loo_Rest.AddHeader("Content-Type","application/json")
loo_SbJson = create oleobject
li_rc = loo_SbJson.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")
li_Success = loo_Rest.FullRequestSb("POST","/calendar/v3/calendars/support@chilkatcloud.com/events",loo_SbReq,loo_SbJson)
if li_Success <> 1 then
Write-Debug loo_Rest.LastErrorText
destroy loo_Rest
destroy loo_Oauth2
destroy loo_JsonReq
destroy loo_SbReq
destroy loo_SbJson
return
end if
if loo_Rest.ResponseStatusCode <> 200 then
Write-Debug "Received error response code: " + string(loo_Rest.ResponseStatusCode)
Write-Debug "Response body:"
Write-Debug loo_SbJson.GetAsString()
destroy loo_Rest
destroy loo_Oauth2
destroy loo_JsonReq
destroy loo_SbReq
destroy loo_SbJson
return
end if
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject")
loo_Json.LoadSb(loo_SbJson)
// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.
ls_Kind = loo_Json.StringOf("kind")
ls_Etag = loo_Json.StringOf("etag")
ls_Id = loo_Json.StringOf("id")
ls_Status = loo_Json.StringOf("status")
ls_HtmlLink = loo_Json.StringOf("htmlLink")
ls_Created = loo_Json.StringOf("created")
ls_Updated = loo_Json.StringOf("updated")
ls_Summary = loo_Json.StringOf("summary")
ls_Description = loo_Json.StringOf("description")
ls_Location = loo_Json.StringOf("location")
ls_CreatorEmail = loo_Json.StringOf("creator.email")
li_CreatorSelf = loo_Json.BoolOf("creator.self")
ls_OrganizerEmail = loo_Json.StringOf("organizer.email")
li_OrganizerSelf = loo_Json.BoolOf("organizer.self")
ls_StartDateTime = loo_Json.StringOf("start.dateTime")
ls_EndDateTime = loo_Json.StringOf("end.dateTime")
ls_ICalUID = loo_Json.StringOf("iCalUID")
li_Sequence = loo_Json.IntOf("sequence")
ls_HangoutLink = loo_Json.StringOf("hangoutLink")
li_RemindersUseDefault = loo_Json.BoolOf("reminders.useDefault")
i = 0
li_Count_i = loo_Json.SizeOfArray("attendees")
do while i < li_Count_i
loo_Json.I = i
ls_Email = loo_Json.StringOf("attendees[i].email")
ls_ResponseStatus = loo_Json.StringOf("attendees[i].responseStatus")
li_Organizer = loo_Json.BoolOf("attendees[i].organizer")
li_Self = loo_Json.BoolOf("attendees[i].self")
i = i + 1
loop
Write-Debug "Example Completed."
destroy loo_Rest
destroy loo_Oauth2
destroy loo_JsonReq
destroy loo_SbReq
destroy loo_SbJson
destroy loo_Json
{
"kind": "calendar#event",
"status": "confirmed",
"summary": "QXQC",
"description": "21st Annual QXQC Gathering",
"location": "Quigley's Irish Pub, 43 E Jefferson Ave, Naperville, IL 60540, USA",
"start": {
"dateTime": "2017-12-09T20:00:00-06:00"
},
"end": {
"dateTime": "2017-12-09T23:00:00-06:00"
},
"attendees": [
{
"email": "dean@example.com",
"responseStatus": "needsAction"
},
{
"email": "support@chilkatcloud.com",
"organizer": true,
"self": true,
"responseStatus": "accepted"
},
{
"email": "ajay@example.com",
"responseStatus": "needsAction"
},
{
"email": "jim@example.com",
"responseStatus": "needsAction"
},
{
"email": "gilian@example.com",
"responseStatus": "needsAction"
}
],
"reminders": {
"useDefault": true
}
}
{
"kind": "calendar#event",
"etag": "\"3020332888490000\"",
"id": "oqel9ijr6rgfgqg12b0qtlhfjs",
"status": "confirmed",
"htmlLink": "https://www.google.com/calendar/event?eid=b3FlbDlpanI2cmdmZ3FnMTJiMHF0bGhmanMgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
"created": "2017-11-08T18:40:44.000Z",
"updated": "2017-11-08T18:40:44.245Z",
"summary": "QXQC",
"description": "21st Annual QXQC Gathering",
"location": "Quigley's Irish Pub, 43 E Jefferson Ave, Naperville, IL 60540, USA",
"creator": {
"email": "support@chilkatcloud.com",
"self": true
},
"organizer": {
"email": "support@chilkatcloud.com",
"self": true
},
"start": {
"dateTime": "2017-12-09T20:00:00-06:00"
},
"end": {
"dateTime": "2017-12-09T23:00:00-06:00"
},
"iCalUID": "oqel9ijr6rgfgqg12b0qtlhfjs@google.com",
"sequence": 0,
"attendees": [
{
"email": "dean@example.com",
"responseStatus": "needsAction"
},
{
"email": "support@chilkatcloud.com",
"organizer": true,
"self": true,
"responseStatus": "accepted"
},
{
"email": "ajay@example.com",
"responseStatus": "needsAction"
},
{
"email": "jim@example.com",
"responseStatus": "needsAction"
},
{
"email": "gilian@example.com",
"responseStatus": "needsAction"
}
],
"hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/qxqc?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.oqel9ijr6rgfgqg12b0qtlhfjs",
"reminders": {
"useDefault": true
}
}