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.
Method 1: “E-mail” to All Contacts in a Folder
- At first, open the specific Contacts folder in “Contacts” navigation pane.
- Then, click into the search box and hit “Has Address” > “Has Email Address”. It will exclude the contact groups from this folder.
- After that, pitch on one contact and press “Ctrl + A” to select all of them.
- Subsequently, click “E-mail” button on “Home” tab.
- Next, in the new popup email, copy the recipients in “To” field.
- Eventually, get access to the original email that you were composing just now. Paste the copied recipients to its “To” field.
Method 2: Add All Contacts in a Folder as Recipients via VBA
- To begin with, press “Alt + F11” to access VBA editor.
- 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
- Next, add this macro to Quick Access Toolbar (QAT) of Message window according to the article – “How to Run VBA Code in Your Outlook“.
- Afterwards, return to the email and click the macro button in QAT.
- Later, in the dialog box, select a specific Contacts folder and hit “OK”.
- At once, all the contacts in the folder will be added as recipients, like the image below.
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.
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