Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 de 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:

4. Sindsdien, wanneer u elke keer een nieuwe taak maakt, stelt Outlook automatisch de startdatum en einddatum in op de huidige datum als volgt:


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.