如何在 Outlook 中删除联系人电话号码中的国家区号？

从某个联系人的电话号码中移除国家区号

使用 VBA 从联系人列表中的电话号码中移除国家区号

如果您只需从某个联系人的一个电话号码中移除国家区号，可以按以下方法手动删除：

1. 在“人员”（或“联系人”）视图中，点击“视图”>“更改视图”>“电话”，如图所示：

2. 双击打开您希望移除国家区号的联系人及其电话号码。

3. 在打开的联系人窗口中，在“电话号码”区域的指定电话字段中删除加号和国家区号，然后点击“联系人”>“保存并关闭”。

如图所示，指定的电话号码中的国家区号已经被移除：

如果您希望在 Outlook 中批量移除所有联系人电话号码中的国家区号，使用 VBA 即可轻松实现。

1. 在“人员”（或“联系人”）视图中，打开您想要批量移除国家区号的联系人文件夹。

2. 同时按下“Alt”+“F11”键，即可打开“Microsoft Visual Basic for Applications”窗口。

3. 点击“插入”>“模块”，然后将以下 VBA 代码粘贴到新打开的模块脚本窗口中。

VBA：批量移除所有联系人的所有电话号码中的国家区号

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. 按下“F5”键或点击“运行”按钮，即可执行 VBA。

5. 随后将弹出一个对话框，显示已处理的联系人数量。请点击“确定”按钮以关闭该窗口。

现在，您将看到所有联系人各类电话号码中的国家区号已被成功移除。请参见下方截图：

在 Outlook 中通过日志跟踪电话记录

在 Outlook 中通过电话号码搜索联系人