Eliminați codul de țară din numărul de telefon al unei persoane de contact

Eliminați codul de țară din numerele de telefon ale contactelor cu VBA

Dacă trebuie doar să eliminați codul de țară dintr-un număr de telefon al unui contact, îl puteți șterge manual după cum urmează:

1. În oameni (Sau Contact) vizualizare, faceți clic Vizualizare > Schimbă privirea > Telefon. Vedeți captura de ecran:

2. Faceți dublu clic pentru a deschide contactul din al cărui număr de telefon veți elimina numărul țării.

3. În fereastra de contact de deschidere, eliminați semnul plus și codul de țară de pe telefonul specificat în Numere de telefon , apoi faceți clic pe Contact > Salvați și închideți.

Până în prezent, codul țării a fost eliminat din numărul de telefon specificat, după cum se arată în imaginea de mai jos:

Dacă trebuie să eliminați codul de țară din toate numerele de telefon ale tuturor contactelor din Outlook, vă recomand un VBA care să îl gestioneze cu ușurință.

1. În oameni (Sau Contact), deschideți folderul de contact în care veți elimina codul țării din toate contactele.

2. presa Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

3. clic Insera > Module, și apoi lipiți mai jos codul VBA în noul script Module de deschidere.

VBA: Eliminați codul țării din toate numerele de telefon ale tuturor contactelor

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. presa F5 tasta sau faceți clic pe Run buton pentru a rula acest VBA.

5. Apoi apare o casetă de dialog și vă arată câte contacte au fost procesate, faceți clic pe OK pentru a o închide.

Acum, veți vedea că codul țării a fost eliminat din toate tipurile de numere de telefon din toate contactele. Vedeți captura de ecran:

Urmăriți apelurile telefonice cu jurnale în Outlook

Căutați contacte după numărul de telefon în Outlook