Comment définir automatiquement un rappel et une date d'échéance lors du marquage d'un e-mail Outlook pour un suivi

Outlook permet aux utilisateurs de signaler les e-mails avec un rappel de suivi personnalisé et une date d'échéance. Mais vous devez le sélectionner et l'activer manuellement. Cet article vous apprendra comment y parvenir automatiquement via VBA.

Outlook nous fournit la fonctionnalité "Flag", qui peut nous permettre de suivre les e-mails critiques beaucoup plus facilement. Non seulement cela peut nous permettre de faire un e-mail, mais cela nous permet également de sélectionner une icône de drapeau préférée, d'attribuer une date d'échéance spécifique et même de spécifier un rappel personnalisé à l'e-mail. Sans aucun doute, c'est très pratique.

Mais de nombreux utilisateurs ont encore une autre envie. Ils espèrent qu'Outlook pourra spécifier automatiquement une date d'échéance et une heure de rappel personnalisées relativement fixes pour les e-mails signalés, par exemple 3 jours après aujourd'hui, 1 semaine après aujourd'hui, etc. Pour être honnête, Outlook n'a pas une telle fonctionnalité native. Par conséquent, vous devez recourir à d'autres moyens, par exemple VBA. Ici, nous allons vous apprendre à utiliser Outlook VBA pour réaliser cette exigence. Lisez la suite pour l'obtenir en détail.

Définir automatiquement un rappel et une date d'échéance lors du marquage d'un e-mail Outlook

1. Au tout début, lancez votre programme Outlook.
2. Ensuite, vous pouvez appuyer sur les raccourcis clavier "Alt + F11" pour accéder à l'éditeur VBA.
3. Ensuite, dans la fenêtre "Microsoft Visual Basic pour Applications" suivante, vous devez double-cliquer sur le projet "ThisOutlookSession" sur le côté gauche.
4. Ensuite, copiez et collez-y les codes VBA ci-dessous.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
          'You can change the following lines as per your actual needs
          With objMail
               .FlagRequest = "Type the custom follow-up notes here"
               .MarkAsTask olMarkNextWeek
               'Set a custom due date
               .TaskDueDate = Now + 7
               .ReminderSet = True
               'Set a custom reminder time
               .ReminderTime = Now + 6.5
               .Save
         End With
       End If
    End If
End Sub

5. Après cela, vous devez signer ce code comme d'habitude.
6. Quittez ensuite l'éditeur VBA et procédez à la modification de vos paramètres de macro Outlook pour activer uniquement les macros signées numériquement.
7. Enfin, vous devez redémarrer Outlook pour activer la nouvelle macro. Ensuite, vous pourrez l'essayer.

• Cliquez sur l'icône du drapeau à la fin d'un élément d'e-mail.
• Immédiatement, le drapeau sera automatiquement remplacé par l'icône "Drapeau de la semaine prochaine".
• Et sa date d'échéance et son heure de rappel seront définies en fonction de votre préréglage dans les codes.

Ne paniquez pas si vous rencontrez un crash d'Outlook

Lorsqu'Outlook plante inopinément, la plupart des utilisateurs paniquent, craignant que leurs données ne soient endommagées. Pourtant, avec les précautions nécessaires, pas de panique ! La mesure la plus importante consiste à sauvegarder régulièrement vos fichiers PST. De plus, vous pouvez utiliser un outil performant pour restaurer vos données. Outlook endommagé données, telles que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correction sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com