How to Batch Add All Recipients of Multiple Emails to Outlook Contacts

Some users long for a solution which allows them to quickly add all the recipients of multiple emails to the Outlook Contacts folder as new contacts. So, this article will introduce such a quick approach.

For example, you receive some emails that are simultaneously sent to many other recipients except you. Moreover, these recipients are not stored in your Outlook Contacts. In this case, you may want to add these recipients to Outlook Contacts. To achieve it in batches, you can use the following way.

Batch Add All Recipients of Multiple Emails to Outlook Contacts

1. To begin with, launch your Outlook program.
2. Then, press “Alt + F11” key buttons to access Outlook VBA eidtor.
3. Subsequently, in the “Microsoft Visual Basic for Applications” window, copy and paste the following code into a blank module.

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. After that, minimize or exit this window.
5. Later, you ought to add this macro to Quick Access Toolbar with reference to “How to Run VBA Code in Your Outlook”.
6. Finally, you can try this macro.

• At first, select multiple emails whose recipients to be added to contacts.
• Then, click the macro button in Quick Access Toolbar.
• When the macro finishes, you can go to the default Contacts folder. Those recipients have been added.
• The new contact will look like the following screenshot.

Look out All Risks around Your Outlook

Though Outlook comes endowed with diverse features, it is vulnerable to many factors including human errors, software faults, hardware issues and viruses. So, it is necessary for us to keep an eye out for all potential risks around our Outlook. Also, making sufficient precautions is a matter of necessity. For example, you are better off getting hold of a PST fix tool, such as DataNumen Outlook Repair, which can repair PST problems with effortless ease.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair mdf and outlook repair software products. For more information visit www.datanumen.com