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: 26.799  | #77
◀ Previous sample Next sample ▶
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.

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