Adding an Automatic BCC to Outlook

(This post was originally published April 23, 2009)

Note: This article is a bit out of date (in regards to newer versions of Outlook), but contains some interesting information in the comments section (which is reproduced here). At some point I will bring this article up to date, since I might have some new use cases for this functionality (i.e., automatically archiving posts to Evernote).


By using the built-in rules in Outlook you can automatically CC an email address on outgoing messages (and even specify additional criteria like keywords in subject lines, etc.), but there is no option to use BCC. This article will show how to modify Outlook to automatically BCC an email address on all outgoing messages.

There are probably several reasons in which you would want to automatically BCC and email address on all outgoing messages (archival purposes being one of them). In this instance, I needed a solution to perform an automatic BCC to a system email address for a pilot of the Trampoline Systems SONAR product. SONAR can consume your daily email traffic and use it to create connections to people and topics (sort of like an automatic FaceBook application. After some hunting around the internets, I happened upon this solution, which I’ll explain further here.

Note: This method was tested on Outlook 2007, but should work on Outlook 2003 or later.

  • You should be presented with something like this:
    OutlookVBA1
  • In the code window that opens up, choose Application from the left most drop-down list box, and ItemSend from the other (it might automatically be selected for you).
  • Double-click the ThisOutlookSession project to open it. In most cases this is empty, unless you’ve already been modifying your copy of Outlook with macros and such.
  • In the Project listing (upper left box on the screen), expand Project1 (VbaProject.OTM) and within that expand Microsoft Office Outlook Objects.
  • In Outlook, go to the Tools menu, Macro option, and select Visual Basic Editor.
  • Copy and paste the following code after the Private Sub line and before the End Sub line:

    Note: Be sure to replace SomeEmailAddress@domain.com with your intended email address. To test your changes you may wish to temporarily it to a secondary email address (like a Gmail account), to make sure all is working correctly.
  • When you are done, it should look like this:
    OutlookVBA2You’ll note that I have the intended email address set to the system account necessary for the SONAR product.
  • Save the VbaProject.OTM file, close the Visual Basic editor, return to Outlook, and start sending messages.

This should work for new messages as well as replies and forwarded messages. If you have any questions or comments, please comment on them here.


Comments copied from the original blog entry:

 

Dáire
Wednesday, May 13, 2009 3:49 PM
Some good advice there, was wondering if there is a way to specify it to a particular email account if multiple accounts exist in Outlook?

Thanks,

Dáire


Ben
Thursday, June 11, 2009 7:07 AM
Hi Michael,

This is exactly what I’m looking for, thanks!

However, I can’t seem to get it to work…
I have followed your instructions exactly, here is a screenshot of the code:
http://www.georgesmusic.com/images/auto-bcc.jpg

Any ideas?

Also, what if I have Outlook receiving/sending from multiple accounts and I just want this function to BCC for one of them?

Thanks so much!

Ben


Shawn
Wednesday, July 01, 2009 9:34 AM
Any way to modify this so that a BCC is sent only when a message is sent to a specific recipient?


aaron
Monday, August 03, 2009 1:22 PM
I have multiple e-mail accounts set up. Is there a way to make this run through the “Outlook Rules Wizard” so that this is only active when sending messages out on certian accounts?


Nick
Wednesday, August 05, 2009 7:33 AM
Hi Thanks for the info. It worked out for the first time then doesnt work anymore for the next ones. Also it makes my .pst unaccessible. It is a clean install of office 2003 and win xp. Please hlep


Bruce
Monday, November 23, 2009 10:57 AM
I have set this up, but I still do not receive the bcc. Is there anything I have to turn on in my Outlook?

thanks


Bruce
Monday, November 23, 2009 12:38 PM
It doesn’t seem to work for me. I made sure VBA was installed in the Microsoft options. Any thoughts?


Mina
Friday, December 04, 2009 9:15 AM
This is great! Many thanks!

How can we have messages BCCed only if the “Subject” includes a specific string?

Thanks in advance!


Shula Cohen
Tuesday, January 05, 2010 7:51 AM
Seems like it didn’t survive a reboot of the PC. The file is still there, but the Bcc is not done.


Mark Byrum
Tuesday, January 05, 2010 9:12 AM
Excellent! Did it myself and did not have to purchase and download a program to do this for me for $29.95. It is a simple fix which Microsoft SHOULD HAVE INCLUDED in the Outlook options in the first place. Good Job!
Mark


Prince
Thursday, January 14, 2010 10:29 AM
Thanks for the help. I was wondering how to change the coding so that it only applies to a specific account (email address). I am using outlook 2003.


ulf
Tuesday, January 19, 2010 12:43 PM
hi Michael,

I tried your code but I dont seem to be able to get this to work i.e. the BCC field is never populated 🙁 Any ideas?

reg//ulf


Grant Millar
Wednesday, January 20, 2010 12:28 AM
Excellent very easy, works a treat, thank you


Yu
Wednesday, February 03, 2010 6:05 AM
I followed the steps and sent email, but the bcc doesn’t work. Please help.


Vlady
Friday, February 12, 2010 12:13 PM
It did not work in my Windows 7 Outlook


Charmaine
Tuesday, March 16, 2010 12:29 PM
Hey there,

This is great informtion – thank you! Do you have any idea how to still send all received and sent messages to an additional participant, but the email address should not display in the bcc field of the sent item?

Thanks!
Charmaine


Gary Sipos
Wednesday, March 24, 2010 1:02 PM
If a person has more than one email account within Outlook, and if we want all the email messages to be BCC’ed from one email account and no email messages BCC’ed from the second email account, does the above code accommodate for this?

If not, do you have code that could accommodate for this?

Thanks for your kind consideration

Gary


joy
Saturday, April 10, 2010 5:29 PM
Hey, thanks for the instructions. I set this up and it worked once, but then when I closed and re-opened outlook, it stopped working. Any suggestions?


Okky
Saturday, April 10, 2010 8:11 PM
Hi Mike,

Nice tips. It actually worked for my Outlook 2007 yesterday.
But after I shutdown my laptop and turn it on again, it stops working.
Do you have any idea what’s going on?
I tried to put false email recipient on the strBcc, but the MsgBox won’t show up.

Thanks in advance.


slakos
Friday, April 16, 2010 6:29 AM
Thank you.


GG
Wednesday, April 28, 2010 3:25 AM
Hello,

Thus worked for me only once, since then my outgoing msgs arent going to the bcc address. Please help


ab
Wednesday, May 12, 2010 5:48 AM
It works perfectly. Thanks a lot.


Jeffrey Rodman
Monday, May 24, 2010 6:41 PM
Worked perfectly!

Awesome… thank you so much.

The only thing I was finding was add on software for a fee until I found your blog.


H
Tuesday, June 08, 2010 4:05 AM
Hi, Not sure if your site is still updated but thought I would try a comment! :¬)

Thanks for your tutorial.

I’ve just tried your Outlook/BCC hack and all works fine until I restart Outlook. The code is still there but it no longer takes affect?!

Any ideas?
Thanks again…


furman
Friday, July 02, 2010 2:46 AM
Brilliant, done in minutes thanks a lot.


Majed
Monday, July 05, 2010 1:13 AM
It doesn’t seem to work !


Rudy
Wednesday, July 21, 2010 6:41 AM
Adding an Automatic BCC to Outlook stopped working for me Jan 2010. Did an Outlook update stop this function?


Michael Kizer
Wednesday, July 21, 2010 12:24 PM
Note:
It has been brought to my attention that this may no longer work for unknown reasons (possibly a Microsoft security patch). I’ve confirmed that it no longer functions on my computer (WinXP with Outlook 2007).

Let me know via these comments if you have success or failure with this code.
Thanks.


MJ
Wednesday, July 28, 2010 6:27 PM
This was working for me until yesterday, but I found this very similar code on a German website and it seems to be working.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim R As Outlook.Recipient
Dim Address$

Address = “abc@domain.com”

Set R = Item.Recipients.Add(Address)
R.Type = olBCC
R.Resolve
End Sub
http://www.vboffice.net/sample.html?mnu=2%E2%8C%A9=en&smp=77&cmd=showitem

Anyone who knows more about VBA see any reason not to use this?


Zoe
Wednesday, August 04, 2010 8:17 PM
Totally Wicked, well done. Thanks Heaps!

Took 3 min to install and another 3 to test, works like a dream. Exactly what i needed.

5 stars

Zoe


Jordan
Friday, August 06, 2010 11:26 AM
I can’t seem to get this to work at all. Does anyone have a method that works with Windows 7 and Outlook 2007? I really need this for CRM tracking.

Thanks


Chris
Tuesday, August 10, 2010 8:18 AM
For those having problems getting this to work:

Check Tools/Trust Center to see whether security is set not to execute macros.


jon silve
Thursday, August 12, 2010 8:35 AM
works fine, but i want it to apply to only 1 of 2 accounts in my outlook 2007.

can the code be adjusted to look for an account name or similar before jumping in to action?

thanks


Bob
Tuesday, August 24, 2010 6:47 AM
Like a lot of other comments it worked yesterday but no longer works after rebooting … although the code is still there in outlook.

Did anyone figure out how to fix?

thanks


mkizer
Tuesday, August 24, 2010 10:19 AM
I’ve been unable to get either my original code or the alternate code posted in the comments to work in Outlook 2007. My guess is that MS has blocked some of this functionality via a security patch to prevent malicious use.

If anyone dives into this issue and discovers more, post it here. Thanks!


Bruno
Monday, September 06, 2010 5:49 AM
It worked perfectly on Outlook 2010.
I use it for achive purpose!

Thanks a lot!


Jon
Tuesday, September 07, 2010 5:18 PM
You have to sign the macro digitally to make it work.

Refer: http://www.hamz.me/how-to-auto-bcc-in-outlook-2007


Jann
Thursday, September 09, 2010 7:12 AM
Keep up the good work.


carlos
Monday, September 20, 2010 4:39 AM
Thank you Jon,
I had the same problem. It worked only one day!
But signing the macro digitally solved my problem:
( http://www.hamz.me/how-to-auto-bcc-in-outlook-2007 )


Ryan
Friday, October 01, 2010 9:01 PM

Just the kind of sneaky hack I love. Good idea for keeping a private record of work emails. I sure hope nobody gets it in their mind to add this to their boss’ PC, oh no, that would be wrong!


Fred
Monday, October 11, 2010 4:10 AM
Thank you for the step by step process.. 🙂


Owain Maedel
Wednesday, October 20, 2010 12:31 AM
Hi All,
so i am trying to apply an Auto Bcc to my Outlook but i wanted to be asked after i send the msg if i really want to BCC the msg.
I’m nearly there this is how far i got:

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

strMsg = “Do you want to BCC this message?”
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, “BCC Message”)
If res = vbNo Then
Cancel = True
End If
‘ #### USER OPTIONS ####
‘ address for Bcc — must be SMTP address or resolvable
‘ to a name in the address book
strBcc = “your@mail.com”

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

AutoBCC without being asked
not working at all with you?
Try this Link:
http://www.eggheadcafe.com/software/aspnet/35532484/applicationitemsend-not-firing-even-with-low-security.aspx

And this is where Im collecting some infos:
http://www.msxfaq.de/code/olkvba.htm

When the code is finished i will post here.

Best Owain


Owain Maedel
Wednesday, October 20, 2010 7:46 AM
Hi All,
so i am trying to apply an Auto Bcc to my Outlook but i wanted to be asked after i send the msg if i really want to BCC the msg.
I’m nearly there this is how far i got:

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

strMsg = “Do you want to BCC this message?”
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, “BCC Message”)
If res = vbNo Then
Cancel = True
End If
‘ #### USER OPTIONS ####
‘ address for Bcc — must be SMTP address or resolvable
‘ to a name in the address book
strBcc = “your@mail.com”

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

AutoBCC without being asked
not working at all with you?
Try this Link:
http://www.eggheadcafe.com/software/aspnet/35532484/applicationitemsend-not-firing-even-with-low-security.aspx

And this is where Im collecting some infos:
http://www.msxfaq.de/code/olkvba.htm

When the code is finished i will post here.

Best Owain


Owain Maedel
Wednesday, October 27, 2010 4:40 AM
Here it is!
Enjoy!

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

strBcc = “your@mail.com”

res = MsgBox(“BCC this message?”, vbYesNo + vbDefaultButton1, _
“BCC Message”)
If res = vbNo Then
Cancel = False
Else
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC

If Not objRecip.Resolve Then
strMsg = “Could not resolve the Bcc recipient. ” & _
“Please check the BCC Script configuration. ” & _
“Do you want still to send the message?”
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
“Could not resolve BCC”)
If res = vbNo Then
Cancel = True
End If
End If
End If

Set objRecip = Nothing
End Sub

Dont forget to Enter valid Mial adress.

Best Owain


Mike C.
Tuesday, November 02, 2010 4:03 PM
This is really awesome!

You saved me from having to purchase those 3rd party applications.

Great Job!!


Colin
Friday, November 26, 2010 3:31 AM
Great code guys works really well 🙂

Is there a line of code that could be added to this to add some text to the subject line of the BCC ? would make it easier for filtering at the other end 🙂

Thanks


yup
Thursday, December 02, 2010 11:49 AM
posted by:
# Jon
Tuesday, September 07, 2010 5:18 PM
You have to sign the macro digitally to make it work.

Refer: http://www.hamz.me/how-to-auto-bcc-in-outlook-2007

^this works


joel hirsh
Saturday, December 11, 2010 9:55 AM
Maybe someone on this thread can help. I just installel Outlook 2010 and I’m using it with my gmail account. It appears to be doing an automatic blind copy (BCC) back to me when I send messages, How do I turn this off? It seems to be the opposite proble from what has been discussed before. Thank you in advance.


mkizer
Wednesday, December 15, 2010 10:03 AM
In a related note, watch out if you use these methods to spy on your boss – http://www.engadget.com/2010/12/15/irs-employee-uses-outlook-rules-to-intercept-bosss-e-mails-con/


maver
Friday, December 31, 2010 5:12 AM
For those who are interested, you can make the rule to apply this BCC feature only to one specified sending email account by using “Item.SendUsingAccount.SmtpAddress” to get the current sending email account.
IT Support London
# IT Support London Edit
Tuesday, January 11, 2011 3:33 PM
Just what I was looking for.
Will it work with outlook 2010

Also – Can we use it on our blog at http://www.sysfix.co.uk


mkizer
Tuesday, January 11, 2011 4:04 PM
Feel free to use this code anywhere…
As for Outlook 2010, you may have to follow some of the suggestions in the comments here to get it to work. I haven’t had time lately to experiment with it much (I certainly do need to update this article, since it seems fairly popular).


Rajendra
Thursday, January 13, 2011 2:29 AM
Brilliant, done in minutes thanks a lot.


Tanguy
Thursday, January 13, 2011 6:29 PM
Owain Maedel ! This is awesome dude, you save me some time on this or on crack site lol !

Thanks again^^


Ken Ng
Monday, January 17, 2011 9:51 PM
In outlook clicked on Tools/Macros/Security changed the level to Warning for all macros, ok

Again pressed Alt F11, clicked on Tools/Digital Signature click on Choose … u will see the Digital Signature u saved and select and press ok.

Restarted Outlook

upon restart it will ask to trust all the macros from press yes. And its done.


bonnier
Wednesday, January 19, 2011 9:41 PM
Can’t make this work with Outlookk 2003, does it work with this version. SP3.
Digital Signature shows no certificate, create a new e-mail bcc is blank, is it this version of Outlook


kurtblaze
Friday, February 04, 2011 8:37 AM
This works perfectly, but I need the bcc’d email to show up as a bcc not to. Is there a way for the BCC copy to be actually sent as a BCC not normal To copy?

Thanks in advance.


SRM
Friday, February 18, 2011 6:35 AM
Worked great! Thanks.


Noresh
Saturday, February 19, 2011 9:49 AM
Guys, I had the same issue and it has been resolved now.

For Outlook 2007, signing the macro digitally would solve the problem

Reference:- http://www.hamz.me/how-to-auto-bcc-in-outlook-2007


Manni
Monday, February 21, 2011 2:53 PM
Great hack. Works like a charm !


Hank
Thursday, March 10, 2011 10:43 AM
Trying to run this in Outlook 2003. Worked just fine yesterday. Not working at all today. Any ideas?


Joel
Saturday, March 26, 2011 4:13 PM
Perfect! Thank you!


JP
Wednesday, March 30, 2011 11:20 AM
Thanks for this. It works fine in Outlook 2010.


krystyna
Monday, April 04, 2011 8:31 AM
This worked fine in Outlook until I restarted my computer on today. Everything was working fine last week and I double checked everything but Outlook won’t send a blind carbon copy to myself.


Mark
Tuesday, April 12, 2011 2:25 PM
Digitally signing worked for me in Outlook 2003, as suggested by


Jon
Tuesday, September 07, 2010 5:18 PM
You have to sign the macro digitally to make it work.

Refer: http://www.hamz.me/how-to-auto-bcc-in-outlook-2007

^this works


Theresa
Sunday, April 24, 2011 5:39 PM
Works perfectly for Outlook 2007. Just inserted the code today, followed Ken’s instructions above (# Ken Ng January 17, 2011 9:51 PM) to take care of the macro and digital signature, I restarted my computer, and it works great! Thank you all for your input.


Venu T
Monday, April 25, 2011 6:12 AM
Wokrs like a charm. Love it!


kami
Friday, April 29, 2011 10:02 AM
I set this up yesterday & it worked perfectly; hwoever, today it’s not working. Do I need to set it up daily?


Ray
Wednesday, May 04, 2011 1:11 PM
Worked for me perfect, on the first try! Thanks! (Outlook 2003 SP 3)


DW
Friday, May 06, 2011 10:49 AM
This is great!
How would i change the “SentOnBehalfOf”


Guillermo
Wednesday, May 11, 2011 10:39 AM
Hi, this works great! but I have an issue, if I select a file then give right click and choose to send it by e-mail the code does not works, somebody knows how to fix it, or if this is possible.

Thanks


aliceayres
Friday, May 20, 2011 1:05 AM
I had the same problem where the Auto Bcc macro would fail to work after I exited Outlook 2010.

This solved the problem: http://www.hamz.me/how-to-auto-bcc-in-outlook-2007


Paul Middleton
Wednesday, June 15, 2011 3:10 AM
Worked 1st time perfect!! Many Thanks


Mike
Sunday, July 03, 2011 9:57 AM
It works for me in Outlook 2007 after I digitally sign it, but the bcc’d email address shows up in the cc: field at the receiver’s end everytime. So basically, it seems to be automatically cc’ing instead. I don’t want the people receiving emails to see the bcc’d email address. Anyone else experience this or have a solution?


Aman Bhalla
Sunday, July 10, 2011 11:09 PM
It works…..thanks 🙂


Don
Tuesday, July 12, 2011 7:20 AM
Worked great!

Thanks


DSH
Friday, August 05, 2011 7:02 PM
This worked great in Outlook 2003 after digitally signing. Thanks to mkizer and all the other contributors that made suggestions and posted mods. that made it work.


Rajesh
Monday, August 08, 2011 11:13 PM
I go through the above steps, and it’s works properly.

But when i open that sent mail and show mail header detail i found the mail address in cc instead of bcc.

can someone help me in this.


VaL
Monday, August 15, 2011 2:12 PM
code works perfectly.
it even works in outlook 2010 just make sure you enable all the macros in outlook 2010 options.
Good work mkizer!!!


Rajinder
Friday, August 19, 2011 6:09 AM
I hope this helps….i am not a programmer in any form, but have been able to paste this together from several different sites. It works for me very well as I have several accounts setup in my Outlook 2010. Enjoy….good luck with using it.

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
Dim objMsg As Outlook.MailItem
On Error Resume Next

‘ #### USER OPTIONS ####
‘Select one of the below Options, remove the comment marks (‘) in front of the line

‘Add text to the subject line when sending email
Set objMsg = Outlook.ActiveInspector.CurrentItem
‘objMsg.Subject = “Test”
‘objMsg.Subject = “Prepended text here – ” & objMsg.Subject
‘objMsg.Subject = objMsg.Subject & ” – Appended text here”

‘ Address for Bcc — must be SMTP address or resolvable
‘ Automatically selects the bcc address from the set “from” setting or
‘ to a select email address, your choose
strBcc = Item.SendUsingAccount
‘strBcc = “SomeEmailAddress@domain.com”
‘ Option 1: Select if you wish to auto bcc from a select account in outlook automatically
‘If Item.SendUsingAccount.SmtpAddress = ” SomeEmailAddress@domain.com ” Then

‘ Option 2: Select through notification meesage before sending the email if you wish to bcc the email
res = MsgBox(“Would you like to receive a copy of this message (Bcc)?”, vbYesNo + vbDefaultButton1, _
“BCC Message”)
If res = vbNo Then
Cancel = False
Else

‘ Option 3: Select if you wish to sent on behalf:
‘ If Item.SentOnBehalfOfName = ” SomeEmailAddress@domain.com ” Then

Set objRecip = Item.Recipients.Add(strBcc)
‘ objRecip.Type = olBCC
objRecip.Type = Outlook.OlMailRecipientType.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

End If

Set objRecip = Nothing

End Sub
Good Luck…Cheers


Rick
Tuesday, August 30, 2011 12:29 PM
Hi There, the question was already raised but I did not find the answer.
Any way to modify this so that a BCC is sent only when a message is sent to a specific recipient?

hope someone can help


David M
Tuesday, September 13, 2011 8:45 AM
Works! Thank you so much. FYI, in Outlook 2010 there are a few extra steps, since the Macro button is hidden by default.

Click the File tab.
Click the Help button in the left panel.
Click the Options button in the right panel.
Click the Customize Ribbon button in the new window.
Click the Developer checkbox on the right.

Now you should be able to select the Developer tab and then the Visual Basic button.

Everything else works as described.

Thanks again for providing this example. It saved the the time, effort, and expense of purchasing a third party add-on for every desktop – and who knows what other code that add-on would be installing!


amber
Monday, September 19, 2011 12:30 AM
thanks it helped alotttttttttt


Greg S
Thursday, September 22, 2011 8:10 AM
This works perfectly. Thanks! However, do you know how to exclude bcc’ing messages if I type in a certian word in the subject?


Bet
Thursday, October 06, 2011 6:29 AM
Basically BCC – You wouldnt know the difference….follow the below route

Tools > Rules and Alerts > New Rule > Check Messages After Sending > No Conditions > Select Yes > Move a Copy To The Specified Folder > Inbox > Any Exceptions? > Name the Rule > Finish


Giorgio
Friday, October 07, 2011 3:28 PM
Hi
I try yr original code and it’s working fine only with one e-mail address into Bcc
Good Work !
Do you know how I need to send in Bcc two e-mail addresses ?
Thanks in Advanced,
Giorgio


Randy
Thursday, October 13, 2011 6:18 AM
copied it, pasted it, everything looked the same, tried it, it worked…the first time. hasn’t worked since. what gives?


anon
Wednesday, October 26, 2011 10:35 AM
It worked really easily, but when the message arrived, there was no BCC box, it just arrived! That’s as good as BCC’d, but odd.


gbs
Thursday, October 27, 2011 8:29 PM
To: Giorgio

I have added some lines to the code shared by Michael Kizer (Thanks a lot Michael. You’re a heaven sent!) to make it work on more than 1 email address. In this code, you will be able to bcc 3 addresses.
Dim objRecip1 As Recipient
Dim objRecip2 As Recipient
Dim objRecip3 As Recipient

Dim strMsg As String
Dim res As Integer
Dim strBcc1 As String
Dim strBcc2 As String
Dim strBcc3 As String
On Error Resume Next

‘ #### USER OPTIONS ####
‘ address for Bcc — must be SMTP address or resolvable
‘ to a name in the address book
strBcc1 = “somebody1@mail.com”

Set objRecip1 = Item.Recipients.Add(strBcc1)
objRecip1.Type = olBCC
strBcc2 = “somebody2@mail.com”

Set objRecip2 = Item.Recipients.Add(strBcc2)
objRecip2.Type = olBCC
strBcc3 = “somebody3@mail.com.ph”

Set objRecip3 = Item.Recipients.Add(strBcc3)
objRecip3.Type = olBCC

If Not objRecip1.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
If Not objRecip2.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
If Not objRecip3.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 objRecip1 = Nothing
Set objRecip2 = Nothing
Set objRecip3 = Nothing

End Sub
Hope it helps.


Nicolay Astashov
Thursday, November 10, 2011 1:27 AM
THANK YOU VERY MUCH!!!!! SO SIMPLE AND EXACTLY WHAT WE NEEDED!!! THANKS AGAIN


rvadgama
Wednesday, November 16, 2011 4:56 AM
Code is works Perfectly… !!!
Thanks a lot.

can any one explain me after sending email in sent item i can see the BCC user email.
i want to remove that BCC user from sent item email.

please Email me : eluminous_sse6 at eluminoustechnologies.com


Brandon
Wednesday, November 16, 2011 7:07 PM
It worked for me on Outlook 2010 for the first time, then an error came up and then was not working anymore. I read the comments here and allow all macros in Outlook options and then it is working now. Great work & big thanks to mkizer and VaL.


brandon
Tuesday, December 20, 2011 8:45 AM
THIS WORKED PERFECT… first time trying it. AWESOME!!!! thanks so much!


Yianis Valasopoulos
Tuesday, December 27, 2011 3:01 AM
Hi There
Please a little bit help about outlook BCC. It works great but i have a minnor problem. When i compose an email and then i click on send, i can not see the BCC window so i can choose BCC or not. I have to click on outlook main window so there i can see the BCC window and choose BCC or not. In other words the BCC windows is visible only in main outlook window and not in the compose mail window. Thanks a lot.


Giorgio
Wednesday, December 28, 2011 1:30 PM
Thanks @GBS
It works perfect
Bye
Giorgio


Bill Doble
Sunday, January 01, 2012 6:43 AM
For Outlook 2003. I used the Visual Basic Editor method as previously described and experienced the same one-time successes as others. You must create a digital signature and activate it to make it work. But it is a slightly different process than described for Outlook 2007.

So, here is the process I used:

1) From Windows XP, press Start; then All Programs; then Microsoft Office; then Microsoft Office Tools; then Digital Certificate for VBA Projects; the create Digital Certificate, (name it something you will easily recognize like “Oulook BCC”).

2) From Outlook 2003, follow instructions as detailed by Michael Kizer at top of this page (http://michaelkizer.com/Blog/tabid/117/articleType/ArticleView/articleId/36/Adding-an-Automatic-BCC-to-Outlook.aspx).

BUT you Must take an additional step!

3) Before closing your VbaProject.OTM, go to Tools; then Digital Signature; then choose the Certificate Name you created earlier; click Okay; then Save and close Project.

4) Exit and restart Outlook 2003.

You may get a prompt about trusting your macro, if so click okay.

It now works well for me.


Mick
Saturday, January 07, 2012 8:59 PM
Yianis, I am assuming this is what you want.
Click NEW EMAIL. Click OPTIONS on message Menu Bar. Click BCC SHOW FIELD and it will appear in future messages. This is for Outlook 2010. Earlier versions have the same or similar process to switch on BCC.

This code looks like a great solution to a problem that needed solving. Looking forward to implementing it. Well done!


Bill Doble
Sunday, January 15, 2012 5:38 PM
UPDATE

I have been using the auto bcc as done above (http://michaelkizer.com/Blog/tabid/117/articleType/ArticleView/articleId/36/Adding-an-Automatic-BCC-to-Outlook.aspx#Comment964) with Outlook 2003 for a couple of weeks now and am pleased to report that all is working flawlessly.

Enjoy!


Matt
Thursday, March 01, 2012 7:20 AM
Would anyone know of any reason this moght not work on emails sent from Blackberry? Would this have to be set up on the blackberry too?


GSK
Saturday, March 03, 2012 6:52 AM
Great Job.


Parvez
Wednesday, March 07, 2012 1:38 AM
Thanks yaar!!! It was really of great help.


Darren
Thursday, March 08, 2012 11:22 AM
Worked just FINE IN Outlook 2003!! One MUST Realize that it WON’T Show the BCC Box in the section where you set recipients, but after you click “send”, a copy is sent to you as a BCC Recipient. Isn’t the Point to get the email — not have the box show.

By the way… My Macro Security is STILL Set to HIGH! — Works Fine 🙂


Debra
Tuesday, March 13, 2012 8:55 PM
This is exactly what I was looking for. I am not computer savvy and don’t really want to learn programming, so this was the absolutely perfect answer for Outlook 2010. Thank you SO much!


Lori
Friday, March 30, 2012 1:42 PM
Perfect!!! Thank you!


Albert Michaels
Saturday, March 31, 2012 10:35 AM
Enable all macros and uncheck DEP settings. Finally works!


Giorgia
Tuesday, April 03, 2012 10:57 AM
Amazing – works perfectly – thank you!


Ahsanul Hoque
Thursday, April 05, 2012 12:21 AM
It works perfectly with Microsoft Office Outlook 2007.

Thanks a lot…


Cobs
Monday, May 07, 2012 6:27 AM
Works great….thanks a ton


Karl
Thursday, May 17, 2012 9:01 PM
For those who found the macro to lose its effect after an Outlook restart, refer to http://stackoverflow.com/questions/5660028/how-to-enable-thisoutlooksession-in-outlook-2007 on the security settings.


sohan salunke
Friday, May 18, 2012 10:57 PM
Hi,

works grate…. but mails received by Bcc mail id goes to Junk Mail


Mudassar
Monday, June 18, 2012 8:20 PM
It Worked, but when i check in the email in the sent item. The email is showing the Bcc address as well. I want it to hide from the user, so that user does not know that emails are being copy. Any solution?
Thanks,


TimF
Thursday, June 28, 2012 11:29 AM
Works for me in Outlook 2010 and Windows 7 x64 – sending to a Gmail account. Thanks.


itsme
Monday, August 06, 2012 10:46 PM
Hi Guys,
Amazing solution .. but one small problem, the bcc works partially.

like if my mail id is abc@xyz.com .. and i’m sending mails from this id. Now bcc macro works only for mails sent to this abc@xyz.com id. 🙁

This macro does not work when i’m mailing it to some other mail id’s … what could be wrong .. pls give me a solution.

looking forward to a solution … pls help.

itsme…


mahesh
Tuesday, August 07, 2012 12:57 PM
works like a charm !!!!!!


Karl
Tuesday, August 07, 2012 5:26 PM
@Mudassar – Sender sees the BCC addresses. Recipients would not.


Sathish Chennai
Friday, August 10, 2012 3:28 AM
Thank you so much.. Its working perfectly


Betty
Wednesday, August 29, 2012 1:21 PM
Thanks, works a treat and so simple, clear instructions
Betty


chris
Thursday, September 06, 2012 8:48 PM
thank you for the important way on how to auto bcc this will help be generate my sales!


Luis
Tuesday, September 11, 2012 2:35 PM
Wow, this worked just as advertised. Had the problem where it stopped working after restarting, but adding the digital certificate got it working again.

THANK YOU!


Mushfiqur Rahman
Tuesday, October 02, 2012 2:35 AM
It worked perfectly. Thanks a million.


Cyndy
Tuesday, October 02, 2012 9:58 AM
This is awesome. Thank you so much for providing this!


sam
Monday, December 03, 2012 12:03 AM
it works like a gem. 🙂


Surya
Tuesday, January 08, 2013 10:23 PM
Wow!!! this is amazing 🙂 thanks


Mohammad Abdullah
Wednesday, January 09, 2013 4:25 AM
hi,
i tried the above solution & it works for one week & stopped working!?


Tanzim Hasan
Wednesday, April 03, 2013 10:29 PM
It worked like magic.

Thank you!
www.tanzimhasan.com


Ankit
Tuesday, April 16, 2013 3:57 AM
Works well…. thanks 🙂

Now for every mail i send i do not need to remember adding my boss in bcc.


Lisa
Friday, May 24, 2013 10:35 AM
Worked like a charm for Outlook 2003. No muss, no fuss, easy to read and follow instructions.

Awesome!


katya chong
Tuesday, May 28, 2013 6:50 AM
hi guys i need to create a custom action to insert a link/shortcut to a local document when sending internally to certain people. i can setup the rule fine but of course the inserting of the shortcut needs to be via a custom action.
is there a way to create that in vb so that i can insert it with the rule? or is that strictly a C++ job.
thanks in advance
regards


Anonymous
Sunday, August 18, 2013 8:52 AM
http://cookiebear.info/archives/906


Tan
Monday, October 21, 2013 7:16 PM
Thanks a lot, this work fine for my Outlook 2003.


Chas Taylor
Friday, November 08, 2013 11:51 AM
I found this and It Now Works!

Digitally Sign a Macro Project

Click the Start button, point to All Programs, point to Microsoft Office, point to Microsoft Office Tools, and then click Digital Certificate for VBA Projects. In the Your certificate’s name box, type a descriptive name for the certificate.

In outlook click on Tools/Macros/Security change the level to Warning for all macros, ok

Again press Alt F11, click on Tools/Digital Signature click on Choose … u will see the Digital Signature u saved and select and press ok.

Restart Outlook

Upon restart it will ask to trust all the macros from press yes. And its done.

SOURCE (Also Vista steps)
http://office.microsoft.com/en-us/help/HA012317811033.aspx


Anonymous
Sunday, February 09, 2014 1:29 PM

Creative Community Bulletin 24 May 2011 Through 07 June 2011


Anonymous
Monday, February 17, 2014 3:23 AM
It is working like Chas Taylor says >> it must be digitally signed and macro security setting on “No security check for macros” in tools – macro – security.


Shrikrushna
Friday, July 11, 2014 11:11 PM
Really this is Great Solution, thanx again


 

Leave a Reply

Your email address will not be published. Required fields are marked *