How Do I Blind Copy Myself on Every Email I Send in Outlook 2007?

Microsoft released Outlook 2007 for retail sales at the end of January 2007. There are many improvements over the previous versions of Outlook including a to-do bar that shows the user’s upcoming appointments and active tasks, improved calendar views, new anti-phishing filters, ability to add a picture or company logo to a contact and many more. Included in the new version also are new programmable features which allow for more in depth programming using Visual Basic for Applications (VBA).

Instructions

1. Open Outlook 2007.

2. While holding the "Ctrl" key down, press the "F11" key. This will open the VBA window.

3. Right click on the “Module” folder in the upper left window of the VBA screen and choose “Insert” and then “Module.” This will create a new module for Outlook.

4. Click in the right window pane to activate the module window.

5. Enter the following code, replacing "[e-mail]" with the email address to which you wish to have the blind copy sent:

   Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

   Dim Receipt As Outlook.Recipient
   Dim Address$

   Address = “[e-mail]"

   Set Receipt = Item.Recipients.Add(Address)
   Receipt.Type = olBCC
   Receipt.Resolve

   End Sub

6. Click on “Debug” to activate the “Debug” menu.

7. Click on “Compile Project” to compile the module.

8. Close the VBA window to save your project and you will now receive copies of all sent emails.

Tips & Warnings

• You can set up blind copies to as many individuals as you wish, and you can alter the VBA code to add new recipients or remove them at any time .

• Once the code is saved, the blind copy will go into effect until the code is removed.

References

• VB Office: E-Mail, Send a Copy to Yourself

Resources

• Microsoft: How to Set Up Outlook Automatic Bcc