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
- In the first place, you should launch your Outlook program.
- Then switch to “Developer” tab.
- Under this tab, you ought to click on the “Visual Basic” button.
- Subsequently, you will get access to the VBA editor window. Now you need to double click on the “ThisOutlookSession” project on the left side.
- 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, "firstname.lastname@example.org") > 0) Or (InStr(objRecipient.Address, "email@example.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
- Next you should proceed to sign this code.
- Later you should change your Outlook macro settings, only allowing digitally signed macros.
- 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:
- 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.
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