Comment définir la date de début par défaut sur « aujourd’hui » lors de la création d’une tâche dans Outlook ?

Lorsque vous créez une tâche dans Outlook, la date de début s’affiche par défaut avec la valeur « Aucune », comme le montre la capture d’écran ci-dessous. Cependant, il vous arrive souvent de devoir définir « aujourd’hui » comme date de début, ce qui vous oblige à sélectionner manuellement cette date dans le champ « Date de début » à chaque création. Existe-t-il un moyen rapide de faire en sorte qu’« aujourd’hui » soit automatiquement défini comme date de début par défaut lors de la création d’une tâche dans Outlook ?

Définir la valeur par défaut de Date de début sur « aujourd’hui » lors de la création d’un(e) Tâche à l’aide d’un code VBA dans Outlook

---

Définir la valeur par défaut de Date de début sur « aujourd’hui » lors de la création d’un(e) Tâche à l’aide d’un code VBA dans Outlook

Il n’existe probablement pas d’autre solution directe pour gérer cette tâche dans Outlook. Je vais donc vous proposer un code VBA efficace pour résoudre ce problème. Suivez les étapes ci-dessous :

1. Ouvrez Outlook, puis maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code suivant dans ce module vierge.

Code VBA : Définir la valeur par défaut de Date de début 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 dans la deuxième section du code, puis appuyez sur la touche F5 pour exécuter ce code (voir capture d’écran) :

4. Dès cet instant, chaque fois que vous créerez une tâche, Outlook définira automatiquement la date de début et la date d’échéance à la date du jour par défaut, comme illustré dans la capture d’écran suivante :