|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 example sends a copy of each outgoing email to a certain address. The address is added as BCC, so the recipient doesn't see that.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim R As Outlook.Recipient
Address = "firstname.lastname@example.org"
Set R = Item.Recipients.Add(Address)
R.Type = olBCC