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

Rimuovi il prefisso internazionale da Numero di telefono di un contatto

Rimuovi il prefisso internazionale da Numero di telefono dei contatti con VBA

Se devi semplicemente rimuovere il prefisso internazionale da un singolo Numero di telefono di un contatto, puoi eliminarlo manualmente come segue:

1. Nella visualizzazione «Persone» (o «Contatti»), fai clic su «Visualizza» > «Modifica visualizzazione» > «Telefono». Vedi screenshot:

2. Fai doppio clic per aprire il contatto dal cui numero di telefono desideri rimuovere il prefisso internazionale.

3. Nella finestra del contatto che si apre, rimuovi il segno più e il prefisso internazionale dal campo telefono nella sezione «Numero di telefono», quindi fai clic su «Contatto» > «Salva e chiudi».

Fino a questo punto, il prefisso internazionale è stato rimosso dal Numero di telefono specificato, come mostrato di seguito:

Se desideri rimuovere il prefisso internazionale da tutti i numeri di telefono dei tuoi contatti in Outlook, puoi utilizzare una macro VBA per eseguire l'operazione in modo rapido e semplice.

1. Nella visualizzazione «Persone» (o «Contatti»), apri la cartella dei contatti da cui vuoi rimuovere il prefisso internazionale da tutti i contatti.

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

3. Fai clic su «Inserisci» > «Modulo», quindi incolla il seguente codice VBA nello script del nuovo modulo aperto.

VBA: Rimuovi il prefisso internazionale da tutti i Numero 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 avviare la macro VBA.

5. A questo punto verrà visualizzata una finestra di dialogo con il numero di contatti elaborati. Fai clic su «OK» per chiuderla.

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

Traccia le chiamate telefoniche con i diari in Outlook

Cerca contatti per Numero di telefono in Outlook