Creates an event based on a simple text string. (This example adds an event to the calendar with id = "support@chilkatcloud.com".)
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
set rest = CreateObject("Chilkat_9_5_0.Rest")
' Provide a previously obtained OAuth2 access token.
set oauth2 = CreateObject("Chilkat_9_5_0.OAuth2")
oauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"
success = rest.SetAuthOAuth2(oauth2)
success = rest.Connect("www.googleapis.com",443,1,1)
If (success <> 1) Then
outFile.WriteLine(rest.LastErrorText)
WScript.Quit
End If
success = rest.AddQueryParam("text","Dentist Appointment")
success = rest.AddQueryParam("sendNotifications","true")
set sbReq = CreateObject("Chilkat_9_5_0.StringBuilder")
set sbJson = CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestSb("POST","/calendar/v3/calendars/support@chilkatcloud.com/events/quickAdd",sbReq,sbJson)
If (success <> 1) Then
outFile.WriteLine(rest.LastErrorText)
WScript.Quit
End If
If (rest.ResponseStatusCode <> 200) Then
outFile.WriteLine("Received error response code: " & rest.ResponseStatusCode)
outFile.WriteLine("Response body:")
outFile.WriteLine(sbJson.GetAsString())
WScript.Quit
End If
set json = CreateObject("Chilkat_9_5_0.JsonObject")
success = json.LoadSb(sbJson)
' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.
kind = json.StringOf("kind")
etag = json.StringOf("etag")
id = json.StringOf("id")
status = json.StringOf("status")
htmlLink = json.StringOf("htmlLink")
created = json.StringOf("created")
updated = json.StringOf("updated")
summary = json.StringOf("summary")
creatorEmail = json.StringOf("creator.email")
creatorSelf = json.BoolOf("creator.self")
organizerEmail = json.StringOf("organizer.email")
organizerSelf = json.BoolOf("organizer.self")
startDateTime = json.StringOf("start.dateTime")
endDateTime = json.StringOf("end.dateTime")
iCalUID = json.StringOf("iCalUID")
sequence = json.IntOf("sequence")
hangoutLink = json.StringOf("hangoutLink")
remindersUseDefault = json.BoolOf("reminders.useDefault")
outFile.WriteLine("Example Completed.")
outFile.Close
{
"kind": "calendar#event",
"etag": "\"3020352941868000\"",
"id": "52e7uk7j7vl5dosj7b25memov0",
"status": "confirmed",
"htmlLink": "https://www.google.com/calendar/event?eid=NTJlN3VrN2o3dmw1ZG9zajdiMjVtZW1vdjAgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
"created": "2017-11-08T21:27:50.000Z",
"updated": "2017-11-08T21:27:50.934Z",
"summary": "Dentist Appointment",
"creator": {
"email": "support@chilkatcloud.com",
"self": true
},
"organizer": {
"email": "support@chilkatcloud.com",
"self": true
},
"start": {
"dateTime": "2017-11-08T15:27:50-06:00"
},
"end": {
"dateTime": "2017-11-08T16:27:50-06:00"
},
"iCalUID": "52e7uk7j7vl5dosj7b25memov0@google.com",
"sequence": 0,
"hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.52e7uk7j7vl5dosj7b25memov0",
"reminders": {
"useDefault": true
}
}