Comment déplacer automatiquement des e-mails spécifiques vers des dossiers spécifiques après les avoir lus dans Outlook

De nombreux utilisateurs souhaitent déplacer des e-mails spécifiques de la boîte de réception vers d'autres dossiers spécifiques après les avoir lus, ce qui gardera le dossier de messagerie de la boîte de réception propre. Mais toujours se déplacer manuellement sera fastidieux. Cet article exposera une méthode rapide pour le réaliser automatiquement.

Comme d'habitude, chaque e-mail entrant atterrira dans le dossier de messagerie de la boîte de réception d'Outlook. Ainsi, dans ce cas, le dossier Boîte de réception sera encombré et bourré au fil du temps. Le plus souvent, vous pouvez soit déplacer manuellement des e-mails spécifiques vers d'autres dossiers de messagerie, soit créer une règle Outlook pour déplacer automatiquement des e-mails spécifiques dès qu'ils arrivent dans votre boîte aux lettres. Appliquer une telle règle est beaucoup plus pratique, mais il faut se rendre dans les dossiers spécifiques pour accéder aux nouveaux mails. Face à ce problème, vous pouvez espérer qu'Outlook est capable de déplacer automatiquement des e-mails spécifiques de la boîte de réception vers d'autres dossiers de messagerie une fois que vous avez terminé de les lire dans la boîte de réception plutôt qu'après leur arrivée. Mais la règle Outlook ne peut pas le réaliser. Heureusement, vous pouvez utiliser Outlook VBA pour le réaliser. Voici les codes ainsi que les étapes élaborées.

Déplacer automatiquement des e-mails spécifiques vers des dossiers spécifiques après les avoir lus

1. Au tout début, lancez Outlook et passez à l'onglet "Développeur".
2. Ensuite, sur cet onglet, appuyez sur le bouton "Visual Basic" pour ouvrir la fenêtre de l'éditeur VBA.
3. Ensuite, dans la nouvelle fenêtre, vous devez trouver le projet "ThisOutlookSession" et double-cliquer pour l'ouvrir.
4. Ensuite, copiez et collez-y les codes VBA suivants.

Public WithEvents olItems As Outlook.Items

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

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim deFolder As Folder
 
    'Ensure the email marked as read
    If TypeOf Item Is MailItem And Item.UnRead = False Then
 
    'Check the email subject and then move to specific folder
    'You can change these conditions and folders as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "worklog") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "report") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
       Item.Move deFolder
    End If
End Sub

5. Après cela, vous devez signer numériquement ce code.

• Tout d'abord, utilisez l'outil intégré "Certificats numériques pour les projets VBA" pour créer un nouveau certificat.
• Affectez ensuite ce certificat à la macro en cours. Suivez les étapes indiquées dans l'image ci-dessous :

6. Plus tard, vous devrez modifier les paramètres de macro pour n'activer que les macros signées numériquement.
7. Enfin, redémarrez Outlook pour activer ce projet VBA. Désormais, tous les e-mails entrants arriveront toujours dans la boîte de réception. Mais dès qu'un nouvel e-mail sera lu, il sera automatiquement déplacé vers les dossiers correspondants.

Astuces intelligentes pour résoudre les problèmes d'Outlook

Étant donné qu'Outlook est sujet aux erreurs, de nombreux utilisateurs recherchent des solutions efficaces pour résoudre les problèmes fréquents. Les techniques les plus courantes consistent généralement à créer un nouveau profil de messagerie, à désactiver les compléments tiers, à réparer la suite Office et à utiliser l'outil de réparation de la boîte de réception, Scanpst.exe. Si l'outil intégré ne fonctionne pas, vous pouvez recourir à un autre outil plus puissant. utilitaire de réparation Outlook corrompu, comme 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 réparer la base de données SQL corrompue et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com