How to Quickly View Multiple Contacts’ Addresses on the Same Map in Your Outlook

Outlook permits users to map each contact’s address separately. But, if you want to check multiple contacts’ addresses on the same map, you have to use other method. In this article, we will share you such an approach.

View Multiple Contacts' Addresses on the Same Map

In Outlook, to check a contact’s address, you can open this contact and press the “Map It” button. It is quite convenient. However, by this means, you can only view one contact’s address at a time. If you desire to view multiple contacts’ addresses on the same map in the meantime, you can utilize the following means.

View Multiple Contacts’ Addresses on the Same Map

  1. In the first place, start your Outlook application.
  2. Then, after accessing Outlook main screen, press “Alt + F11” key buttons.
  3. Subsequently, you will enter the VBA editor window, in which you could open a module that is not in use.
  4. Next, copy and paste the following VBA code into this module.
Sub ViewMultipleAddressesinOneMap()
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objContact As Outlook.ContactItem
    Dim objInternetExplorer As Object
    Dim strAddress As String
 
    'Get selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
   If Not (objSelection Is Nothing) Then
      'Get Internet Explorer
      Set objInternetExplorer = CreateObject("InternetExplorer.Application")
 
      For Each objItem In objSelection
          If TypeOf objItem Is ContactItem Then
             Set objContact = objItem
 
             If objContact.BusinessAddress = "" Then
                strAddress = strAddress & "/" & objContact.HomeAddressStreet & "+" & objContact.HomeAddressCity & "+" & objContact.HomeAddressState
             Else
                strAddress = strAddress & "/" & objContact.BusinessAddressStreet & "+" & objContact.BusinessAddressCity & "+" & objContact.BusinessAddressState
             End If
          End If
      Next
 
      strAddress = Replace(strAddress, " ", "+")
 
      'Search all addresses on Google Maps
      objInternetExplorer.navigate ("https://www.google.com/maps/dir" & strAddress)
      objInternetExplorer.Visible = True
    End If
End Sub

VBA Code - View Multiple Contacts' Addresses on the Same Map

  1. After that, exit the current “Microsoft Visual Basic for Applications” window.
  2. Then, go to “File” menu and hit “Options”.
  3. At this point, in the subsequent “Outlook Options” window, switch to “Quick Access Toolbar” tab.
  4. Later, add the new VBA project to Quick Access Toolbar.
  5. Eventually, you can go to “Contacts” area to have a try.
  • First off, select several contacts whose addresses you want to view.
  • Then, hit the macro button in Quick Access Toolbar.
  • At once, the internet explorer will display.
  • After a while, all the email addresses will be marked in a Google Map, like the screenshot below:Multiple Contacts' Addresses on Same Map

Keep Calm In Case of Outlook Corruption

When you come across Outlook damage unfortunately, do not panic. You can take the following 3 steps to repair PST file. Firstly, if you have an up-to-date PST data backup, it is pretty easy to restore your Outlook data. But if no such an effective backup, you can use the built-in repair tool as well. However, if both the two ways cannot make effect, your last resort is to take aid of a reliable external utility, like 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 sql recovery and outlook repair software products. For more information visit www.datanumen.com