Bulk outlook contact edit



A common scenario:


I had a request from customer who’s company has just changed names, and they would like to find out if he can edit the ‘Company’ field in his contacts on bulk to reflect the name change.


How can this be done, easily?


You can do this with a little bit o'code....and here are some steps to follow:


Tested under outlook 2010, but should work for ol2007 and ol2003.


1) In your Outlook, right mouse click the ribbon toolbar

2) select the check box that says "Developer", press OK, this will add the developer tab to the ribbon

3) Click on this and select the visual basic button, this will load up the vba environment

4) On the left, you'll see the project window with a module in it, click on it

5) on the right hand side, paste this...


Public Sub ChangeMyContact()

   Dim objOL As Outlook.Application

    Dim objNS As Outlook.NameSpace

    Dim objContact As Outlook.ContactItem

    Dim objItems As Outlook.Items

    Dim objContactsFolder As Outlook.MAPIFolder

    Dim obj As Object

    Dim strOldCompanyName As String

    Dim strNewCompanyName As String


    strOldCompanyName = "www.djspacebar.com" ' TO DO change here

    strNewCompanyNewName = "www.spacebarproductions.com" 'TODO change here


    On Error Resume Next


    Set objOL = CreateObject("Outlook.Application")

    Set objNS = objOL.GetNamespace("MAPI")

    Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)

    Set objItems = objContactsFolder.Items


    For Each obj In objItems

        If obj.Class = olContact Then

            Set objContact = obj

            With objContact

            If .CompanyName = strOldCompanyName Then

                .CompanyName = strNewCompanyNewName


            End If

            End With

        End If




    Set objOL = Nothing

    Set objNS = Nothing

    Set obj = Nothing

    Set objContact = Nothing

    Set objItems = Nothing

    Set objContactsFolder = Nothing

End Sub


6) make the changes in the TODO sections (look for the old company and new company), save it (CTRL+S)

7) close the window

8) in the macros button, you'll see "project1.ChangeMyContact", click on that and that should change all your company name fields.


Hope it helps someone



Comments (0)

Skip to main content