Comment créer automatiquement une tâche chaque fois qu'une catégorie spécifique est attribuée à un e-mail dans Outlook

Cet article vous apprendra comment créer automatiquement une nouvelle tâche lorsque vous attribuez une catégorie de couleur spécifique à un e-mail via Outlook VBA.

Dans le passé, lorsque je recevais un e-mail concernant une tâche, je spécifiais la catégorie "Tâche" à cet e-mail et procédais à la création d'une nouvelle tâche connexe. Pour être honnête, ce processus prend en effet beaucoup de temps. Je dois noter toutes les informations à l'avance, car ces détails doivent être demandés dans la nouvelle tâche. Mais maintenant, avec l'aide de VBA, Outlook peut créer automatiquement une nouvelle tâche chaque fois que je spécifie la catégorie "Tâche" dans un e-mail. Si vous êtes intéressé par cette astuce, lisez la suite pour les obtenir en détail.

Créer automatiquement une tâche chaque fois qu'une catégorie spécifique est attribuée à un e-mail

1. Pour commencer, ouvrez Outlook et accédez à l'onglet « Développeur ».
2. Sur cet onglet, vous pouvez trouver et cliquer sur le bouton "Visual Basic".
3. Ensuite, une nouvelle fenêtre de "Microsoft Visual Basic pour Applications" s'ouvrira. Dans celui-ci, vous devez double-cliquer sur le projet "ThisOutlookSession".
4. Ensuite, vous devez copier les codes VBA suivants dans la fenêtre de projet "ThisOutlookSession".

Public WithEvents OlItems As Outlook.Items

Sub Application_Startup()
    Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub OlItems_ItemChange(ByVal Item As Object)
    Dim obApp As Application
    Dim olTask As TaskItem

    If Item.Class = olMail And Item.Categories = "Task" Then
       Set obApp = Outlook.Application
       Set olTask = obApp.CreateItem(olTaskItem)
       With olTask
            .Subject = Item.Subject
            .Body = Item.Body
            .Attachments.Add Item
            .StartDate = Now
            .DueDate = Now + 3
            .Save
            .Display
       End With
    End If
 
    'To clear the category
    'If you want to keep the category, remove the following four lines
    With Item
         .Categories = ""
         .Save
    End With
 
    Set obApp = Nothing
    Set olTask = Nothing
End Sub

5. Après cela, vous devrez signer ce code. Vous pouvez utiliser l'utilitaire intégré Office - "Certificat numérique pour les projets VBA" pour y parvenir. Pour des étapes plus détaillées, vous pouvez vous référer à l'étape 2 de cet article "2 étapes pour marquer automatiquement les e-mails indésirables comme lus dans Outlook ».
6. Plus tard, afin d'empêcher les macros malveillantes externes, vous devez vous tourner vers "Trust Center" et modifier les paramètres de la macro pour activer uniquement les macros signées numériquement.
7. Finalement, vous pouvez essayer.

• Présentez un élément de courrier et attribuez-lui une catégorie spécifique, comme dans la capture d'écran suivante :
• À la fois, une nouvelle tâche sera créée automatiquement et s'affichera dans une nouvelle fenêtre contextuelle.

Gardez un œil sur les macros malveillantes dans les e-mails suspects

Il est extrêmement important de bloquer toutes les macros externes non signées, car elles peuvent contenir des virus ou des logiciels malveillants, qui peuvent facilement endommager vos données Outlook. Les utilisateurs doivent donc porter une attention particulière aux e-mails qui accompagnent les macros. De plus, il est fortement conseillé d'investir dans un remarquable outil de réparation de données Outlook corrompu, comme DataNumen Outlook Repair. Il peut venir à votre secours lorsque vous subissez un plantage imprévu d'Outlook.

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 réparer l'erreur SQL mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com