Comment déplacer automatiquement des courriers électroniques vers un dossier spécifié après leur avoir attribué une certaine catégorie dans Outlook ?
Supposons que vous ayez attribué une catégorie à un courrier reçu dans Outlook. Après cette attribution, vous souhaitez que ce message soit automatiquement déplacé vers un dossier spécifique portant exactement le même nom que la catégorie. Par exemple, un e-mail marqué avec la catégorie « Privé » sera transféré automatiquement vers le dossier « Privé » dans votre Outlook. Comment faire ? La méthode présentée dans cet article vous permettra de résoudre ce problème en toute simplicité.
Déplacer automatiquement des courriers vers un dossier spécifié après l’attribution d’une catégorie à l’aide de VBA
Le code VBA ci-dessous permet de déplacer automatiquement des messages vers un dossier spécifié dès qu’une certaine catégorie leur est attribuée dans Outlook. Voici la procédure à suivre.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez pour ouvrir la fenêtre ThisOutlookSession (Code). Copiez ensuite le code VBA ci-dessous dans cette fenêtre. Voir la capture d’écran :
Code VBA : Déplacer des courriers vers un dossier spécifié après l’attribution d’une 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, dès qu’une catégorie est attribuée à un courrier reçu, un dossier portant le nom de cette catégorie est automatiquement créé dans la Boîte de réception, et le message y est déplacé. Voir la capture d’écran :
Remarque : Tous les courriers électroniques attribués à la même catégorie sont automatiquement déplacés vers un même dossier. Toutefois, si une nouvelle catégorie est attribuée à un message, un nouveau dossier est créé automatiquement.
Assistant IA Mail dans Outlook : des réponses plus intelligentes, une communication plus claire (magie en un clic !) !
Simplifiez vos tâches quotidiennes dans Outlook avec l’Assistant IA Mail de Kutools pour Outlook. Cet outil intelligent s’appuie sur vos e-mails précédents pour vous suggérer des réponses pertinentes, optimiser le contenu de vos messages et vous aider à rédiger et perfectionner vos e-mails en toute simplicité.
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 immédiatement utilisables.
- Contenu amélioré : affinez automatiquement le texte de vos e-mails pour plus de clarté et d’impact.
- Rédaction simplifiée : il vous suffit d’indiquer des mots-clés, et l’IA s’occupe du reste, avec plusieurs styles d’écriture.
- Extensions intelligentes : libérez tout le potentiel de vos idées grâce à des suggestions parfaitement adaptées à votre contexte.
- Résumé : obtenez instantanément des aperçus concis de vos e-mails les plus longs.
- Portée mondiale : traduisez vos e-mails facilement dans n’importe quelle langue.
Cette fonctionnalité prend en charge :
- Réponses intelligentes aux e-mails
- Contenu optimisé
- Brouillons basés sur des mots-clés
- Extension intelligente du contenu
- Résumé d’e-mails
- Traduction multilingue
N’attendez plus –téléchargez dès maintenant l’Assistant IA Mail et profitez-en!
Articles associés :
- Comment attribuer une catégorie à un courrier électronique sortant dans Outlook ?
- Comment conserver les catégories d’origine lors de la réponse ou de la transmission d’un courrier électronique dans Outlook ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour accroître votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, au lieu de le faire dans des fenêtres séparées.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools en un seul installateur.
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi qu’Office Tab Pro, ce qui en fait la solution idéale pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un— compléments pour Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée entre les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels