Outlook Macro to add email to Bcc and send it Posted on October 2, 2017October 24, 2017 by dpejic It goes under thisOutlookSession Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim olRecip As Recipient Dim olMsg As String Dim res As Integer Dim olBcc As String On Error Resume Next '// set email address here olBcc = "Address@domain.com" Set olRecip = Item.Recipients.Add(olBcc) olRecip.Type = olBcc If Not olRecip.Resolve Then olMsg = "Could not resolve Bcc recipient. " & _ "Do you still want to send?" res = MsgBox(olMsg, vbYesNo + vbDefaultButton1, _ "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set olRecip = Nothing End Sub OR To solve this (making a copy yourself for the emails you send) follow the below steps: 1. Rules > Manage Rules & Alerts 2. Click on New Rule 3. In the Step 1, Select ‘Apply rule on messages I send’ 4. Click Next 5. In next screen you may have to select your conditions for this rule 6. Click Next 7. In this screen mark ‘move a copy to the specified folder’ and set the folder (say Inbox) 8. Then go ahead and choose other things and apply the rule. Once this is done, next time you send an email, a copy of it will be placed in your specified folder. Note: This is client only rule.