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ères nouvelles : Kutools pour Outlook lance une version gratuite !

Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !

🤖 Kutools IA : Utilise une technologie IA avancée pour gérer les emails sans effort, y compris répondre, résumer, optimiser, étendre, traduire et composer des emails.

📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...

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

🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...

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

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

Déverrouillez instantanément Kutools pour Outlook d'un simple clic. Ne tardez pas, téléchargez maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger la version gratuite Passer à la version professionnelle