Auto BCC For Outlook 2010

gta2011 used Ask the Experts™
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?
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2010


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

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


Where do I use this vb script?
here is the link that I found that -
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 KuznetsovMicrosoft Outlook MVP

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.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial