VBOffice

Send a Copy of Every Email to Yourself

This example sends a copy of each outgoing email to another address. The address is added as BCC so the recipient doesn't see that.

Last modified: 2009/11/17 | Accessed: 482.050  | #77
◀ Previous sample Next sample ▶
Reporter Reporter
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.


tip  How to add macros to Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim R As Outlook.Recipient
  Dim Address$

  Address = "abc@domain.com"

  Set R = Item.Recipients.Add(Address)
  R.Type = olBCC
  R.Resolve
End Sub
OLKeeper OLKeeper
OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.
email  Send a message