Ciao a tutti, mi sono arrivate moltissime richieste su come inserire un appuntamento nel calendario di outlook.
La prima operazione da fare è creare un nuovo progetto outlook e referenziare le Microsoft Outlook 11.0 Object Library
Poi inseriamo questo codice nella funzione ThisApplication_Startup:
' Creare un'applicazione oulook.
Dim oApp As Outlook.Application = New Outlook.Application()
' Crea un nuovo AppointmentItem.
Dim oAppt As Outlook.AppointmentItem = oApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
' Setta alcune proprietà.
oAppt.Subject = "ShareOffice.it"
oAppt.Body = "Questo è il primo add-in che gestisce il calendario"
oAppt.Location = "Milano"
oAppt.Start = Convert.ToDateTime("20/11/2005 9:00:00 AM")
oAppt.End = Convert.ToDateTime("21/11/2005 1:00:00 PM")
oAppt.ReminderSet = True
oAppt.ReminderMinutesBeforeStart = 5
oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy
oAppt.IsOnlineMeeting = False
' Salva il calendario.
oAppt.Save()
' Pulisci le variabili.
oApp = Nothing
oAppt = Nothing
Se volete potete scaricare il progetto facendo click qui
Ciao
Fulvio