Comment 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 l'avoir lu est le meilleur moyen de garder le dossier Boîte de réception propre dans Outlook. De nombreux utilisateurs d'Outlook ont tendance à créer une règle pour le déplacement de ces e-mails lus. En réalité, Outlook ne prend pas en charge ce processus d'assistant de règles. Dans cet article, nous vous montrerons comment déplacer des messages électroniques vers un dossier spécifié après lecture avec du 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 des messages électroniques vers un dossier spécifié après lecture en exécutant un code VBA dans Outlook.

1. Tout d'abord, vous devez créer un nouveau dossier nommé “Reviewed” sous 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 for Applications.

3. Ensuite, double-cliquez pour développer Project1 > Microsoft Outlook Objects > ThisOutlookSession afin d'ouvrir l'éditeur VbaProject.OTM .

4. Copiez et collez ensuite le code VBA ci-dessous dans l'éditeur VbaProject.OTM comme indiqué dans 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 for 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, vous devez :

1). Sélectionner Macros dans la liste déroulante Choisir des commandes depuis ;

2). Sélectionner Project1. ThisOutlookSession dans la zone sous la liste déroulante Choisir des commandes depuis ;

3). Cliquez sur le bouton Ajouter ;

4). Cliquez sur le bouton OK.

8. Vous pouvez alors voir le bouton Macro apparaître dans la Barre d'outils Accès rapide. Assurez-vous que vous êtes dans le dossier Boîte de réception à partir duquel vous souhaitez déplacer tous les messages lus, puis cliquez sur le bouton Macro pour exécuter le code VBA à l'intérieur de la Boîte de réception.

Remarques :

1. Ce code VBA peut être appliqué dans Outlook 2007, 2010 et 2013 ; cependant, dans Outlook 2007, vous pouvez directement cliquer sur le bouton Exécuter pour exécuter le code.

2. S'il existe plusieurs comptes e-mail dans votre Outlook, le code VBA ne peut être appliqué qu'au compte dont le fichier de données est défini par défaut. Vous pouvez vérifier le fichier de données par défaut en cliquant sur Fichier > Info > Paramètres du compte > Paramètres du compte pour ouvrir la boîte de dialogue Paramètres du compte. Ensuite, rendez-vous dans l'onglet Fichier de données vous verrez que le fichier de données par défaut est marqué par auparavant.

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

4. Lors de l'exécution du code VBA pour la première fois, si vous constatez que les messages lus ne sont pas tous déplacés immédiatement, continuez à cliquer sur le bouton Macro jusqu'à ce que tous les messages lus dans la Boîte de réception soient déplacés.

---

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Exploite une technologie avancée d’IA pour gérer les e-mails en toute simplicité, notamment pour répondre, résumer, optimiser, étendre, traduire et rédiger des e-mails.

📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...

📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...

📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...

🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à 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 – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez pas, téléchargez dès maintenant pour gagner en efficacité !

Tableau unidimensionnel des fonctionnalités de Kutools pour Outlook Télécharger maintenant Aller à Acheter

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

Recommandé vivement : Kutools pour Office (5-en-1)

Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !

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

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