Dim olAI As Outlook.AppointmentItem = CType((New _
          Outlook.Application).CreateItem( _
          Outlook.OlItemType.olAppointmentItem), Outlook.AppointmentItem)
        With olAI
            .MeetingStatus = Outlook.OlMeetingStatus.olMeeting
            .Subject = "Meeting"
            .Location = "test"
            '.Start = CDate("05.11.2010")
            .AllDayEvent = True
            '.Duration = 15
            .Body = "blablabla"
            .Save()
            '.Display()
        End With