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
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:
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
