Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S’enregistrer  \/ 
x

or

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

Onglet Office - Activez la modification et la navigation par onglets dans Office et simplifiez considérablement le travail ...
Kutools for Outlook - apporte 100 fonctionnalités avancées puissantes à Microsoft Outlook
  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par règles; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à plusieurs e-mails à la fois; Ajouter un message d'accueil automatique quand répondre; Ajout automatique de la date et de l'heure au sujet ...
  • Outils de fixation: Détacher automatiquement, Tout compresser, Tout renommer, Tout enregistrer automatiquement ... Rapport rapide, Compter les courriers sélectionnés, Supprimer les messages et contacts en double ...
  • Plus de 100 fonctionnalités avancées résoudre la plupart de vos problèmes dans Outlook 2010-2019 et 365. Fonctionnalités complètes Essai gratuit de 60 jours.

flèche bleue bulle droiteDé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 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 rapideEt 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 et 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 Add 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.

Notes:

1. Ce code VBA peut être appliqué dans Outlook 2007, 2010 et 2013; Mais, dans Outlook 2007, vous pouvez directement cliquer sur le course 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 le > Information > Paramètres du compte > Paramètres du compte ouvrir le Paramètres du compte 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 et Paramètres du compte 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.


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnés...
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Augusto · 1 years ago
    What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
  • To post as a guest, your comment is unpublished.
    Augusto · 1 years ago
    What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
  • To post as a guest, your comment is unpublished.
    EM · 1 years ago
    I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
  • To post as a guest, your comment is unpublished.
    Becky · 1 years ago
    has anyone had this not work the second time you tried to apply it?
  • To post as a guest, your comment is unpublished.
    fabio · 2 years ago
    Buongiorno


    Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
  • To post as a guest, your comment is unpublished.
    Jake · 3 years ago
    What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
  • To post as a guest, your comment is unpublished.
    Keldon · 4 years ago
    Where's all the Dim's?????????????????????/ o.0
  • To post as a guest, your comment is unpublished.
    Karlton Hoskins · 4 years ago
    I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
    • To post as a guest, your comment is unpublished.
      . · 3 years ago
      You have to activate the references in VBA
  • To post as a guest, your comment is unpublished.
    Liz · 4 years ago
    Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?