Wie legt man das Standard-Startdatum beim Erstellen einer Aufgabe in Outlook auf heute fest?

Beim Erstellen einer Aufgabe in Outlook wird das Feld „Startdatum“ standardmäßig mit „Keine“ angezeigt, wie im folgenden Screenshot zu sehen. Oft möchten Sie jedoch „Heute“ als Startdatum festlegen und müssen daher jedes Mal manuell ein Datum im Feld „Startdatum“ auswählen. Gibt es eine Möglichkeit, das Standard-Startdatum beim Erstellen einer Aufgabe in Outlook automatisch auf „Heute“ zu setzen?

Legen Sie das Standard-Startdatum beim Erstellen eines Aufgabe mithilfe eines VBA-Codes in Outlook auf heute fest

---

Legen Sie das Standard-Startdatum beim Erstellen eines Aufgabe mithilfe eines VBA-Codes in Outlook auf heute fest

Möglicherweise gibt es keine bessere Möglichkeit, diese Aufgabe direkt in Outlook zu lösen. Daher stelle ich hier einen VBA-Code vor, mit dem Sie das Problem effektiv beheben können. Gehen Sie dazu wie folgt vor:

1. Starten Sie Outlook und halten Sie anschließend die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Standard-Startdatum auf heute setzen:

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3. Positionieren Sie den Cursor nach dem Einfügen des Codes im zweiten Codeabschnitt und drücken Sie die F5-Taste, um diesen Code auszuführen (siehe Screenshot):

4. Ab sofort setzt Outlook beim Erstellen einer Aufgabe automatisch Start- und Enddatum standardmäßig auf das aktuelle Datum – wie im folgenden Screenshot gezeigt: