Wie entfernt man Ländercode von Telefonnummern in Outlook-Kontakten?

Ländercode aus der Telefonnummer eines Kontakts entfernen

Ländercode mit VBA aus den Telefonnummern von Kontakten entfernen

Wenn Sie den Ländercode nur aus einer Telefonnummer eines Kontakts entfernen müssen, können Sie dies manuell wie folgt löschen:

1. Klicken Sie in der Ansicht „Personen“ (oder „Kontakte“) auf „Ansicht“ > „Ansicht ändern“ > „Telefon“. Siehe Screenshot:

2. Doppelklicken Sie, um den Kontakt zu öffnen, dessen Ländercode Sie aus der Telefonnummer entfernen möchten.

3. Entfernen Sie im sich öffnenden Kontaktfenster das Pluszeichen und den Ländercode aus dem entsprechenden Telefonfeld im Abschnitt „Telefonnummern“, und klicken Sie dann auf „Kontakt“ > „Speichern & Schließen“.

Bisher wurde der Ländercode wie unten gezeigt aus der angegebenen Telefonnummer entfernt:

Wenn Sie den Ländercode aus allen Telefonnummern aller Kontakte in Outlook entfernen müssen, können Sie ein VBA anwenden, um dies einfach zu handhaben.

1. Öffnen Sie in der Ansicht „Personen“ (oder „Kontakte“) den Kontaktordner, aus dem Sie den Ländercode bei allen Kontakten entfernen möchten.

2. Drücken Sie gleichzeitig die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

3. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie dann den folgenden VBA-Code in das neu geöffnete Modul-Skript ein.

VBA: Ländercode aus allen Telefonnummern aller Kontakte entfernen

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. Drücken Sie „F5“ oder klicken Sie auf die Schaltfläche „Ausführen“, um das VBA auszuführen.

5. Dann erscheint ein Dialogfeld, das zeigt, wie viele Kontakte verarbeitet wurden. Klicken Sie bitte auf die Schaltfläche „OK“, um es zu schließen.

Jetzt sehen Sie, dass die Ländercodes aus allen Arten von Telefonnummern bei allen Kontakten entfernt wurden. Siehe Screenshot:

Telefonanrufe in Outlook mit Journalen nachverfolgen

Kontakte in Outlook nach Telefonnummer suchen