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: 480.199  | #77
◀ Previous sample Next sample ▶
SAM SAM
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.

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
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
email  Send a message