asked on

Auto BCC For Outlook 2010

I always like to BCC myself whenever I send an email to someone.

I always have to go up to the top and put my address in manually. Is there anyway to do this automatically?

Patrick Matthews

gta2011,

If you already have your email options set up to keep a copy in your sent items folder, why bother with this?

Patrick

madhatter5501

Can be done using this vbscript -

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

gta2011

ASKER

Where do I use this vb script?

ASKER CERTIFIED SOLUTION

madhatter5501

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

madhatter5501

when you paste the vbscript, to get it to work, you need to show bcc for new messages. I just tested it with outlook 2010

Alexei Kuznetsov

There is a tool in ReliefJet Essentials for Outlook called Add BCC to Messages. You can automate it by creating an outgoing Outlook rule and selecting this tool as a rule's custom aciton to execute.