|VBOffice Reporter is an easy to use tool for data analysis and reporting in Outlook. A single click, for instance, allows you to see the number of hours planned for meetings the next month.
The email wil be marked read when it is moved to a subfolder of the inbox. The subfolder is named 'test', adjust the name for your needs.
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Dim F As Outlook.MAPIFolder
Set Ns = Application.GetNamespace("MAPI")
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Folders("test")
Set Items = F.Items
Private Sub Items_ItemAdd(ByVal Item As Object)
Item.UnRead = False