Verwijder de landcode van het telefoonnummer van een contactpersoon

Verwijder landcode uit telefoonnummers van contacten met VBA

Als u alleen de landcode van één telefoonnummer van een contactpersoon hoeft te verwijderen, kunt u deze als volgt handmatig verwijderen:

1. In de Mensen (of Contacten), klik op Bekijk > Verander perspectief > Telefoonnummer. Zie screenshot:

2. Dubbelklik om de contactpersoon te openen wiens telefoonnummer u het landnummer wilt verwijderen.

3. Verwijder in het openingsvenster Contactpersoon het plusteken en de landcode van de opgegeven telefoon in het Telefoonnummers sectie en klik vervolgens op Neem contact op > Opslaan en sluiten.

Tot nu toe is de landcode verwijderd van het opgegeven telefoonnummer, zoals hieronder wordt getoond:

Als u de landcode van alle telefoonnummers van alle contacten in Outlook moet verwijderen, raad ik een VBA aan om dit gemakkelijk af te handelen.

1. In de Mensen (of Contacten) bekijken, open de contactmap waar u de landcode van alle contacten verwijdert.

2. druk op anders + F11 toetsen tegelijk om het venster Microsoft Visual Basic for Applications te openen.

3. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe openingsmodulescript.

VBA: landcode verwijderen uit alle telefoonnummers van alle contacten

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. druk op F5 toets of klik op de Run-knop om deze VBA uit te voeren.

5. En dan verschijnt er een dialoogvenster waarin u kunt zien hoeveel contacten er zijn verwerkt. Klik op de OK om het te sluiten.

Nu zul je zien dat de landcode is verwijderd uit allerlei telefoonnummers van alle contacten. Zie screenshot:

Houd telefoongesprekken bij met dagboeken in Outlook

Zoek contacten op telefoonnummer in Outlook