Wie setze ich das Standardstartdatum auf heute, wenn ich eine neue Aufgabe in Outlook erstelle?

Wenn wir eine neue Aufgabe in Outlook erstellen, wird die Aufgabe mit „Kursstart”Wird mit angezeigt "Keiner”Standardmäßig wie im folgenden Screenshot gezeigt. Manchmal müssen Sie jedoch heute häufig das Startdatum festlegen, sodass Sie das Datum jedes Mal manuell im Feld „Startdatum“ auswählen müssen. Gibt es eine schnelle Möglichkeit, das Standardstartdatum beim Erstellen einer neuen Aufgabe in Outlook automatisch auf heute festzulegen?

Legen Sie das Standardstartdatum als heute fest, wenn Sie eine neue Aufgabe mit VBA-Code in Outlook erstellen

Legen Sie das Standardstartdatum als heute fest, wenn Sie eine neue Aufgabe mit VBA-Code in Outlook erstellen

Möglicherweise gibt es keine andere gute Möglichkeit, diese Aufgabe in Outlook direkt zu bearbeiten. Hier werde ich einen VBA-Code einführen, um sie zu lösen. Bitte machen Sie folgende Schritte:

1. Starten Sie Outlook und halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Legen Sie das Standardstartdatum wie heute fest:

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. Setzen Sie nach dem Einfügen des Codes den Cursor auf den zweiten Codeabschnitt und drücken Sie F5 Schlüssel zum Ausführen dieses Codes, siehe Screenshot:

4. Wenn Sie seitdem jedes Mal eine neue Aufgabe erstellen, setzt Outlook das Start- und Enddatum automatisch auf das aktuelle Datum, wie im folgenden Screenshot gezeigt: