Comments (2)

By admin, March 12, 2010 10:13 PM

Outlook to automatically Bcc all outgoing messages

Outlook has a rule to automatically Cc another person on outgoing messages, but no equivalent for Bcc. This page offers two code samples for adding such an automatic Bcc. Both use the Application.ItemSend event, which fires whenever a user sends a message or other item.

IMPROVED METHOD

http://www.mcgrathtechnology.com/addins

2011

Method #1 (Basic)

This version is suitable for Outlook 2003 or later. It uses Outlook objects exclusively and includes error handling to avoid problems with an invalid Bcc address.

Place this VBA code in the built-in ThisOutlookSession module:

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

Continue reading 'Outlook Auto Bcc all messages'»