Come rimuovere il prefisso internazionale dai numeri di telefono dei contatti in Outlook?

Rimuovi il prefisso internazionale dal numero di telefono di un contatto

Rimuovi il prefisso internazionale dai numeri di telefono dei contatti con VBA

Se devi solo rimuovere il prefisso internazionale da un numero di telefono di un contatto, puoi eliminarlo manualmente come segue:

1. Nella vista "Individui" (o "Contatti"), fai clic su "Visualizza" > "Cambia vista" > "Telefono". Vedi screenshot:

2. Fai doppio clic per aprire il contatto dal quale vuoi rimuovere il prefisso internazionale.

3. Nella finestra Contatto che si apre, rimuovi il segno più e il prefisso internazionale dal campo del numero di telefono specificato nella sezione "Numeri di telefono", quindi fai clic su "Contatto" > "Salva e chiudi".

A questo punto, il prefisso internazionale è stato rimosso dal numero di telefono specificato come mostrato di seguito:

Se hai bisogno di rimuovere il prefisso internazionale da tutti i numeri di telefono di tutti i contatti in Outlook, puoi applicare una macro VBA per gestirlo facilmente.

1. Nella vista "Individui" (o "Contatti"), apri la cartella dei contatti da cui desideri rimuovere il prefisso internazionale da tutti i contatti.

2. Premi contemporaneamente i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

3. Fai clic su "Inserisci" > "Modulo", quindi incolla il seguente codice VBA nel nuovo script del Modulo che si apre.

VBA: Rimuovi il prefisso internazionale da tutti i numeri di telefono di tutti i contatti

Sub FixPhoneFormat()

 Dim oFolder As MAPIFolder
Set oFolder = Application.ActiveExplorer.CurrentFolder

 If Left(UCase(oFolder.DefaultMessageClass), 11) <> "IPM.CONTACT" Then
MsgBox "You need to select a Contacts folder", vbExclamation
Exit Sub
End If

Dim nCounter As Integer
nCounter = 0

Dim oItem
For Each oItem In oFolder.Items
Dim oContact As ContactItem

          If TypeName(oItem) <> "DistListItem" Then
Set oContact = oItem
With oContact
.AssistantTelephoneNumber = FixFormatUSPhone(.AssistantTelephoneNumber)
.Business2TelephoneNumber = FixFormatUSPhone(.Business2TelephoneNumber)
.BusinessFaxNumber = FixFormatUSPhone(.BusinessFaxNumber)
.BusinessTelephoneNumber = FixFormatUSPhone(.BusinessTelephoneNumber)
.CallbackTelephoneNumber = FixFormatUSPhone(.CallbackTelephoneNumber)
.CarTelephoneNumber = FixFormatUSPhone(.CarTelephoneNumber)
.CompanyMainTelephoneNumber = FixFormatUSPhone(.CompanyMainTelephoneNumber)
.Home2TelephoneNumber = FixFormatUSPhone(.Home2TelephoneNumber)
.HomeFaxNumber = FixFormatUSPhone(.HomeFaxNumber)
.HomeTelephoneNumber = FixFormatUSPhone(.HomeTelephoneNumber)
.ISDNNumber = FixFormatUSPhone(.ISDNNumber)
.MobileTelephoneNumber = FixFormatUSPhone(.MobileTelephoneNumber)
.OtherFaxNumber = FixFormatUSPhone(.OtherFaxNumber)
.OtherTelephoneNumber = FixFormatUSPhone(.OtherTelephoneNumber)
.PagerNumber = FixFormatUSPhone(.PagerNumber)
.PrimaryTelephoneNumber = FixFormatUSPhone(.PrimaryTelephoneNumber)
.RadioTelephoneNumber = FixFormatUSPhone(.RadioTelephoneNumber)
.TelexNumber = FixFormatUSPhone(.TelexNumber)
.TTYTDDTelephoneNumber = FixFormatUSPhone(.TTYTDDTelephoneNumber)

.Save

nCounter = nCounter + 1
End With
End If
Next

MsgBox nCounter & " contacts processed.", vbInformation

End Sub

Private Function FixFormatUSPhone(Phone As String) As String

Phone = Trim(Phone)
FixFormatUSPhone = Phone
If Phone = "" Then Exit Function
Dim prefix As String
prefix = Left(Phone, 1)

Do While (prefix = "+" Or prefix = "1")
Phone = Mid(Phone, 3)
prefix = Left(Phone, 1)
Loop

Phone = Replace(Phone, "(", "")
Phone = Replace(Phone, ")", "")
Phone = Replace(Phone, ".", "")
Phone = Replace(Phone, " ", "")
Phone = Replace(Phone, "-", "")

FixFormatUSPhone = Phone

End Function

4. Premi "F5" o fai clic sul pulsante "Esegui" per eseguire la macro VBA.

5. A questo punto, apparirà una finestra di dialogo che mostra quanti contatti sono stati elaborati. Fai clic sul pulsante "OK" per chiuderla.

Ora vedrai che i prefissi internazionali sono stati rimossi da tutti i tipi di numeri di telefono di tutti i contatti. Vedi screenshot:

Traccia le chiamate telefoniche con i giornali in Outlook

Cerca contatti per numero di telefono in Outlook