Hi there!
Could anybody help me to amend the following code, please? I get an "Invalid Credential" error!
Thank you!
Private Sub CrearEventoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CrearEventoToolStripMenuItem.Click
Dim newEvent As New EventEntry
Dim newatom As AtomEntry
Dim MiCalendario As New CalendarEntry
Dim serv As New Google.GData.Calendar.CalendarService("iNanaPeru")
'Dim serv As New Google.GData.Calendar.CalendarService("GCal")
serv.setUserCredentials("myemail@gmail.com", "mysecurepassword")
newEvent.Title.Text = "Evento Prueba"
newEvent.Content.Content = "Prueba de evento"
Dim newTime As New [When]()
newTime.StartTime = Convert.ToDateTime("19/06/2014") 'getting date/time from textbox for testing
newTime.EndTime = DateAdd(DateInterval.Hour, 1, Convert.ToDateTime("10:00")) 'add 1 hour for end
newEvent.Times.Add(newTime)
Dim uri As New Uri("https://www.google.com/calendar/feeds/default/private/full")
'Dim uri As New
Uri("https://www.google.com/calendar/feeds/2n3e29qcs42ldshivodi1liq6o%40group.calendar.google.com/public/basic")
newatom = serv.Insert(uri, newEvent)
End Sub
Paris Pantigoso
