Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

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 ?

Author Xiaoyang Last modified

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 ?

the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 1

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

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
the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 2

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 :

the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 3

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 :

the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 4

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Exploite une technologie avancée d’IA pour gérer les e-mails en toute simplicité, notamment pour répondre, résumer, optimiser, étendre, traduire et rédiger des e-mails.

📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...

📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...

📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...

🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire ...

Utilisez Kutools dans votre langue préférée – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez pas, téléchargez dès maintenant pour gagner en efficacité !

kutools for outlook features1 kutools for outlook features2

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Recommandé vivement : Kutools pour Office (5-en-1)

Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !

  • ✅ Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
  • 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
  • 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint