Skip to main content

How to move email message to specified folder after reading in Outlook?

Moving email message to a specified folder after reading is a best way to keep the Inbox folder clean in Outlook. For many Outlook users, they tend to create a rule for these read emails moving. Actually, Outlook does not support this rule wizard process. In this article, we will show you how to move email messages to specified folder after reading with VBA code in Outlook.

Move email message to specified folder after reading in Outlook

Office Tab - Enable Tabbed Editing and Browsing in Microsoft Office, Making Work a Breeze
Kutools for Outlook - Boost Outlook with 100+ Advanced Features for Superior Efficiency
Boost your Outlook 2021 - 2010 or Outlook 365 with these advanced features. Enjoy a comprehensive 60-day free trial and elevate your email experience!

arrow blue right bubbleMove email message to specified folder after reading in Outlook

You can move email messages to a specified folder after reading with running VBA code in Outlook.

1. Firstly, you need to create a new folder name “Reviewed” under the Inbox folder.

2. Open the Inbox folder, then please press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

3. Then double click to expand Project1 > Microsoft Outlook Objects > ThisOutlookSession to open the VbaProject.OTM editor.

4. Then copy and paste the below VBA code to the VbaProject.OTM editor as shown in above screenshot.

VBA code: move messages after read

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. Then click the Save button to save the VBA code and then close the Microsoft Visual Basic for Applications window.

6. Right click the Quick Access Toolbar, and select Customize Quick Access Toolbar from the right-clicking menu. See screenshot:

7. In the Outlook Options dialog box, you need to:

1). Select Macros in the Choose commands from drop-down list;

2). Select Project1. ThisOutlookSession in the box under the Choose commands from drop-down list;

3). Click the Add button;

4). Click the OK button.

8. Then you can see the Macro button showing in the Quick Access Toolbar. Make sure that you are locating in the inbox folder you want to move all the read messages from, then click the Macro button to run the VBA code inside the Inbox.

Notes:

1. This VBA code can be applied in Outlook 2007, 2010 and 2013; But, in Outlook 2007, you can directly click the Run button to run the code.

2. If there are multiple email accounts existing in your Outlook, the VBA code can only be applied in the account which data file is set as default. You can check the default data file by clicking File > Info > Account Settings > Account Settings to open the Account Settings dialog box. Then go to the Data File tab, you will see the default data file is marked by before.

3. If you want to change the default data file to another email account, please select and highlight the account you want to set as default, then click the Set as Default in the Account Settings dialog box.

4. When running the VBA code at the first time and finding out the read messages are not moved all at once, please keep clicking the Macro button until all read messages in the Inbox are moved out.


Best Office Productivity Tools

Kutools for Outlook - Over 100 Powerful Features to Supercharge Your Outlook

🤖 AI Mail Assistant: Instant pro emails with AI magic--one-click to genius replies, perfect tone, multilingual mastery. Transform emailing effortlessly! ...

📧 Email Automation: Out of Office (Available for POP and IMAP)  /  Schedule Send Emails  /  Auto CC/BCC by Rules When Sending Email  /  Auto Forward (Advanced Rules)   /  Auto Add Greeting   /  Automatically Split Multi-Recipient Emails into Individual Messages ...

📨 Email Management: Easily Recall Emails  /  Block Scam Emails by Subjects and Others  /  Delete Duplicate Emails  /  Advanced Search  /  Consolidate Folders ...

📁 Attachments ProBatch Save  /  Batch Detach  /  Batch Compress  /  Auto Save   /  Auto Detach  /  Auto Compress ...

🌟 Interface Magic: 😊More Pretty and Cool Emojis   /  Boost Your Outlook Productivity with Tabbed Views  /  Minimize Outlook Instead of Closing ...

👍 One-click Wonders: Reply All with Incoming Attachments  /   Anti-Phishing Emails  /  🕘Show Sender's Time Zone ...

👩🏼‍🤝‍👩🏻 Contacts & Calendar: Batch Add Contacts From Selected Emails  /  Split a Contact Group to Individual Groups  /  Remove Birthday Reminders ...

Over 100 Features Await Your Exploration! Click Here to Discover More.

Read More       Free Download      Purchase
 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations