Mass change contacts mail server

I have three state clients that are getting new mail server address changes. Their mail server is changing from to Being  state enitites they have massive amounts of addresses in their contact folders. Is their a simple tool that can make these changes and minimize the pain (whining)? About 200 persons involved in this and each has several hundred contacts with the old extension
Henry StarcherConsultantAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Chris BottomleySoftware Quality Lead EngineerCommented:
The following snippet looks for all contacts with and replaces with

Replacing @fred with your required domain should do the job for you ... but ask if you need help.

It is an outlook macro:
To Create a macro:

Alt + F11 to open the macro editor
     Insert | Module to insert a code module into the project
     In the project tree select the module.
     Insert the required macro(s) into the selected module, ('Module1' or similar)
Close the Visual Basic Editor.

Check Security as appropriate:

In the application select Tools | Macro | Security
Select Medium
Select OK

To run a macro:

Alt + F8
Select the macro
Select 'Run'

Sub update_Contacts()
Dim con As ContactItem
Dim addy As Object
    For Each con In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
        con.Email1Address = Replace(con.Email1Address, "", "")
        con.Email1DisplayName = Replace(con.Email1DisplayName, "", "")
        con.Email2Address = Replace(con.Email2Address, "", "")
        con.Email2DisplayName = Replace(con.Email2DisplayName, "", "")
        con.Email3Address = Replace(con.Email3Address, "", "")
        con.Email3DisplayName = Replace(con.Email3DisplayName, "", "")
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Henry StarcherConsultantAuthor Commented:
Thanks....a dream come true!!!!
Chris BottomleySoftware Quality Lead EngineerCommented:
Glad to have been of help, and thanks for the grade.

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.