Comment déplacer des emails vers un dossier spécifié après avoir attribué une certaine catégorie dans Outlook ?

Supposons que vous ayez attribué une catégorie à un email reçu dans votre Outlook. Après avoir attribué la catégorie, vous souhaitez que cet email soit automatiquement déplacé vers un certain dossier de messagerie nommé d'après le nom de la catégorie. Par exemple, un email attribué à la catégorie « Privée » sera déplacé vers un dossier nommé « Privée » dans votre Outlook. Comment y parvenir ? La méthode décrite dans cet article peut vous aider à résoudre ce problème facilement.

Déplacer des emails vers un dossier spécifié après avoir attribué une certaine catégorie avec VBA

Déplacer des emails vers un dossier spécifié après avoir attribué une certaine catégorie avec VBA

Le code VBA ci-dessous peut vous aider à déplacer automatiquement des emails vers un dossier spécifié après avoir attribué une certaine catégorie dans Outlook. Veuillez procéder comme suit.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez pour ouvrir la fenêtre ThisOutlookSession (Code). Ensuite, copiez le code VBA ci-dessous dans la fenêtre. Voir capture d'écran :

Code VBA : Déplacer des emails vers un dossier spécifié après avoir attribué une certaine catégorie

Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items

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

Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories <> "" Then
        Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
        If xFlds.Count <> 0 Then
            For Each xFld In xFlds
                If xFld.Name = xMailItem.Categories Then
                    xFlag = True
                End If
            Next
        End If
        If xFlag = False Then
            Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
        End If
        Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
        xMailItem.Move xTargetFld
    End If
End If
End Sub

3. Enregistrez le code et redémarrez Outlook.

4. Désormais, lors de l'attribution d'une catégorie à un email reçu, un dossier portant le nom de la catégorie sera automatiquement créé sous le dossier Boîte de réception, et l'email sera déplacé dedans. Voir capture d'écran :

Remarque : Tous les emails attribués à la même catégorie seront automatiquement déplacés vers le même dossier. Cependant, si une nouvelle catégorie est attribuée à un email, un nouveau dossier sera automatiquement créé.

Assistant de messagerie IA dans Outlook : Réponses plus intelligentes, communication plus claire (magie en un clic !) GRATUIT

Rationalisez vos tâches quotidiennes dans Outlook avec l'Assistant de messagerie IA de Kutools pour Outlook. Cet outil puissant apprend de vos anciens emails pour offrir des réponses intelligentes et précises, optimiser le contenu de vos emails et vous aider à rédiger et affiner vos messages sans effort.

Cette fonctionnalité prend en charge :

• Réponses intelligentes : Obtenez des réponses élaborées à partir de vos conversations passées — personnalisées, précises et prêtes à être envoyées.
• Contenu amélioré : Affinez automatiquement votre texte d'email pour plus de clarté et d'impact.
• Rédaction sans effort : Fournissez simplement des mots-clés, et laissez l'IA faire le reste, avec plusieurs styles d'écriture.
• Extensions intelligentes : Développez vos idées avec des suggestions sensibles au contexte.
• Résumé : Obtenez des aperçus concis des longs emails instantanément.
• Rayonnement mondial : Traduisez vos emails dans n'importe quelle langue facilement.

Cette fonctionnalité prend en charge :

• Réponses intelligentes aux emails
• Contenu optimisé
• Brouillons basés sur des mots-clés
• Extension de contenu intelligente
• Résumé d'email
• Traduction multilingue

Le meilleur de tout, cette fonctionnalité est entièrement gratuite pour toujours ! Ne tardez pas — téléchargez dès maintenant l'Assistant de messagerie IA et profitez-en

Articles connexes :

• Comment attribuer une catégorie aux emails sortants dans Outlook ?
• Comment conserver les catégories d'origine lors de la réponse ou du transfert d'un email dans Outlook ?