Hoe verwijdert u het landnummer uit het telefoonnummer van contacten in Outlook?

Verwijder het landnummer uit Telefoonnummer van een contact

Verwijder het landnummer uit Telefoonnummer van contacten met VBA

Als u het landnummer slechts uit één Telefoonnummer van een contact wilt verwijderen, kunt u dit handmatig verwijderen als volgt:

1. Klik in de weergave „Personen” (of „Contacten”) op „Beeld” > „Weergave wijzigen” > „Telefoon”. Zie de schermafbeelding hieronder:

2. Dubbelklik om het contact te openen waarvan u het landnummer uit het telefoonnummer wilt verwijderen.

3. Verwijder in het geopende contactvenster het plusteken en het landnummer uit het desbetreffende telefoonveld in de sectie „Telefoonnummer” en klik daarna op „Contact” > „Opslaan en sluiten”.

Het landnummer is nu verwijderd uit de opgegeven Telefoonnummer, zoals hieronder wordt getoond:

Als u het landnummer uit alle telefoonnummers van uw Outlook-contacten wilt verwijderen, kunt u hiervoor eenvoudig een VBA-macro gebruiken.

1. Open in de weergave „Personen” (of „Contacten”) de contactmap waaruit u het landnummer uit alle contacten wilt verwijderen.

2. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op 'Invoegen' > 'Module' en plak de volgende VBA-code in het nieuw geopende modulescript.

VBA: Verwijder landnummer uit alle Telefoonnummer 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-macro te starten.

5. Er verschijnt nu een dialoogvenster met het aantal verwerkte contacten. Klik op ‘OK’ om het venster te sluiten.

U ziet nu dat de landnummers zijn verwijderd uit alle telefoonnummers van al uw contacten. Zie de schermafbeelding hieronder:

Volg telefoongesprekken met journaals in Outlook

Zoek contacten op Telefoonnummer in Outlook