2 Quick Ways to Add All Contacts in a Contacts Folder as an Email’s Recipients when Composing It in Outlook

When you compose an email and want to add all the contacts in a specific Contacts folder as recipients, you can use the 2 methods introduced in this article.

If you’ve finished composing an email and want to quickly add all the contacts in a specific Contacts folder as recipients, you may be used to clicking the “To” field to trigger “Select Names” dialog box. But, in this dialog box, you cannot select all the contacts in a specific address book by the common key shortcut “Ctrl + A”. You still have to select and add contacts one by one to recipient list. So, here we’ll show you the other 2 more efficient ways. You can choose either to your liking.Add All Contacts in a Contacts Folder as an Email's Recipients when Composing It in Outlook

Method 1: “E-mail” to All Contacts in a Folder

  1. At first, open the specific Contacts folder in “Contacts” navigation pane.
  2. Then, click into the search box and hit “Has Address” > “Has Email Address”. It will exclude the contact groups from this folder.Exclude Contact Groups
  3. After that, pitch on one contact and press “Ctrl + A” to select all of them.
  4. Subsequently, click “E-mail” button on “Home” tab.Email All Selected Contacts
  5. Next, in the new popup email, copy the recipients in “To” field.Copy Recipients
  6. Eventually, get access to the original email that you were composing just now. Paste the copied recipients to its “To” field.Paste Recipients

Method 2: Add All Contacts in a Folder as Recipients via VBA

  1. To begin with, press “Alt + F11” to access VBA editor.
  2. Then, put the following VBA code into a module.
Sub AddAllContactsInAFolderAsRecipients()
    Dim objMail As Outlook.MailItem
    Dim objContactFolder As Outlook.Folder
    Dim objRecipient As Outlook.Recipient
 
    'Get the current email
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    'Select a Contact folder
    Set objContactFolder = Outlook.Application.Session.PickFolder
    If Not objContactFolder Is Nothing Then
       If objContactFolder.DefaultItemType = olContactItem Then
          'Add every contact as recipient
          For Each objItem In objContactFolder.Items
              If objItem.Class = olContact Then
                 Set objRecipient = objMail.Recipients.Add(objItem.Email1Address)
                 objRecipient.Type = olTo '--> add to "To" field; use "olCC"/"olBCC" as per your needs
              End If
          Next
       End If
    End If
 
    'Resolve the recipients
    objMail.Recipients.ResolveAll
End Sub

VBA Code - Add All Contacts in a Folder as Recipients

  1. Next, add this macro to Quick Access Toolbar (QAT) of Message window according to the article – “How to Run VBA Code in Your Outlook“.
  2. Afterwards, return to the email and click the macro button in QAT.Run Macro in Current Email
  3. Later, in the dialog box, select a specific Contacts folder and hit “OK”.
  4. At once, all the contacts in the folder will be added as recipients, like the image below.Add All Contacts to the Current Email

Look out for Various Risks around Your Outlook

For Outlook regular users, it is extremely important to keep alert about various risks that are threatening the Outlook data, including viruses, hardware troubles and software issues, etc. Otherwise, your Outlook data will be more vulnerable. Also, it is acknowledged that data recovery, like PST fix, could be pretty troublesome and painful. Hence, apart from keeping cautious, you had better prepare a stellar and reliable repair tool nearby, such as 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 repair and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.