Cambiare i prefissi telefonici nei contatti

bigtwo

unread,

Feb 2, 2011, 11:35:14 AM2/2/11

to

Salve a tutti.

Chiedo se conoscete un metodo per intervenire sui numeri telefonici di
Outlook senza doverli cambiare uno per uno (487!!)

Mi spiego: il sw Gigaset QuickSync in dotazione ad un centralino Siemens
Gigaset DX800A, che serve a gestire la sincronizzazione dei contatti con
Outlook, richiede l'inserimento dei prefissi, senza i quali non procede.
Il programma ha 2 campi per il prefisso internazionale e 2 campi per il
prefisso locale (??).

Secondo il manuale ho inserito
Internazionale [00] e [39]
Locale [vuoto] e [vuoto].

Il problema � che mi ha cambiato tutti i prefissi dei numeri di telefono nei
contatti di Outlook, anteponendo a tutti i numeri il prefisso +39, che non
sarebbe male, non fosse che i numeri che gi� l'avevano adesso risultano
cos�: +39 039xxxxxxx.

grazie a chi mi vorr� aiutare

GP

unread,

Feb 4, 2011, 9:20:13 AM2/4/11

to

Potresti esportare i dati, modificarli (ad esempio con excel o semplicemente
con un trova/sostituisci di notepad) e infine importarli di nuovo.
Non mi ricordo se prima di importare i dati devi cancellare quelli già
presenti.
Una via più complicata è quello di un vbscript che modifichi i dati
direttamente tramite MAPI.
Con google puoi trovare diversi esempi.
Ciao
GP

bigtwo

unread,

Feb 4, 2011, 11:57:51 AM2/4/11

to

"GP" <hid...@hidden.it> ha scritto nel messaggio
news:iih1v3$dfe$1...@speranza.aioe.org...

Ho provato ma, e chiedo scusa per l'ignoranza, io sti file pst non li riesco
a portare su Excel...

Bruno Campanini

unread,

Feb 4, 2011, 6:27:38 PM2/4/11

to

bigtwo pretended :

> Ho provato ma, e chiedo scusa per l'ignoranza, io sti file pst non li riesco
> a portare su Excel...

Prova così:
=================================================
Public Sub Contacts_ChangeTelephoneNumbers()
Dim Kontact As Outlook.folder, i As Object, V As String, N As String

V = "0999" ' Vecchio numero
N = "0543" ' Nuovo numero

Set Kontact = Session.GetDefaultFolder(olFolderContacts)
For Each i In Kontact.Items
i.AssistantTelephoneNumber = Replace(i.HomeTelephoneNumber, V, N)
i.Business2TelephoneNumber = Replace(i.Business2TelephoneNumber, V,
N)
i.BusinessTelephoneNumber = Replace(i.BusinessTelephoneNumber, V,
N)
i.CallbackTelephoneNumber = Replace(i.CallbackTelephoneNumber, V,
N)
i.CarTelephoneNumber = Replace(i.CarTelephoneNumber, V, N)
i.CompanyMainTelephoneNumber =
Replace(i.CompanyMainTelephoneNumber, V, N)
i.Home2TelephoneNumber = Replace(i.Home2TelephoneNumber, V, N)
i.HomeTelephoneNumber = Replace(i.HomeTelephoneNumber, V, N)
i.MobileTelephoneNumber = Replace(i.MobileTelephoneNumber, V, N)
i.OtherTelephoneNumber = Replace(i.OtherTelephoneNumber, V, N)
i.PrimaryTelephoneNumber = Replace(i.PrimaryTelephoneNumber, V, N)
i.RadioTelephoneNumber = Replace(i.RadioTelephoneNumber, V, N)
i.TTYTDDTelephoneNumber = Replace(i.TTYTDDTelephoneNumber, V, N)
i.Save
Next

End Sub
============================================

Bruno

GP

unread,

Feb 7, 2011, 8:10:37 AM2/7/11

to

In outlook 2003 (ma nelle altre versioni più o meno è la stessa cosa):
Menu file -> importa ed esporta - > esporta in un file - > avanti ->
microsoft excel -> avanti -> contatti -> avanti -> nome del file ->
avanti -> fine