PowerBuilder Google Calendar: Move Event to Another Calendar

Back to Index

Moves an event to another calendar, i.e. changes an event's organizer.
This example moves event ID="35ocdnnjofbtfs6c602uqvdg9u" from the calendar (ID = "support@chilkatcloud.com") to the calendar (ID = "chilkatcloud.com_su2u8trmo6rlq2jh6cr9hb032o@group.calendar.google.com")

Documentation: https://developers.google.com/google-apps/calendar/v3/reference/events/move

integer li_rc
oleobject loo_Rest
integer li_Success
oleobject loo_Oauth2
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
string ls_OrganizerDisplayName
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_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

loo_Rest.AddQueryParam("destination","chilkatcloud.com_su2u8trmo6rlq2jh6cr9hb032o@group.calendar.google.com")

loo_SbReq = create oleobject
li_rc = loo_SbReq.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")

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/35ocdnnjofbtfs6c602uqvdg9u/move",loo_SbReq,loo_SbJson)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_Oauth2
    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_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")
ls_OrganizerDisplayName = loo_Json.StringOf("organizer.displayName")
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_Self = loo_Json.BoolOf("attendees[i].self")
    i = i + 1
loop

Write-Debug "Example Completed."


destroy loo_Rest
destroy loo_Oauth2
destroy loo_SbReq
destroy loo_SbJson
destroy loo_Json

Sample JSON Response Body

{
  "kind": "calendar#event",
  "etag": "\"3020341523602000\"",
  "id": "35ocdnnjofbtfs6c602uqvdg9u",
  "status": "confirmed",
  "htmlLink": "https://www.google.com/calendar/event?eid=MzVvY2RubmpvZmJ0ZnM2YzYwMnVxdmRnOXUgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
  "created": "2017-11-08T18:25:38.000Z",
  "updated": "2017-11-08T19:52:41.801Z",
  "summary": "QXQC",
  "description": "20th 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": "chilkatcloud.com_su2u8trmo6rlq2jh6cr9hb032o@group.calendar.google.com",
    "displayName": "Party Calendar"
  },
  "start": {
    "dateTime": "2017-11-09T20:00:00-06:00"
  },
  "end": {
    "dateTime": "2017-11-09T23:00:00-06:00"
  },
  "iCalUID": "35ocdnnjofbtfs6c602uqvdg9u@google.com",
  "sequence": 0,
  "attendees": [
    {
      "email": "dean@example.com",
      "responseStatus": "needsAction"
    },
    {
      "email": "support@chilkatcloud.com",
      "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/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.35ocdnnjofbtfs6c602uqvdg9u",
  "reminders": {
    "useDefault": true
  }
}