vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik:    |   VB-Versionen: VB5, VB602.10.06
Aufgabe in Outlook erstellen

Dieser Tipp zeigt, wie man aus Access bzw. Visual Basic Aufgaben in Outlook erstellen kann

Autor:  Microsys KramerBewertung:     [ Jetzt bewerten ]Views:  1.814 
http://www.access-paradies.de/System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt 

Aufgaben in Outlook per VB-Code erstellen

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