|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.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim R As Outlook.Recipient Dim Address$ Address = "firstname.lastname@example.org" Set R = Item.Recipients.Add(Address) R.Type = olBCC R.Resolve End Sub
|Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.|