Comment définir la date de début par défaut comme aujourd'hui lors de la création d'une nouvelle tâche dans Outlook?

Lorsque nous créons une nouvelle tâche dans Outlook, la tâche avec "Date d'entrée en vigeur»S'affiche avec "Aucun”Par défaut comme illustré ci-dessous. Mais, parfois, vous devez définir fréquemment aujourd'hui comme date de début, vous devez donc sélectionner manuellement la date dans le champ «Date de début» à chaque fois. Existe-t-il un moyen rapide de définir automatiquement la date de début par défaut comme aujourd'hui lors de la création d'une nouvelle tâche dans Outlook?

Définissez la date de début par défaut comme aujourd'hui lors de la création d'une nouvelle tâche avec le code VBA dans Outlook

Définissez la date de début par défaut comme aujourd'hui lors de la création d'une nouvelle tâche avec le code VBA dans Outlook

Peut-être n'y a-t-il pas d'autre bon moyen de traiter directement cette tâche dans Outlook, ici, je vais présenter un code VBA pour le résoudre. Veuillez suivre les étapes suivantes:

1. Lancez Outlook, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: définissez la date de début par défaut sur aujourd'hui:

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. Après avoir inséré le code, placez le curseur sur la deuxième section de code et appuyez sur F5 clé pour exécuter ce code, voir capture d'écran:

4. Depuis lors, lorsque vous créez une nouvelle tâche à chaque fois, Outlook définit automatiquement la date de début et la date de fin sur la date actuelle par défaut, comme illustré ci-dessous: