Note: The other languages of the website are Google-translated. Back to English
English English

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:


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés