|
|
|
|
|
|
|
|
|
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:
|
- Go to outlook, press ATL+F11
-
- Double click Project1
- Double click Microsoft Office Outlook
- Double click This OutlookSession
-
- Past the code and hit save.
-
- TURN OFF macro security in the options or this will not work right.
|
|
Test the code:
|
- 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 9 times.
|
|
|