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.
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
- In the first place, start your Outlook application.
- Then, after accessing Outlook main screen, press “Alt + F11” key buttons.
- Subsequently, you will enter the VBA editor window, in which you could open a module that is not in use.
- 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
- After that, exit the current “Microsoft Visual Basic for Applications” window.
- Then, go to “File” menu and hit “Options”.
- At this point, in the subsequent “Outlook Options” window, switch to “Quick Access Toolbar” tab.
- Later, add the new VBA project to Quick Access Toolbar.
- 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:
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.
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