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 une 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 : Utilise une technologie avancée d’intelligence artificielle pour gérer vos emails en toute simplicité, notamment répondre, résumer, optimiser, étendre, traduire et rédiger des emails.

📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...

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

🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...

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

👩🏼‍🤝‍👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...

Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez plus, téléchargez maintenant et augmentez votre productivité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Acheter