How to Auto Move Specific Recipients from “TO” to “BCC” Field When Sending Emails

If you’re accustomed to sending emails to specific persons by BCC so as to protect their privacy, you can use the method introduced in this article. It can make Outlook to automatically move the specific recipients from “To” field to “BCC” field.

For some reasons, you may need to always place specific recipients in “BCC” field instead of “To” field. For instance, you’re required to protect your boss’ privacy, so every time you reply an email to all the original recipients including the boss, you should move the boss to “BCC” field. In this case, of course you can manually do it. But actually, via Outlook VBA, you can achieve it with utmost ease. Here are the elaborate steps and according VBA codes.

Auto Move Specific Recipients from “TO” to “BCC” Field

  1. In the first place, you should launch your Outlook program.
  2. Then switch to “Developer” tab.
  3. Under this tab, you ought to click on the “Visual Basic” button.
  4. Subsequently, you will get access to the VBA editor window. Now you need to double click on the “ThisOutlookSession” project on the left side.
  5. After that, you need to copy and paste the following VBA codes into the VBA project.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
    Dim i As Integer
    Dim strPrompt As String
    Dim nResponse As Integer
 
    If Item.Class = olMail Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    If objRecipients.Count > 1 Then
       For i = 1 To objRecipients.Count
           Set objRecipient = objRecipients.Item(i)
           'Search the specific recipients
           'You can change the specific recipients as per your case
           'You can add more recipients, using "Or" to connect
           If (InStr(objRecipient.Address, "test1@datanumen.com") > 0) Or (InStr(objRecipient.Address, "test2@datanumen.com") > 0) Then
              strPrompt = "This email contains " & Chr(34) & objRecipient.Name & Chr(34) & " in the To field. Do you want to move it to BCC field?"
              nResponse = MsgBox(strPrompt, vbYesNo + vbExclamation, "Confrim Email Send")
              If nResponse = vbYes Then
                 objRecipient.Type = olBCC
              End If
           End If
       Next
    End If
End Sub

VBA Codes - Auto Move Specific Recipients from "To" Field to “BCC” Field

  1. Next you should proceed to sign this code.
  2. Later you should change your Outlook macro settings, only allowing digitally signed macros.Change Outlook Macro Settings
  3. Finally you can have a try.
  • When you click on the “Send” button, intending to send the email which contains specific recipients in “To” field, you will receive prompts, like the following screenshot:Ask If Move the Specific Recipients to "BCC" Field
  • As long as you select “Yes”, the specific recipients will be moved to “BCC” field and the current email will be sent out at once.

Tackle Vexing Outlook Errors

Perhaps you have ever suffered various Outlook errors in your Outlook. How do you settle them as usual? In general, firstly, you can utilize the inbox repair tool to have a try. But don’t pay too much hope to Scanpst.exe, which can only deal with small issues. Provided that what you are confronted with is severe PST damage, it is a better choice to seek help from a more potent tool, like DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf fix and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.