Avatar of Daves166
Daves166Flag for United States of America asked on

Add a 9 to all phone numbers in the contacts folder

Cisco has a unified personal communicator plugin for outlook 2003.  It allows you to dial your desk phone or soft phone from your contacts.  However, our phone system requires you to dial a 9 to reach an outside line.  When using the UPC from the contacts folder in OUtlook it dials the number as it appears in the contacts folder.  It seems the UPC ignores the dialing rules in Windows.  So my thought was to do a bulk change of all phone numbers in the contacts folder.  Is there a way to do this?  Can I have it insert a 9 at the beginning of ach phone number?
Microsoft ApplicationsOutlook

Avatar of undefined
Last Comment
Patrick Matthews

8/22/2022 - Mon
Davis McCarn

If you export them to a CSV file, you can open that up in Excel, insert a new column, use a formula to insert the 9 (be careful about text versus numbers though), delete the original column, and then import it back into Outlook.
The Cisco software doesn't have an option for getting an outside line?

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
Patrick Matthews

You could run this macro from Outlook...

Note that this is **not** tested.

Sub Insert9()
    Dim ns As NameSpace
    Dim fld As MAPIFolder
    Dim Cntc As ContactItem
    Dim itm As Object
    Dim Changed As Boolean
    Set ns = Application.GetNamespace("MAPI")
    Set fld = ns.GetDefaultFolder(olFolderContacts)
    For Each itm In fld.Items
        If itm.Class = olContact Then
            Set Cntc = itm
            With Cntc
                Changed = False
                If .BusinessTelephoneNumber <> "" Then
                    .BusinessTelephoneNumber = "9" & .BusinessTelephoneNumber
                    Changed = True
                End If
                If .HomeTelephoneNumber <> "" Then
                    .HomeTelephoneNumber = "9" & .HomeTelephoneNumber
                    Changed = True
                End If
                If .MobileTelephoneNumber <> "" Then
                    .MobileTelephoneNumber = "9" & .MobileTelephoneNumber
                    Changed = True
                End If
                If Changed Then .Save
            End With
        End If
    Set Cntc = Nothing
    Set itm = Nothing
    Set fld = Nothing
    Set ns = Nothing
    MsgBox "Done"
End Sub
This is the best money I have ever spent. I cannot not tell you how many times these folks have saved my bacon. I learn so much from the contributors.