Entfernen Sie die Landesvorwahl von der Telefonnummer eines Kontakts

Entfernen Sie den Ländercode aus den Telefonnummern der Kontakte mit VBA

Wenn Sie nur die Landesvorwahl von einer Telefonnummer eines Kontakts entfernen müssen, können Sie sie wie folgt manuell löschen:

1. In dem Personen (oder Kontakt) anzeigen, klicken Anzeigen > Ansicht ändern > Telefon. Siehe Screenshot:

2. Doppelklicken Sie, um den Kontakt zu öffnen, von dessen Telefonnummer Sie die Ländernummer entfernen möchten.

3. Entfernen Sie im sich öffnenden Kontaktfenster das Pluszeichen und den Ländercode vom angegebenen Telefon in der Telefonnummern Abschnitt, und klicken Sie dann Kontakt > Speichern und schließen.

Bisher wurde die Landesvorwahl von der angegebenen Telefonnummer entfernt (siehe Abbildung unten):

Wenn Sie den Ländercode aus allen Telefonnummern aller Kontakte in Outlook entfernen müssen, empfehle ich einen VBA, um dies problemlos zu handhaben.

1. In dem Personen (oder Kontakt) Ansicht, öffnen Sie den Kontaktordner, in dem Sie den Ländercode aus allen Kontakten entfernen.

2. Drücken Sie Andere + F11 Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

3 Klicken Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Skript zum Öffnen des Moduls ein.

VBA: Entfernen Sie den Ländercode von allen Telefonnummern aller Kontakte

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. Drücken Sie F5 Taste oder klicken Sie auf Run Schaltfläche zum Ausführen dieses VBA.

5. Anschließend wird ein Dialogfeld angezeigt, in dem angezeigt wird, wie viele Kontakte verarbeitet wurden. Klicken Sie auf OK Schaltfläche, um es zu schließen.

Jetzt sehen Sie, dass die Landesvorwahl aus allen Arten von Telefonnummern aller Kontakte entfernt wurde. Siehe Screenshot:

Verfolgen Sie Telefonanrufe mit Journalen in Outlook

Suchen Sie Kontakte nach Telefonnummer in Outlook