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 de début » est affichée par défaut comme « Aucune », comme le montre la capture d'écran ci-dessous. Cependant, parfois, vous devez régulièrement définir aujourd'hui comme date de début. Par conséquent, vous devez 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éfinir la date de début par défaut comme aujourd'hui lors de la création d'une nouvelle tâche avec un code VBA dans Outlook
Il se peut qu'il n'y ait pas d'autre bonne solution pour traiter cette tâche directement dans Outlook. Ici, je vais vous présenter un code VBA pour résoudre ce problème. Veuillez suivre les étapes ci-dessous :
1. Lancez Outlook, puis maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisOutlookSession dans le volet Project1(VbaProject.OTM) pour ouvrir le module, puis copiez et collez le code suivant dans le module vide.
Code VBA : Définir la date de début par défaut comme 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 la capture d'écran :
4. Depuis lors, lorsque vous créez une nouvelle tâche à chaque fois, Outlook définira automatiquement la date de début et la date de fin à la date actuelle par défaut, comme le montre la capture d'écran ci-dessous :
Meilleurs outils de productivité pour Office
Dernières nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
