Wie entfernt man die Länderkennung aus den Telefonnummern von Kontakten in Outlook?

Länderkennung aus Telefonnummer eines Kontakts entfernen

Länderkennung mithilfe von VBA aus Telefonnummer von Kontakten entfernen

Wenn Sie die Länderkennung nur aus einem Telefonnummer eines einzelnen Kontakts entfernen möchten, können Sie diese manuell wie folgt löschen:

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

2. Doppelklicken Sie auf den Kontakt, dessen Telefonnummer Sie die Länderkennung entfernen möchten, um ihn zu öffnen.

3. Entfernen Sie im geöffneten Kontaktfenster das Pluszeichen und die Länderkennung aus dem entsprechenden Telefonfeld im Abschnitt „Telefonnummer“, und klicken Sie anschließend auf „Kontakt“ > „Speichern und schließen“.

Die Länderkennung wurde nun wie unten dargestellt aus dem angegebenen Telefonnummer entfernt:

Möchten Sie die Länderkennung aus allen Telefonnummern Ihrer Outlook-Kontakte entfernen, lässt sich dies ganz einfach per VBA-Makro erledigen.

1. Öffnen Sie in der Ansicht „Personen“ (oder „Kontakte“) den Kontaktordner, aus dessen Kontakten Sie die Länderkennung 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 den folgenden VBA-Code in das neu geöffnete Modul ein.

VBA: Länderkennung aus allen Telefonnummer 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-Makro zu starten.

5. Anschließend erscheint ein Dialogfeld, das anzeigt, wie viele Kontakte verarbeitet wurden. Klicken Sie auf „OK“, um es zu schließen.

Nun sehen Sie, dass die Länderkennungen aus sämtlichen Telefonnummern aller Kontakte entfernt wurden. Siehe Screenshot:

Telefonate mit Journalen in Outlook nachverfolgen

Kontakte in Outlook nach Telefonnummer suchen