Try
	Dim app As Microsoft.Office.Interop.Outlook.Application
	Dim appt As Microsoft.Office.Interop.Outlook.AppointmentItem
 
	app = New Microsoft.Office.Interop.Outlook.Application
	appt = app.CreateItem( _
  Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem)
	appt.Subject = "Testsubject"
	appt.Body = "This is the bodytext."
	appt.Location = "Testlocation"
	appt.Start = Convert.ToDateTime("15.10.2009 13:00:00")
	appt.End = Convert.ToDateTime("15.10.2009 14:00:00")
	appt.ReminderSet = True
	appt.ReminderMinutesBeforeStart = 30
	appt.Save()
Catch ex As Exception
	messagebox.show ex.message
End Try

EDV-Systeme verarbeiten, womit sie gef?ttert werden. Kommt Mist rein, kommt Mist raus.