

This VBA code can be applied in Outlook 2007, 20 But, in Outlook 2007, you can directly click the Run button to run the code.Ģ. 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.ġ. Then you can see the Macro button showing in the Quick Access Toolbar. ThisOutlookSession in the box under the Choose commands from drop-down list Ĩ. Select Macros in the Choose commands from drop-down list Ģ). In the Outlook Options dialog box, you need to:ġ). Right click the Quick Access Toolbar, and select Customize Quick Access Toolbar from the right-clicking menu. Then click the Save button to save the VBA code and then close the Microsoft Visual Basic for Applications window.Ħ. Set oFolderDst = oFolderSrc.Folders("Reviewed") Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox) Set oNamespace = oOutlook.GetNamespace("MAPI") Set oOutlook = CreateObject("Outlook.Application") VBA code: move messages after read Sub MoveInbox2Reviewed()

Then copy and paste the below VBA code to the VbaProject.OTM editor as shown in above screenshot. Then double click to expand Project1 > Microsoft Outlook Objects > ThisOutlookSession to open the VbaProject.OTM editor.Ĥ. Open the Inbox folder, then please press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.ģ. Firstly, you need to create a new folder name “ Reviewed” under the Inbox folder.Ģ. You can move email messages to a specified folder after reading with running VBA code in Outlook.ġ. Move email message to specified folder after reading in Outlook
