Как удалить код страны из телефонных номеров контактов в 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