Option Explicit On
 
 
Public Class Form8
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Call AufgabeInOutlook()
    End Sub
 
    Public Function AufgabeInOutlook()
 
        ' // =====================================================
        ' // Methode   | Erstellt eine Aufgabe in Microsoft Outlook
        ' // -----------------------------------------------------
        ' // Parameter | keine
        ' // -----------------------------------------------------
        ' // Rückgabe  | keine
        ' // -----------------------------------------------------
        ' // Erstellt  | Günther Kramer - Sep, 2002
        ' //           | Microsys Kramer
        ' // -----------------------------------------------------
        ' // Hinweis   | Es muss ein Verweis zur Microsoft Outlook
        ' //           | Object Library gesetzt werden
        ' // =====================================================
 
        ' Variablen deklarieren
        Dim appOutLook As Microsoft.Office.Interop.Outlook.Application
        Dim taskOutLook As Microsoft.Office.Interop.Outlook.TaskItem
 
        ' Verbindung zu Outlook herstellen
        appOutLook = CreateObject("Outlook.Application")
 
        ' Ankündigen, dass eine Aufgabe erstellt werden soll
        taskOutLook = appOutLook.CreateItem( _
          Microsoft.Office.Interop.Outlook.OlItemType.olTaskItem)
        'taskOutLook = appOutLook.CreateItem(olTaskItem)
 
 
        With taskOutLook
            ' Betreff einfügen
            .Subject = "Betreff"
 
            ' Text für die Aufgabe eintragen
            .Body = "Hier steht der Text für die Aufgabe"
 
 
            ' 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.2006"
 
            ' Datum für den Beginn
            .StartDate = "14.10.2006"
 
            ' Sollte eine Erinnerung erfolgen, wird diese wie folgt angegeben:
            ' Datum & Leerzeichen & Zeit
            ' dd.mm.yyyy hh:nn
            .ReminderTime = "14.10.2006 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
        taskOutLook = Nothing
        appOutLook = Nothing
 
    End Function
 
 
 
 
 
End Class