Dim TempApp As Outlook.Application = New Outlook.Application() 'An AppointmentItem 'TempAppItem' object represent one appointment
Dim TempAppItem As Outlook.AppointmentItem = TempApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
TempAppItem.Subject = "Create Outlook Appointment Item with VB.NET"
TempAppItem.Body = "We can create appointment with the help of vb.net"
'Set Location
TempAppItem.Location = "No Location"
'Set start date and times
TempAppItem.Start = Convert.ToDateTime("11/08/2009 10:00:00 AM")
'Set end date and times
TempAppItem.End = Convert.ToDateTime("11/08/2009 11:00:00 AM")
'set the Reminder box if you want Outlook to remind you the appointment is coming up.
TempAppItem.ReminderSet = True
TempAppItem.ReminderMinutesBeforeStart = 5
'we can choose how the time is categorized (Busy, Tentative, Free, and so on)
TempAppItem.BusyStatus = Outlook.OlBusyStatus.olBusy
TempAppItem.IsOnlineMeeting = False
' Save to Calendar.
TempAppItem.Save()
TempApp = Nothing
TempAppItem = Nothing