Enum enmBusyState
        Free = 0
        Tentative = 1
        Busy = 2
        OutOfOffice = 3
    End Enum
 
    Public Sub CreateOutlookEvent(ByVal pv_strWindowsAccount As String, _
                                  ByVal pv_strStartDateTime As String, _
                                  ByVal pv_strEndDateTime As String, _
                                  ByVal pv_strSubject As String, _
                                  ByVal pv_strBody As String, _
                                  ByVal pv_strLocation As String, _
                                  Optional ByVal pv_bolVisible As Boolean = _
                                  False, _
                                  Optional ByVal pv_enmBusyState As _
                                  enmBusyState = enmBusyState.Busy, _
                                  Optional ByVal pv_bolReminder As Boolean = _
                                  True, _
                                  Optional ByVal _
                                  pv_intReminderMinutesBeforeStart As Integer = _
                                  15, _
                                  Optional ByVal pv_bolIsOnlineMeeting As _
                                  Boolean = False)
        Try
 
            Dim l_objOutlook As Object = CreateObject("Outlook.Application")
            Dim l_objNamespace As Object = l_objOutlook.GetNamespace("mapi")
            l_objNamespace.Logon(pv_strWindowsAccount.ToString, _
              System.Reflection.Missing.Value, False, True)
            Dim l_objEvent As Object = l_objOutlook.CreateItem(1)
 
            'Termineigenschaften
            l_objEvent.Subject = pv_strSubject
            l_objEvent.Body = pv_strBody
            l_objEvent.Location = pv_strLocation
            l_objEvent.Start = Convert.ToDateTime(pv_strStartDateTime)
            l_objEvent.End = Convert.ToDateTime(pv_strEndDateTime)
            l_objEvent.BusyStatus = pv_enmBusyState
 
            'Erinnerung
            l_objEvent.ReminderSet = pv_bolReminder
            l_objEvent.ReminderMinutesBeforeStart = _
              pv_intReminderMinutesBeforeStart
            l_objEvent.IsOnlineMeeting = pv_bolIsOnlineMeeting
 
            'Termin speichern
            l_objEvent.Save()
 
            'Anzeigen Ja/Nein
            l_objEvent.Display(pv_bolVisible)
 
            l_objNamespace.Logoff()
            l_objNamespace = Nothing
            l_objEvent = Nothing
            l_objOutlook = Nothing
 
        Catch ex As Exception
 
            MessageBox.Show("Outlook ist auf diesem Rechner nicht installiert!")
 
        End Try
 
    End Sub