Use this macro to send an email message to the selected contacts. While you can use the Email button (Actions or Create > New Email Message to Contacts in older versions) to address the message to the selected contacts, the addresses are placed in the To field. You need to select all, copy and paste to move them to the BCC field.
This macro gets the addresses from selected contacts (or the Name of Contact Groups) and opens a new message with the addresses in the BCC field.
To use, select the contacts you want to send a message to and run the macro. A new message will open with the selected contacts in the BCC field.
Note that you need to select the contacts, you can't select a Category or other group and include all members of the group as you can with the Email button.
Address message to contacts macro
Open the VBA Editor by pressing Alt+F11. Right click on Project1 and choose Insert > Module. Paste the code into the new module. Click the Save icon or press Ctrl+S to save it.
Public Sub SendAsBcc() Dim Selection As Selection Dim strDynamicDL As String Dim obj As Object Set Selection = ActiveExplorer.Selection For Each obj In Selection If obj.Class = olContact Then strDynamicDL = strDynamicDL & ";" & obj.Email1Address Else strDynamicDL = strDynamicDL & ";" & obj.DLName End If Next Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) objMsg.To = "email@example.com" objMsg.BCC = strDynamicDL objMsg.Display Set objMsg = Nothing Set obj = Nothing End Sub