How to Batch Open the Web Pages of Multiple Outlook Contacts

By default, in Outlook, you can only open the web page of one contact at once. If you hope to open multiple contacts’ web pages in bulk, you can read this article. We will share you an easy method.

Outlook supports users to fill in the relevant web pages in Contact window. If you want to open a contact’s web page, you can open the contact and click the “More” > “Web Page” in “Communicate” group. Obviously, by this means, you cannot batch open multiple contacts’ web pages. Thus, here we will introduce you another way, which uses VBA code. If you have such a requirement, move on to get the detailed steps.

Batch Open the Web Pages of Multiple Contacts

1. For a start, get access to Outlook VBA editor as per “How to Run VBA Code in Your Outlook“.
2. Then, copy and paste the following way into a module.

Sub BatchOpenWebPages_MultipleContacts()
    Dim objSelection As Outlook.Selection
    Dim objContact As Outlook.ContactItem
    Dim i As Long
    Dim strWebPage As String
    Dim objInternetExplorer As Object
    Dim objDictionary As Object
    Dim n As Integer
    Dim varWebPages As Variant
    Dim varWebPage As Variant
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    For i = objSelection.Count To 1 Step -1
        If objSelection(i).Class = olContact Then
           Set objContact = objSelection(i)
 
           'Get the web pages of the selected contacts
           If objContact.WebPage <> "" Then
              strWebPage = objContact.WebPage
 
              If objDictionary.Exists(strWebPage) = False Then
                 objDictionary.Add strWebPage, 1
              End If
           End If
        End If
    Next
 
    'Open the web pages in Internet Explorer
    Set objInternetExplorer = CreateObject("InternetExplorer.Application")
    varWebPages = objDictionary.Keys
    For n = LBound(varWebPages) To UBound(varWebPages)
        varWebPage = varWebPages(n)
  
        If n = 0 Then
           objInternetExplorer.Visible = True
           objInternetExplorer.navigate varWebPage
        Else
           objInternetExplorer.navigate varWebPage, CLng(2048)
        End If
    Next
End Sub

3. After that, exit the current window.
4. Subsequently, add this macro to Quick Access Toolbar.
5. Eventually, follow the steps below to have a try.

• First off, select the contacts that you want.
• Then, click the macro button in the Quick Access Toolbar.
• At once, the Internet Explorer will display, in which the web pages of the selected contacts have been opened.

In Case of Outlook Data Corruption

Although Outlook is full featured, it is still unable to get rid of its vulnerability. So, in order to prevent Outlook data loss, you have to stick to make regular backups for Outlook. Otherwise, once your Outlook file is compromised, you have to recur to a top-ranking Outlook fix tool, 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 damaged mdf and outlook repair software products. For more information visit www.datanumen.com