Hoe verwijder je de landcode uit telefoonnummers van contacten in Outlook?

Verwijder landcode uit telefoonnummer van een contact

Verwijder landcode uit telefoonnummers van contacten met VBA

Als je alleen de landcode uit één telefoonnummer van een contact wilt verwijderen, kun je dit handmatig als volgt verwijderen:

1. Klik in de "Personen" (of "Contacten") weergave op "Weergave" > "Weergave wijzigen" > "Telefoon". Zie screenshot:

2. Dubbelklik om het contact te openen waarvan je de landcode uit het telefoonnummer wilt verwijderen.

3. Verwijder in het geopende Contactvenster het plusteken en de landcode uit het gespecificeerde telefoonveld in de sectie "Telefoonnummers", en klik vervolgens op "Contact" > "Opslaan en sluiten".

Tot nu toe is de landcode verwijderd uit het gespecificeerde telefoonnummer zoals hieronder weergegeven:

Als je de landcode uit alle telefoonnummers van alle contacten in Outlook moet verwijderen, kun je een VBA gebruiken om dit eenvoudig af te handelen.

1. Open in de "Personen" (of "Contacten") weergave de contactmap waaruit je de landcode uit alle contacten wilt verwijderen.

2. Druk gelijktijdig op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

3. Klik op "Invoegen" > "Module", en plak vervolgens de volgende VBA-code in het nieuwe Module-script dat wordt geopend.

VBA: Verwijder landcode 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)

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. Druk op "F5" of klik op de knop "Uitvoeren" om de VBA uit te voeren.

5. Er verschijnt een dialoogvenster waarin wordt weergegeven hoeveel contacten zijn verwerkt. Klik op de knop "OK" om dit te sluiten.

Nu zie je dat de landcodes zijn verwijderd uit alle soorten telefoonnummers van alle contacten. Zie screenshot:

Telefoongesprekken bijhouden met dagboeken in Outlook

Zoek contacten op telefoonnummer in Outlook