Comment déplacer un e-mail vers un dossier spécifié après l’avoir lu dans Outlook ?

Déplacer un e-mail vers un dossier spécifié après lecture est la meilleure façon de garder votre Boîte de réception bien organisée dans Outlook. De nombreux utilisateurs tentent de créer une règle à cet effet, mais Outlook ne prend pas en charge cette fonctionnalité via l’Assistant Règles. Dans cet article, nous vous montrons comment déplacer automatiquement vos messages lus vers un dossier de votre choix à l’aide d’un code VBA dans Outlook.

Déplacer un message électronique vers un dossier spécifié après lecture dans Outlook

Déplacer un message électronique vers un dossier spécifié après lecture dans Outlook

Vous pouvez déplacer vos e-mails vers un dossier spécifié dès leur lecture en exécutant un code VBA dans Outlook.

1. Commencez par créer un nouveau dossier nommé «Reviewed» dans le dossier Boîte de réception.

2. Ouvrez le dossier Boîte de réception, puis appuyez sur les touches Alt+F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Développez ensuite en double-cliquant sur Projet1 > Objets Microsoft Outlook > ThisOutlookSession pour ouvrir l’éditeur VbaProject.OTM.

4. Copiez ensuite le code VBA ci-dessous et collez-le dans l’éditeur VbaProject.OTM, comme le montre la capture d’écran ci-dessus.

Code VBA : déplacer les messages après lecture

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Cliquez ensuite sur le bouton Enregistrer pour sauvegarder le code VBA, puis fermez la fenêtre Microsoft Visual Basic pour Applications.

6. Cliquez avec le bouton droit sur la Barre d’outils Accès rapide, puis sélectionnez Personnaliser la barre d’outils Accès rapide dans le menu contextuel. Voir la capture d’écran :

7. Dans la boîte de dialogue Options Outlook, procédez comme suit :

1). Sélectionnez Macros dans la liste déroulante Choisir les commandes dans ;

2). Sélectionnez Projet1. ThisOutlookSession dans la zone située sous la liste déroulante Choisir les commandes dans ;

3). Cliquez sur le bouton Ajouter ;

4). Cliquez sur le bouton OK.

8. Le bouton Macro apparaît alors dans la Barre d’outils Accès rapide. Assurez-vous d’être bien dans la boîte de réception à partir de laquelle vous souhaitez déplacer tous les messages lus, puis cliquez sur le bouton Macro pour exécuter le code VBA depuis la Boîte de réception.

Remarques:

1. Ce code VBA peut être appliqué dans Outlook 2007, 2010 et 2013 ; toutefois, dans Outlook 2007, vous pouvez lancer le code en cliquant directement sur le bouton Exécuter.

2. Si plusieurs comptes de messagerie sont configurés dans votre Outlook, le code VBA s’applique uniquement au compte dont le fichier de données est défini par défaut. Pour vérifier quel fichier de données est défini par défaut, cliquez sur Fichier > Informations > Paramètres du compte > Paramètres du compte pour ouvrir la boîte de dialogue Paramètres du compte. Rendez-vous ensuite dans l’onglet Fichiers de données, où vous verrez que le fichier de données par défaut est marqué par devant.

3. Si vous souhaitez modifier le fichier de données par défaut pour un autre compte de messagerie, sélectionnez et mettez en surbrillance le compte que vous souhaitez définir par défaut, puis cliquez sur Définir par défaut dans la boîte de dialogue Paramètres du compte.

4. Lors de la première exécution du code VBA, si tous les messages lus ne sont pas déplacés d’un seul coup, cliquez à nouveau sur le bouton Macro jusqu’à ce que l’ensemble des messages lus de la Boîte de réception ait été transféré.

---

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook      Télécharger maintenant      Accéder à l’achat

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

• ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
• 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
• 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint

À propos de la Suite⬇ Télécharger la Suite💳 Acheter la Suite