New message to selected contacts using the BCC field

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 = "myself@here.com"
  objMsg.BCC = strDynamicDL
  
  objMsg.Display
  

Set objMsg = Nothing
Set obj = Nothing
End Sub