changing multiple items in outlook 2003

All the mobile phones at our company was changed. instead of 050-111222 to 050-222222

Is there any way/program to change the contacts that contain 050-111 to 050-222

Thanks.
samadeusAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
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.

bruintjeCommented:
Hello samadeus,

you could export your contacts to excel do a search and replace there and import them back into outlook
source: office.microsoft.com/en-au/ assistance/ha010964221033.aspx
source: office.microsoft.com/en-gb/ assistance/HA010964231033.aspx

hope this helps a bit
bruintje
samadeusAuthor Commented:
Goof idea.
 
I have try that but in excel when i am replacing the 111 to 222 it also replace the firs nomber (0) so when i am importing back i have now 50-222222 instead of 050-222222
samadeusAuthor Commented:
goof - good
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

samadeusAuthor Commented:
The table down in the pic shows how it looks like befor i replace
(i have no idea what the nombers ther means- and up you can see how it looks after changing

http://amadeus13.spymac.com/555.JPG
David LeeCommented:
Hi samadeus,

The macro below will make this change for you assuming the number is formatted as shown.  This particular version only fixes the business telephone number, but I could modify it to fix whichever phone number fields you need fixed.  Follow these instructions to use it:

1.  Start Outlook
2.  Click Tools->Macro->Visual Basic Editor
3.  If not already expanded, expand Modules and click on Module1
4.  Copy the code below and paste it into the right-hand pane of the VB Editor
5.  Click the diskette icon on the toolbar to save the changes
6.  Close the VB Editor
7.  Click Tools->Macro->Security
8.  Change the Security Level setting to Medium
9.  Select a contacts folder and run the macro.


Sub FixPhoneNumber()
    Dim olkFolder As Outlook.Items, _
        olkContact As Outlook.ContactItem
    If Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
        MsgBox "You have to select a folder containing Contacts to run this macro.", vbCritical + vbOKOnly, "FixPhoneNumber Macro"
    Else
        Set olkFolder = Application.ActiveExplorer.CurrentFolder.Items
        For Each olkContact In olkFolder
            With olkContact
                If Mid(.BusinessTelephoneNumber, 1, 7) = "050-111" Then
                    .BusinessTelephoneNumber = "050-222" & Mid(.BusinessTelephoneNumber, 8)
                End If
                .Save
            End With
        Next
        MsgBox "All done!", vbInformation + vbOKOnly, "FixPhoneNumber Macro"
    End If
    Set olkContact = Nothing
    Set olkFolder = Nothing
End Sub

Cheers!

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
samadeusAuthor Commented:
Hi BlueDevilFan.

Thanks. i am at my way t owork to try your macro.
BTW I'ts a Mobile Phone, should i just change the "(.BusinessTelephoneNumber, 8)" to mobilephonenomber?
and the exact new didgits that i have to change are "4119" instead of "8676"
David LeeCommented:
Hi, samadeus.

Yes, change ".BusinessTelephoneNumber" to ".MobileTelephoneNumber".  
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
Outlook

From novice to tech pro — start learning today.