Hoe stel ik de standaard startdatum in als vandaag bij het maken van een nieuwe taak in Outlook?

Wanneer we een nieuwe taak in Outlook maken, wordt de taak met “Begin datum”Wordt weergegeven met "Geen”Standaard zoals in de volgende schermafbeelding. Maar soms moet u vandaag regelmatig als begindatum instellen, dus u moet de datum in het veld "Begindatum" elke keer handmatig selecteren. Is er een snelle manier om de standaard startdatum als vandaag automatisch in te stellen bij het maken van een nieuwe taak in Outlook?

Stel de standaard startdatum in als vandaag bij het maken van een nieuwe taak met VBA-code in Outlook

Stel de standaard startdatum in als vandaag bij het maken van een nieuwe taak met VBA-code in Outlook

Misschien is er geen andere goede manier om deze taak rechtstreeks in Outlook af te handelen, hier zal ik een VBA-code introduceren om het op te lossen. Voer de volgende stappen uit:

1. Start Outlook en houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: stel de standaard startdatum in als vandaag:

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. Nadat u de code heeft ingevoegd, plaatst u de cursor op het tweede codegedeelte en drukt u op F5 sleutel om deze code uit te voeren, zie screenshot: