autofill BCC with an email address in Outlook 1

[newguy86]

Is there a way that I can autofill the 'BCC' field with an email address everytime I click on the new mail message button? I know the correct syntax to autofill the field but what I don't know is how to get it to occur when I click the new mail message button in Outlook.

Travis

http://www.enterprise.com

 

[HarleyQuinn]

If you want to use VBA then you can put the code in the Application_ItemSend event which fires everytime a mailitem is sent.

Hope this helps

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com

 

[newguy86]

That is actually better than my original plan. I will try it and if it doesn't work i'll let you know.

Travis

http://www.enterprise.com

 

[HarleyQuinn]

Glad to help (and thanks for the star), hope it works for you

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com

 

[newguy86]

I cannot seem to get the code to activate when I click on the send button. Can anyone tell me what I am doing wrong?

Public WithEvents olApp As Outlook.Application

Public Sub Initialize_handler()
    Set olApp = CreateObject("Outlook.Application")
End Sub

Private Sub olApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim olmail As MailItem
    olmail.BCC = [E-mail Address]
End Sub

Travis

http://www.enterprise.com