Comment déplacer le message électronique vers le dossier spécifié après la lecture dans Outlook?

Le déplacement du message électronique vers un dossier spécifié après la lecture est un meilleur moyen de garder le dossier Boîte de réception propre dans Outlook. Pour de nombreux utilisateurs d'Outlook, ils ont tendance à créer une règle pour le déplacement de ces e-mails lus. En fait, Outlook ne prend pas en charge ce processus d'assistant de règles. Dans cet article, nous allons vous montrer comment déplacer des messages électroniques vers un dossier spécifié après avoir lu avec le code VBA dans Outlook.

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

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

Vous pouvez déplacer les messages électroniques vers un dossier spécifié après avoir lu le code VBA en cours d'exécution dans Outlook.

1. Tout d'abord, vous devez créer un nouveau nom de dossier "Commenté»Dans le dossier Boîte de réception.

2. Ouvrez le dossier Boîte de réception, puis appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Puis double-cliquez pour développer Project1 > Objets Microsoft Outlook > Cette session Outlook ouvrir le VbaProject.OTM éditeur.

4. Ensuite, copiez et collez 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. Puis cliquez sur le Épargnez pour enregistrer le code VBA, puis fermez le Microsoft Visual Basic pour applications fenêtre.

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

7. dans le Options d'Outlook boîte de dialogue, vous devez:

1). Sélectionner Macros dans le Choisissez les commandes de la liste déroulante;

2). Sélectionner Projet 1. ThisOutlookSession dans la boîte sous le Choisissez les commandes de la liste déroulante;

3). Clique le Ajouter bouton;

4). Clique le OK .

8. Ensuite, vous pouvez voir le Macro bouton affiché dans le Barre d'outils d'accès rapide. Assurez-vous que vous recherchez dans le dossier de 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 dans la boîte de réception.

Florales:

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

2. S'il existe plusieurs comptes de messagerie 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 Déposez votre dernière attestation > Info > Paramètres > Paramètres ouvrir le Paramètres boite de dialogue. Ensuite, allez à la Fichier de données onglet, vous verrez que le fichier de données par défaut est marqué par avant.

3. Si vous souhaitez remplacer le fichier de données par défaut par un autre compte de messagerie, sélectionnez et mettez en surbrillance le compte que vous souhaitez définir par défaut, puis cliquez sur le bouton Définir par défaut dans le Paramètres boite de dialogue.

4. Lorsque vous exécutez le code VBA pour la première fois et que vous découvrez que les messages lus ne sont pas déplacés d'un seul coup, continuez à cliquer sur le bouton Macro jusqu'à ce que tous les messages lus de la boîte de réception soient déplacés.

---

Meilleurs outils de productivité bureautique

Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!

Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!

🤖 Kutools IA : Utilise une technologie d'IA avancée pour gérer les e-mails sans effort, notamment en répondant, en résumant, en optimisant, en prolongeant, en traduisant et en composant des e-mails.

📧 Email Automation: Réponse automatique (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Vous rappeler lorsque des e-mails importants arrivent  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

Déverrouillez instantanément Kutools pour Outlook en un seul clic :gratuit en permanence. N'attendez pas, téléchargez maintenant et augmentez votre efficacité !

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