Visual Basic Foro

Programación => Visual Basic .NET / C# => Mensaje iniciado por: aedEric en Julio 19, 2014, 06:46:26 pm

Título: Eliminar Items Calendario Google
Publicado por: aedEric en Julio 19, 2014, 06:46:26 pm

Hola buenas tardes amigos recurro a usted para ver si alguien me puede auxiliar necesito poder manejar cualquier calendario desde un form intente con vb6 y outlook y puedo crear y eliminar eventos sin ningun problema el detalle que tuve es que hay una mala sincronización entre outlook y android las horas de los eventos quedan desfasadas busque por la web pero no encontre nada relacionado para la api de google y vb6 asi que  :(  que encontre para vb. net hay algo: es un ejemplo de como obtener los eventos de los calendarios y poder agregar eventos  hay codigo fuente y proyecto para descargar

http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=538 (http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=538)

mi problema radica es que deseo poder tambien elimnar eventos del calendario pero desgraciadamente mi conocimiento en vb.net es escaso si algun forista, me puede orientar, con sus opiniones o sugerencias se los agradecere
encontre tambien información aqui

https://developers.google.com/google-apps/calendar/v2/developers_guide_dotnet#DeletingEvents (https://developers.google.com/google-apps/calendar/v2/developers_guide_dotnet#DeletingEvents)

de antemano gracias

Título: Re:Eliminar Items Calendario Google
Publicado por: aedEric en Julio 21, 2014, 01:06:07 pm

Hola he podido simplificar esto para agregar un evento a google calendar

Código: [Seleccionar]

    Private Sub InserGCalendar()

        Dim myService As New CalendarService("GoogleSMS")
        myService.setUserCredentials("xxxxx@gmail.com", "xxxxx")

        Dim Entrada As New EventEntry
        Entrada.Title.Text = "gracias dios mio"

        Dim Hora As New [When]
        Hora.StartTime = "20/07/2014 11:00:00"
        Entrada.Times.Add(Hora)

        Dim Recordatorio As New Reminder
        Recordatorio.Minutes = 5
        Recordatorio.Method = Reminder.ReminderMethod.sms
        Entrada.Reminders.Add(Recordatorio)

        Dim myUri As New Uri("http://www.google.com/calendar/feeds/default/private/full")
        Dim myEventEntry As AtomEntry = myService.Insert(myUri, Entrada)

    End Sub

pero aun debido a mi bajo conocimiento en net no e logrado eliminar un evento en google calendar, si alguien me puede hechar una mano con sus opiniones o sugerencias se lo voy agradecer gracias