Auto BCC For Outlook 2010

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

Do more with

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

Commented:
gta2011,

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

Patrick
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

Author

Commented:
Where do I use this vb script?
here is the link that I found that - http://www.outlookcode.com/article.aspx?id=72
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

Commented:
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