Changing all outlook contacts for international calling

We are opening an international location so I have users, that were in the US, that are now traveling to Europe.  When they try to make a call using the contact that is in Outlook, it won't go because they are calling from Europe and the number is in US format.  In Outlook, I can go into each contact and double click on the phone number, make sure the location is United States and the area code is on the area code line, click ok and it changes from (123) 456-7890 to +1 (123) 456-7890, which enables people calling from Europe, or the US, to call the correct number.  One of my users uses a MacBook and the Outlook for Mac doesn't seem to have that option.
First part of question: Is there a way to do a mass change on all your contacts in Outlook to add the +1 to the number before the area code?
Second part of question: Is there a way to change contacts using Outlook for Mac to add the +1 to the number before the area code?
Thanks in advance.
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.

David LeeCommented:
Hi, JoMar.

I cannot answer the Mac portion of your question.  I can however answer the PC portion.  I can add a +1 to all phone numbers on all contacts with a simple bit of scripting.  If that's acceptable, then let me know and I'll post the script and instructions for using it.
JoMarAuthor Commented:
That would be great, thanks.
David LeeCommented:
Here's the code.  Follow these instructions to use it.

1.  Launch Notepad.
2.  Copy the code below and paste it into Notepad.
3.  Save the file.  You can name it anything you like, just make sure the extension is .vbs
4.  Launch Outlook.
5.  Select a Contacts folder.
6.  Run the script by double-clicking it in explorer.

The script will read all the contacts in the folder.  For each contact it will add a +1 to the number in all the typically used telephone number fields.  There are more fields, but they're rarely used.

To be safe I recommend you test it on a folder with a couple of contacts before running it against your main contacts folder.  That way you can see what it does with very little risk.
Dim olkApp, olkFld, olkCon
Set olkApp = GetObject(,"Outlook.Application")
If TypeName(olkApp) = "Nothing" Then
	MsgBox "Outlook has to be open for this script to work." & vbCrLf & "Please launch Outlook and then run the script again.",vbCritical+vbOKOnly,"Fix Phone Numbers - Error"
	Set olkFld = olkApp.ActiveExplorer.CurrentFolder
	If olkfld.DefaultItemType = 2 Then
		For Each olkCon In olkFld.items
			If olkCon.Class = 40 then
				olkCon.Business2TelephoneNumber = FixNumber(olkCon.Business2TelephoneNumber)				
				olkCon.BusinessTelephoneNumber = FixNumber(olkCon.BusinessTelephoneNumber)
				olkCon.BusinessFaxNumber = FixNumber(olkCon.BusinessFaxNumber)
				olkCon.CompanyMainTelephoneNumber = FixNumber(olkCon.CompanyMainTelephoneNumber)
				olkCon.Home2TelephoneNumber = FixNumber(olkCon.Home2TelephoneNumber)
				olkCon.HomeTelephoneNumber = FixNumber(olkCon.HomeTelephoneNumber)
				olkCon.HomeFaxNumber = FixNumber(olkCon.HomeFaxNumber)
				olkCon.MobileTelephoneNumber = FixNumber(olkCon.MobileTelephoneNumber)
				olkCon.OtherTelephoneNumber = FixNumber(olkCon.OtherTelephoneNumber)
				olkCon.OtherFaxNumber = FixNumber(olkCon.OtherTelephoneNumber)
			End If
		MsgBox "Finished!",vbInformation+vbOKOnly,"Fix Phone Numbers"
		MsgBox "This script will only work against a contacts folder." & vbCrLf & "Please select a contacts folder and run the script again.",vbCritical+vbOKOnly,"Fix Phone Numbers - Error"
	End If
	Set olkCon = Nothing
	Set olkFld = Nothing
	Set olkApp = Nothing
End If

Function FixNumber(strNumber)
    If strNumber <> "" Then
    	If Left(strNumber,2) <> "+1" Then
    		FixNumber = "+1 " & strNumber
    		FixNumber = strNumber
    	End If
    	FixNumber = strNumber
    End If
End Function

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
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

Amit KhilnaneyCommented:
Export Contacts in a CSV file. Open with excel. Use concatenate function to add +1 and then re-import the address book.
Amit KhilnaneyCommented:
Above solution will got with Mac As well. U just need a spreadsheet program as concatenate function is a very basic function avail in most spreadsheet programs.
JoMarAuthor Commented:
Thank you for the answers - this worked great
David LeeCommented:
You're welcome!
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.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.