• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 402
  • Last Modified:

Is there a way to automatically populate the BCC field in Outlook when using POP3 email?

I have a client who is too lazy to type in an address in his BCC line in his email.  He wants it auto populated with one certain address for every email he sends.  He is using Outlook 2003 and has a POP3 email address.  There is no Exchange server and implementing an Exchange server is not an option.  Any help would be most appreciated.
0
pblende
Asked:
pblende
  • 2
1 Solution
 
Chris BottomleyCommented:
Hello pblende,

If macros are permitted then I can help alternatively it may be possible to create a form/template but I can't help there.

Note CC can be supporte4d with a simple rule but BCC requires VBA

Regards,

chris_bottomley
0
 
Chris BottomleyCommented:
pblende,

If you want to pursue the VBA route then the itemsend in thisoutlooksession needs to be as in the snippet.

To Create a macro:
------------------

Alt + F11 to open the macro editor

  For Applicationevent handlers:
     In the project tree select as appropriate:
      OUTLOOK      : thisOutlookSession
     In the workpane select as appropriate:
      OUTLOOK      : Application
     In the workpane select the required 'event', (i.e. 'ItemSend').
     Either
        Insert the required code from the supplied sub into the selected subroutine.
     Or
        Replace the template inserted by the VBE with the sub as supplied

           
Close the Visual Basic Editor.

Check Security as appropriate:
------------------------------

In the application select Tools | Macro | Security
2003 and Earlier : Select Medium
2007 : Warnings for all Macros
Select OK

chris_bottomley
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim recip As Recipient
Dim bolFound As Boolean

    bolFound = False
    For Each recip In Item.Recipients
        If recip = "fred@fred.com" Then
            bolFound = True
            Exit For
        End If
    Next
    If Not bolFound Then
        Item.ReplyRecipients.Add "fred@fred.com"
        Item.Recipients.Add("fred@fred.com").Type = olBCC
    End IfEnd Sub

Open in new window

0
 
pblendeAuthor Commented:
Thank you for the quick reply!  Since I don't do scripting, this is the best answer!  Thanks again.
0

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now