Hoe stelt u de standaard startdatum in op vandaag bij het maken van een taak in Outlook?

Wanneer u een taak maakt in Outlook, wordt het veld „Startdatum” standaard weergegeven als „Geen”, zoals u in de volgende schermafbeelding ziet. Maar soms wilt u dat vandaag automatisch wordt ingesteld als standaard startdatum — en dan moet u elke keer handmatig de datum kiezen in het veld „Startdatum”. Bestaat er een snellere manier om bij het aanmaken van een taak in Outlook de standaard startdatum automatisch op vandaag in te stellen?

Stel de standaard Startdatum in op vandaag bij het maken van een Taak met VBA-code in Outlook

---

Stel de standaard Startdatum in op vandaag bij het maken van een Taak met VBA-code in Outlook

Er is waarschijnlijk geen betere manier om deze taak direct in Outlook aan te pakken. Daarom introduceer ik hier een VBA-code om het probleem op te lossen. Volg de volgende stappen:

1. Start Outlook en druk daarna op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: Standaard Startdatum instellen op 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. Plaats de cursor op het tweede gedeelte van de code en druk op de toets F5 om deze code uit te voeren nadat u de code hebt ingevoegd; zie de schermafbeelding:

4. Vanaf dat moment stelt Outlook bij het maken van een taak automatisch de startdatum en einddatum in op de huidige datum, zoals te zien is in de volgende schermafbeelding: