This is a nice macro and works well for me -- for original messages. But it does not appear to work for forwards or replies.

How can I change that?

Actually, it looks like the forwards and replies ARE coming, just coming later for some reason.

Matrix, the script doesn't seem to work on Outlook 2003. Does it only work with 2007? I copied and pasted the script and changed the email address. When I send a message, there is no BCC. I ever commented out the "On Error Resume Next" to see if there would be an error, but there was not.

I did test it on Outlook 2003, never used 2007.

hi guys,

thank you very much for the great macro,
I'm wondering if there is a way to specify the From header that needs to be copied (Bcc'd).
I mean if I have more than one account, I want all emails that sent from the specific account to be Bcc'd, because I figured out this macro is coping all sent emails from all account I have.

much appreciated,

MAtrix - great script! this really worked perfectly

Hello Matrix:
I've tried and tried with Outlook 2007 running under Windows 7 (32 bit) to no avail. Your directions are clear and I've followed them to the letter, but emails go out without a bcc. Not sure if anything has changed since you wrote the macro.
Pete

hi frnds
i am unable to send the auto bcc with this macros
can someone help me pls

THIS WORKS - This is not going to make much sense, but where MS is concerned, will you be surprised?

IN ADDITION to creating the original suggested Macro, inside the same VBA session, select "Application" and then "Startup" from the dropdown. Some text will appear. Replace it with the following:

Private Sub Application_Startup()

MsgBox "Macros are enabled"

End Sub

I know. Some of you will immediately look at this code and say, "well that doesn't really do anything" But it does. Apparently, just telling Outlook that you want it to enable the running macros isn't always enough. Adding this, which triggers when the Outlook App is started, forces Outlook out of it's 'passive aggressive' nature.

If Macros are enabled, you'll simply see the message above ("Macros are Enabled") and move on. If they're not (which is likely the case for those of you having trouble running this), then you'll be prompted to "enable" or "disable". Click "enable", and you should be good to go.


Cheers,

AG

Well.. I have a suggestion myself, and it DOESN'T have to do with an additional script.

Just use the script mentions on the last page, and (in outlook 2007) (i dont have 2003 anymore.. sorry for that)

Go to Extra>Makro's> Security. There go to the tab "Makro Security" Also i have a Dutch office 2007, so don't mind my rubish english. Myself I have the setting on "No Secrurity for all makro's (NOT RECOMMENDED). Most people would say that Warnings for all makro's are recommended. But with all my makro's, that's just not worth it.

Next select OK, and reboot outlook.

This SHOULD enable the makro.. Ofcourse you CAN add the script in the post above this one, to make sure it all works.

Hope this helps!

Joost

Sorry to resurrect such an old thread.

I added this code, and it works, even after closing an reopening Outlook 2007. The problem however, is that it CCs, instead of BCCing. Any ideas?

my outlook2003 succeeded!
Writer, you forgot one thing!!! we should lowed the security level of macros and restart the outlook.

Select the menu "Tools |Macros |Security|

enjoy it!

I would strongly advise that any security especially macros is not lowered, its at a high level for a reason. If you refer to my instructions about creating a local self signed certificate then your macros settings can be left at their default levels.

Anyone reading this I would strongly advise leaving your macro security at its default level.

Softrix, Thank you! your config is very great to be called automatic BCC. i use this way to save all my company emails into gmail and never worry the data loss.

Just to let everyone know I have solved this auto BCC issue. This is the code you need to use to auto BCC AND if you are using more than 1 box. If not, just use the IF code 1 time.

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


If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If

If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If

If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If

If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If

If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If

If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If



Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub