|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.
This sample prints every e-mail that's gets into the inbox and is unread (so it also prints unread e-mails that you move manually from any folder into the inbox).
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Set Ns = Application.GetNamespace("MAPI")
Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
Private Sub Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
Private Sub PrintNewItem(Mail As Outlook.MailItem)
On Error Resume Next
If Mail.UnRead Then