Rubrik: | VB-Versionen: VB5, VB6 | 02.10.06 |
Fügen Sie die nachfolgende Funktion in ein neues oder ein bestehendes Modul ein und speichern Sie dieses. Sie können die Funktion so anpassen, dass Sie den Betreff, den Aufgabentext, die Wichtigkeit, das Datum usw. als Parameter der Funktion übergeben.
In der Beispieldatei finden Sie im Modul mod_Outlook die Funktion Aufgabe_setzen. Hier werden die jeweiligen Werte als Parameter übergeben.
Option Explicit
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 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 = "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
Set taskOutLook = Nothing
Set appOutLook = Nothing
End Function