Ta bort landskoden från en kontakts telefonnummer

Ta bort landskoden från telefonnummer till kontakter med VBA

Om du bara behöver ta bort landskoden från ett telefonnummer till en kontakt kan du radera den manuellt enligt följande:

1. I Personer (eller Kontakt), klicka utsikt > Ändra vy > Telefon. Se skärmdump:

2. Dubbelklicka för att öppna kontakten vars telefonnummer du tar bort landnummer från.

3. Ta bort plustecknet och landskoden från den angivna telefonen i det öppna kontaktfönstret Telefonnummer och klicka sedan på Kontakta oss > Spara och stäng.

Hittills har landskoden tagits bort från det angivna telefonnumret enligt nedanstående skärmdump:

Om du behöver ta bort landskoden från alla telefonnummer till alla kontakter i Outlook rekommenderar jag en VBA att hantera den enkelt.

1. I Personer (eller Kontakt), öppna kontaktmappen där du tar bort landskoden från alla kontakter.

2. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

3. klick Insert > Modulernaoch klistra sedan in under VBA-koden i det nya modulskriptet.

VBA: Ta bort landskod från alla telefonnummer till alla kontakter

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. Tryck F5 eller klicka på Run-knapp för att köra denna VBA.

5. Och sedan visas en dialogruta som visar hur många kontakter som har bearbetats, klicka på OK knappen för att stänga den.

Nu ser du landskoden har tagits bort från alla typer av telefonnummer från alla kontakter. Se skärmdump:

Spåra telefonsamtal med tidskrifter i Outlook

Sök kontakter efter telefonnummer i Outlook