![]() BusinessTelephoneNumber = correct_phone_no_to_international(.BusinessTelephoneNumber) HomeTelephoneNumber = correct_phone_no_to_international(.HomeTelephoneNumber) Set objFolder = myNameSpace.GetDefaultFolder(olFolderContacts) ' Main (default) contacts folderÄebug.Print. Set myNameSpace = olApp.GetNamespace("MAPI") ![]() Set olApp = CreateObject("Outlook.Application") If international numbers begin with +, the code will ignore the contacts. Note that this is intended for use on phone numbers that are in your own country. ![]() ![]() ![]() To use, add to the VBA editor, change the country code to the correct one for your location, and if your country code is not 2 digits, change the value in this line: new_phone_no = my_country_code + Mid$(phone_no, 2) and then run it. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |