Outlook setup auto Bcc

To setup a default BCC email in outlook for 2003 onwards?

AK refined, combined and amended from
http://www.outlookcode.com/article.aspx?id=72 and
http://forums.techguy.org/business-applications/746183-thisoutlooksession-question.html

Follow the following step:

1. Open Outlook
2. Press ALT-F11 to open the Visual Basic window / Tools -> Macro -> Visual Basic Editor
3. Double-click the “ThisOutlookSession” in the left-hand pane under the “Microsoft Office Outlook Objects” folder to open a (hopefully empty) window
4. Paste the code in (you will see that VB automatically puts in dividers etc.–just leave it alone

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 = “someone@somewhere.dom”

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

5. Close the VisualBasic windows–save the changes if prompted
6. Ensure Outlook macro security setting is low enough, “Tool -> Macro -> Security” need to set to “No security check for macro”
7. Close all Outlook windows
8. Re-open Outlook and give it a test

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s