How to automatically bcc all emails when send mail from Microsoft Outlook

1. This VBA codes can successfully use on outlook 2007, 2010 and 2013. The first thing you should do is to enable the Visual Basic Editor program.

In outlook 2007, click Tool tab > Macro > Visual Basic Editor.

2. When the Visual Basic Editor was launched, double click on Project 1 > Microsoft Office Outlook > ThisOutlookSession to open the VBA editor. And in the opening code editing window, select the Application option from the drop-down box. Then the editing window will show as follows:

3. Between the “Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean)” and “End Sub”, copy and paste the following codes between these two lines.

VBA code: Auto bcc when sending all emails

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient     Dim strMsg As String     Dim res As Integer     Dim strBcc As String     On Error Resume Next           ' #### USER OPTIONS ####     ' address for Bcc -- must be SMTP address or resolvable     ' to a name in the address book     strBcc = "SomeEmailAddress@domain.com"           Set objRecip = Item.Recipients.Add(strBcc)     objRecip.Type = olBCC     If Not objRecip.Resolve Then         strMsg = "Could not resolve the Bcc recipient. " & _                  "Do you want still to send the message?"         res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _                  "Could Not Resolve Bcc Recipient")         If res = vbNo Then             Cancel = True         End If     End If           Set objRecip = Nothing End Sub

***********************************

4. Next 

Ref: http://www.extendoffice.com/documents/outlook/1107-outlook-auto-bcc.html

Share on Google Plus

About Penguin Technology

I am a passionate cloud and DevOps professional specializing in Linux and open-source solutions. Through this blog, I share my knowledge and experience with the community, offering tips and insights on cloud technologies and DevOps practices.