There are many tools out there for syncronising calendar information between outlook and google calendar, but the features is limited. I will try to build up my one, and describe here the steps I followed…

In this post I will describe the first building block, and that is how to create outlook events.

Sub NewAppointment()
    Dim app As New Outlook.Application
   
    Dim objAppointment As AppointmentItem

    Set objAppointment = app.CreateItem(olAppointmentItem)

    objAppointment.Start = #5/15/2009 11:00:00 AM#
    objAppointment.Duration = 60
    objAppointment.Subject = “The first appointment created by the script”
    objAppointment.Body = “This is just to test the first appointment created by the script.”
    objAppointment.ReminderMinutesBeforeStart = 15
    objAppointment.ReminderSet = False
  
    objAppointment.Save
       
End Sub