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.
LOCAL loRest
LOCAL lnSuccess
LOCAL loOauth2
LOCAL loJsonReq
LOCAL loSbReq
LOCAL loSbJson
LOCAL loJson
LOCAL lcKind
LOCAL lcEtag
LOCAL lcId
LOCAL lcStatus
LOCAL lcHtmlLink
LOCAL lcCreated
LOCAL lcUpdated
LOCAL lcSummary
LOCAL lcDescription
LOCAL lcLocation
LOCAL lcCreatorEmail
LOCAL lnCreatorSelf
LOCAL lcOrganizerEmail
LOCAL lnOrganizerSelf
LOCAL lcStartDateTime
LOCAL lcEndDateTime
LOCAL lcICalUID
LOCAL lnSequence
LOCAL lcHangoutLink
LOCAL lnRemindersUseDefault
LOCAL i
LOCAL lnCount_i
LOCAL lcEmail
LOCAL lcResponseStatus
LOCAL lnOrganizer
LOCAL lnSelf
loRest = CreateObject('Chilkat_9_5_0.Rest')
* Provide a previously obtained OAuth2 access token.
loOauth2 = CreateObject('Chilkat_9_5_0.OAuth2')
loOauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"
loRest.SetAuthOAuth2(loOauth2)
lnSuccess = loRest.Connect("www.googleapis.com",443,1,1)
IF (lnSuccess <> 1) THEN
? loRest.LastErrorText
RELEASE loRest
RELEASE loOauth2
CANCEL
ENDIF
* The following code creates the JSON request body.
* The JSON created by this code is shown below.
loJsonReq = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonReq.UpdateString("kind","calendar#event")
loJsonReq.UpdateString("status","confirmed")
loJsonReq.UpdateString("summary","QXQC")
loJsonReq.UpdateString("description","21st Annual QXQC Gathering")
loJsonReq.UpdateString("location","Quigley's Irish Pub, 43 E Jefferson Ave, Naperville, IL 60540, USA")
loJsonReq.UpdateString("start.dateTime","2017-12-09T20:00:00-06:00")
loJsonReq.UpdateString("end.dateTime","2017-12-09T23:00:00-06:00")
loJsonReq.UpdateString("attendees[0].email","dean@example.com")
loJsonReq.UpdateString("attendees[0].responseStatus","needsAction")
loJsonReq.UpdateString("attendees[1].email","support@chilkatcloud.com")
loJsonReq.UpdateBool("attendees[1].organizer",1)
loJsonReq.UpdateBool("attendees[1].self",1)
loJsonReq.UpdateString("attendees[1].responseStatus","accepted")
loJsonReq.UpdateString("attendees[2].email","ajay@example.com")
loJsonReq.UpdateString("attendees[2].responseStatus","needsAction")
loJsonReq.UpdateString("attendees[3].email","jim@example.com")
loJsonReq.UpdateString("attendees[3].responseStatus","needsAction")
loJsonReq.UpdateString("attendees[4].email","gilian@example.com")
loJsonReq.UpdateString("attendees[4].responseStatus","needsAction")
loJsonReq.UpdateBool("reminders.useDefault",1)
loSbReq = CreateObject('Chilkat_9_5_0.StringBuilder')
loJsonReq.EmitSb(loSbReq)
loRest.AddHeader("Content-Type","application/json")
loSbJson = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loRest.FullRequestSb("POST","/calendar/v3/calendars/support@chilkatcloud.com/events",loSbReq,loSbJson)
IF (lnSuccess <> 1) THEN
? loRest.LastErrorText
RELEASE loRest
RELEASE loOauth2
RELEASE loJsonReq
RELEASE loSbReq
RELEASE loSbJson
CANCEL
ENDIF
IF (loRest.ResponseStatusCode <> 200) THEN
? "Received error response code: " + STR(loRest.ResponseStatusCode)
? "Response body:"
? loSbJson.GetAsString()
RELEASE loRest
RELEASE loOauth2
RELEASE loJsonReq
RELEASE loSbReq
RELEASE loSbJson
CANCEL
ENDIF
loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.LoadSb(loSbJson)
* The following code parses the JSON response.
* A sample JSON response is shown below the sample code.
lcKind = loJson.StringOf("kind")
lcEtag = loJson.StringOf("etag")
lcId = loJson.StringOf("id")
lcStatus = loJson.StringOf("status")
lcHtmlLink = loJson.StringOf("htmlLink")
lcCreated = loJson.StringOf("created")
lcUpdated = loJson.StringOf("updated")
lcSummary = loJson.StringOf("summary")
lcDescription = loJson.StringOf("description")
lcLocation = loJson.StringOf("location")
lcCreatorEmail = loJson.StringOf("creator.email")
lnCreatorSelf = loJson.BoolOf("creator.self")
lcOrganizerEmail = loJson.StringOf("organizer.email")
lnOrganizerSelf = loJson.BoolOf("organizer.self")
lcStartDateTime = loJson.StringOf("start.dateTime")
lcEndDateTime = loJson.StringOf("end.dateTime")
lcICalUID = loJson.StringOf("iCalUID")
lnSequence = loJson.IntOf("sequence")
lcHangoutLink = loJson.StringOf("hangoutLink")
lnRemindersUseDefault = loJson.BoolOf("reminders.useDefault")
i = 0
lnCount_i = loJson.SizeOfArray("attendees")
DO WHILE i < lnCount_i
loJson.I = i
lcEmail = loJson.StringOf("attendees[i].email")
lcResponseStatus = loJson.StringOf("attendees[i].responseStatus")
lnOrganizer = loJson.BoolOf("attendees[i].organizer")
lnSelf = loJson.BoolOf("attendees[i].self")
i = i + 1
ENDDO
? "Example Completed."
RELEASE loRest
RELEASE loOauth2
RELEASE loJsonReq
RELEASE loSbReq
RELEASE loSbJson
RELEASE loJson
{
"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
}
}