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. Nel Persone (o Contatti) visualizzare, fare clic su Visualizza > Cambia punto di vista > Telefono . Vedi screenshot:

2. Fare doppio clic per aprire il contatto il cui numero di telefono rimuovere il numero del paese.

3. Nella finestra Contatto che si apre, rimuovere il segno più e il prefisso internazionale dal telefono specificato nel file Numeri di telefono sezione, quindi fare clic su Contatti > Salva e chiudi.

Finora, il prefisso internazionale è stato rimosso dal numero di telefono specificato come mostrato nell'immagine sottostante:

Se è necessario rimuovere il prefisso internazionale da tutti i numeri di telefono di tutti i contatti in Outlook, consiglio un VBA per gestirlo facilmente.

1. Nel Persone (o Contatti), apri la cartella dei contatti in cui rimuoverai il prefisso internazionale da tutti i contatti.

2. Stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Moduli, quindi incolla sotto il codice VBA nel nuovo script del modulo di apertura.

VBA: rimuove 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)

' Configured for US
' Enter the correct prefix here
Do While (prefix = "+" Or prefix = "1")

' if the prefix is 2 digits, change to 4;
' if 3 digits, change to 5
Phone = Mid(Phone, 3)
prefix = Left(Phone, 1)
Loop

' After we clean up the country code, we remove non-numeric characters
' Can be tweaked to change formatting, ie: change 202.555.1212 to 202-555-1212

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

 FixFormatUSPhone = Phone

End Function

4. Stampa F5 o fare clic su Run pulsante per eseguire questo VBA.

5. Quindi viene visualizzata una finestra di dialogo che mostra quanti contatti sono stati elaborati, fare clic su OK pulsante per chiuderlo.

Ora vedrai che il prefisso internazionale è stato rimosso da tutti i tipi di numeri di telefono da tutti i contatti. Vedi screenshot:

Tieni traccia delle telefonate con i diari in Outlook

Cerca i contatti per numero di telefono in Outlook