Option Explicit On
 
Public Class Form8
 
 
 
    ' Variablen deklarieren
    Dim appOutLook As Microsoft.Office.Interop.Outlook.Application
    Dim taskOutLook As Microsoft.Office.Interop.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
 
 
 
 
End Class