' Variablen deklarieren
    Dim appOutLook As Outlook.Application
    Dim taskOutLook As Outlook.TaskItem
 
    ' Verbindung zu Outlook herstellen
    Set appOutLook = CreateObject("Outlook.Application")
 
    ' Ankündigen, dass eine Aufgabe erstellt werden soll
    Set taskOutLook = appOutLook.CreateItem(olTaskItem)
 
    With taskOutLook
        ' Betreff einfügen
        .Subject = "Betreff"
 
        ' Text für die Aufgabe eintragen
        .Body = Text
 
        ' Hier wird die Wichtigkeit gesetzt
        ' olImportanceNormal - Normal
        ' olImportanceLow    - Niedrig
        ' olImportanceHigh   - Hoch
        .Importance = olImportanceNormal
 
        ' Datum für die Fälligkeit
        ' Alle Datumsformate müssen wie folgt angegeben werden:
        ' dd.mm.yyyy
        .DueDate = "14.10.2003"
 
        ' Datum für den Beginn
        .StartDate = "14.10.2003"
 
        ' Sollte eine Erinnerung erfolgen, wird diese wie folgt angegeben:
        ' Datum & Leerzeichen & Zeit
        ' dd.mm.yyyy hh:nn
        .ReminderTime = "14.10.2003 10:30"
 
        ' Erinnerung einschalten!
        .ReminderSet = True
 
        ' Falls eine Sounddatei bei der Erinnerung abgespielt werden soll,
        ' müssen noch folgende Einstellungen erfolgen:
        .ReminderPlaySound = True
        ' Pfad zu einer .wav Datei
        .ReminderSoundFile = "reminder.wav"
 
        ' Aufgabe speichern
        .Save
 
    End With
 
    ' Verbindung zu Outlook trennen
    Set taskOutLook = Nothing
    Set appOutLook = Nothing