Outlook

Auto BCC

Ease of Use

Intermediate

Version tested with

2003-2013 

Submitted by:

XopieX20

Description:

This will add a email address to BCC automatically. 

Discussion:

We use this when we send an email from a shared mailbox, it will automatically BCC another address we use for QA reasons. 

Code:

instructions for use

			

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 If item.SentOnBehalfOfName = "Put FROM email address here" Then strBcc = "Put BCC address here" End If Set objRecip = item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then If res = vbNo Then Cancel = True End If End If

How to use:

  1. Go to outlook, press ATL+F11
  2. Double click Project1
  3. Double click Microsoft Office Outlook
  4. Double click This OutlookSession
  5. Past the code and hit save.
  6. TURN OFF macro security in the options or this will not work right.
 

Test the code:

  1. We use this code everyday for over 100 people. This works like a charm.
 

Sample File:

No Attachment 

Approved by Jacob Hilderbrand


This entry has been viewed 6 times.

Please read our Legal Information and Privacy Policy
Copyright @2004 - 2020 VBA Express