Outlook 에서 모든 연락처의 파일 표시 형식을 일괄 변경하려면 어떻게 하나요？

일반적으로 Outlook 에서는 연락처 파일이 성 이름 형식으로 표시되지만, 아래 스크린샷과 같이 회사명 또는 다른 순서로 연락처 파일의 표시 형식을 빠르게 일괄 변경하려면 어떻게 해야 할까요? 옵션의 기본 “파일 표시” 순서는 연락처에 대해서만 적용되며 기존 연락처에는 적용되지 않습니다. 여기에서는 Outlook 의 기존 모든 연락처에 대해 파일 표시 형식을 일괄 변경할 수 있는 VBA 코드를 소개합니다。

VBA 를 사용하여 모든 연락처의 파일 표시 형식 일괄 변경

---

VBA 를 사용하여 모든 연락처의 파일 표시 형식 일괄 변경

1. 파일 표시 형식을 변경할 연락처를 선택하고Alt + F11키를 눌러Microsoft Visual Basic for Applications창을 활성화합니다。

2. ThisOutlookSession을(를)Project-Project1창에서 두 번 클릭한 후 아래 코드를 빈 스크립트에 복사하여 붙여넣습니다。

VBA： 파일 표시 형식 변경

Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
    If xItem.Class = olContact Then
        Set xContact = xItem
        With xContact
            If .CompanyName = "" Then
                xFileAs = .FullName
            Else
                xFileAs = .CompanyName
            End If
            .FileAs = xFileAs
            .Save
        End With
    End If
Next
End Sub

3. F5키를 눌러 코드를 실행하면 선택한 모든 연락처의 파일 표시 형식이 회사명으로 변경됩니다。

참고：

1. 코드 내에서CompanyName을(를) 파일 표시 형식으로 사용하려는 다른 필드로 변경할 수 있습니다。

2. 회사 정보가 없는 경우 전체 이름을(를) 표시합니다。