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에서 전화번호로 연락처 검색하기