|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
August 21st 06, 12:22 AM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
displaying international format phone numbers
OL 2002 SP3
Win XP HE Follow-up to: microsoft.public.outlook.contacts Hi, I have a folder with hundreds of contacts. All telephone numbers display as +12129999999 I would like to have them all display as +1 (212) 999-9999 It does automatically change to that if I manually open the contact and click on the little pencil icon to the right of the phone number field. However, I can't really do this manually for hundred's of contacts. How can I automate this? Thanks a lot. 
|
| Ads |
|
#2
August 21st 06, 05:40 PM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
|
displaying international format phone numbers
stef stef.bm_at_hotmail.removethis.com wrote:
I have a folder with hundreds of contacts. All telephone numbers display as +12129999999 I would like to have them all display as +1 (212) 999-9999 It does automatically change to that if I manually open the contact and click on the little pencil icon to the right of the phone number field. However, I can't really do this manually for hundred's of contacts. How can I automate this? I don't know if it will help, but see this tool: http://www.slovaktech.com/phonechanger.htm -- Brian Tillman
|
|
#3
August 21st 06, 07:23 PM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
|
displaying international format phone numbers
Try the Format function. In your case, it might look like this:
strX = Format(objC.BusinessTelephoneNumber, "+1 (@@@) @@@-@@@@") objC.BusinessTelephoneNumber = strX -- Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration) Try Picture Attachments Wizard for Outlook: http://www.collaborativeinnovations.ca Blog: http://blogs.officezealot.com/legault/ "stef" wrote: OL 2002 SP3 Win XP HE Follow-up to: microsoft.public.outlook.contacts Hi, I have a folder with hundreds of contacts. All telephone numbers display as +12129999999 I would like to have them all display as +1 (212) 999-9999 It does automatically change to that if I manually open the contact and click on the little pencil icon to the right of the phone number field. However, I can't really do this manually for hundred's of contacts. How can I automate this? Thanks a lot.
|
|
#4
August 21st 06, 08:37 PM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
|
displaying international format phone numbers
Eric Legault [MVP - Outlook] wrote:
Try the Format function. In your case, it might look like this: strX = Format(objC.BusinessTelephoneNumber, "+1 (@@@) @@@-@@@@") objC.BusinessTelephoneNumber = strX Eric, that's sounds good. thanks. however, i only need to run this in ONE Contacts subfolder called ABC (for example). how do I run the code on that folder only?
|
|
#5
August 21st 06, 08:54 PM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
|
displaying international format phone numbers
Brian Tillman wrote:
stef stef.bm_at_hotmail.removethis.com wrote: I have a folder with hundreds of contacts. All telephone numbers display as +12129999999 I would like to have them all display as +1 (212) 999-9999 It does automatically change to that if I manually open the contact and click on the little pencil icon to the right of the phone number field. However, I can't really do this manually for hundred's of contacts. How can I automate this? I don't know if it will help, but see this tool: http://www.slovaktech.com/phonechanger.htm could be. i'm checking with ken, the author of this plug-in.
|
|
#6
August 21st 06, 09:20 PM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
|
displaying international format phone numbers
You can use the ActiveExplorer object to work with the selection in the
currently displayed folder and base your code on that: If ActiveExplorer.Selection.count = 0 Then Exit Sub For Each objC In ActiveExplorer.Selection objC.BusinessTelephoneNumber = your code here Next -- Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration) Try Picture Attachments Wizard for Outlook: http://www.collaborativeinnovations.ca Blog: http://blogs.officezealot.com/legault/ "stef" wrote: Eric Legault [MVP - Outlook] wrote: Try the Format function. In your case, it might look like this: strX = Format(objC.BusinessTelephoneNumber, "+1 (@@@) @@@-@@@@") objC.BusinessTelephoneNumber = strX Eric, that's sounds good. thanks. however, i only need to run this in ONE Contacts subfolder called ABC (for example). how do I run the code on that folder only?
|
|
#7
August 21st 06, 09:30 PM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
|
displaying international format phone numbers
Eric Legault [MVP - Outlook] wrote:
You can use the ActiveExplorer object to work with the selection in the currently displayed folder and base your code on that: If ActiveExplorer.Selection.count = 0 Then Exit Sub For Each objC In ActiveExplorer.Selection objC.BusinessTelephoneNumber = your code here Next Sorry Eric, I'm not experienced with VB. is this how the whole macro would read? "Sub ChangeTelFormat strX = Format(objC.BusinessTelephoneNumber, "+1 (@@@) @@@-@@@@") If ActiveExplorer.Selection.count = 0 Then Exit Sub For Each objC In ActiveExplorer.Selection objC.BusinessTelephoneNumber = strX Next End Sub"
|
|
#8
August 21st 06, 11:24 PM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
|
displaying international format phone numbers
Yes, but you'd also of course need to declare the variables:
Dim objC As Outlook.ContactItem Dim strX As String -- Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration) Try Picture Attachments Wizard for Outlook: http://www.collaborativeinnovations.ca Blog: http://blogs.officezealot.com/legault/ "stef" wrote: Eric Legault [MVP - Outlook] wrote: You can use the ActiveExplorer object to work with the selection in the currently displayed folder and base your code on that: If ActiveExplorer.Selection.count = 0 Then Exit Sub For Each objC In ActiveExplorer.Selection objC.BusinessTelephoneNumber = your code here Next Sorry Eric, I'm not experienced with VB. is this how the whole macro would read? "Sub ChangeTelFormat strX = Format(objC.BusinessTelephoneNumber, "+1 (@@@) @@@-@@@@") If ActiveExplorer.Selection.count = 0 Then Exit Sub For Each objC In ActiveExplorer.Selection objC.BusinessTelephoneNumber = strX Next End Sub"
|
|
#9
August 22nd 06, 12:46 AM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
|
displaying international format phone numbers
Eric Legault [MVP - Outlook] wrote:
Yes, but you'd also of course need to declare the variables: Dim objC As Outlook.ContactItem Dim strX As String Eric, i must be doing something wrong as i'm getting an error message.... is there anyway i can get u to just spell it out for me out here, from beginning to end? that wd be most helpful.
|
|
#10
August 22nd 06, 06:24 AM
posted to microsoft.public.outlook.contacts,microsoft.public.outlook.program_vba
|
|||
|
|||
|
displaying international format phone numbers
Try this, but make sure to set a breakpoint on the Save line and do not
proceed with saving until you've verified that this Format function is changing the phone number as you'd expect. If ANY phone numbers don't meet the expected +########### format, they get all messed up. Sub ChangeTelFormat() Dim objC As Outlook.ContactItem Dim strX As String If ActiveExplorer.Selection.Count = 0 Then Exit Sub If ActiveExplorer.CurrentFolder.DefaultItemType olContactItem Then Exit Sub For Each objC In ActiveExplorer.Selection strX = Format(objC.BusinessTelephoneNumber, "+1 (@@@) @@@-@@@@") objC.BusinessTelephoneNumber = strX objC.Save Next Set objC = Nothing End Sub -- Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration) Try Picture Attachments Wizard for Outlook: http://www.collaborativeinnovations.ca Blog: http://blogs.officezealot.com/legault/ "stef" wrote: Eric Legault [MVP - Outlook] wrote: Yes, but you'd also of course need to declare the variables: Dim objC As Outlook.ContactItem Dim strX As String Eric, i must be doing something wrong as i'm getting an error message.... is there anyway i can get u to just spell it out for me out here, from beginning to end? that wd be most helpful.
|
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| displaying international format phone numbers | stef | Outlook and VBA | 9 | August 22nd 06 03:24 PM |
| error exporting phone numbers to a mobile phone | Andrew J Farrow | Outlook - Using Contacts | 0 | August 8th 06 11:43 AM |
| change format of phone field from text to phone | Jim | Outlook - Using Contacts | 1 | May 19th 06 02:29 AM |
| displaying mobile numbers with no area codes | John | Outlook - Using Contacts | 0 | April 26th 06 05:24 AM |
| How can I standardize th format of all phone numbers in Contacts? | SJKopischke | Outlook - Using Contacts | 15 | February 25th 06 03:59 PM |
Linear Mode
