메인 컨텐츠로 가기

Outlook의 모든 연락처에 대한 형식으로 파일을 일괄 변경하는 방법은 무엇입니까?

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

VBA를 사용하는 모든 연락처에 대한 일괄 변경 파일


VBA를 사용하는 모든 연락처에 대한 일괄 변경 파일

1. 파일을 변경할 연락처를 선택하고 Alt + F11 활성화하는 키 Microsoft Visual Basic for Applications 창.

2. 더블 클릭 ThisOutlookSession in 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으로

3. 프레스 F5 키를 눌러 코드를 실행하면 선택한 모든 연락처가 파일로 회사로 변경되었습니다.

참고 :

1. 코드에서 다음을 변경할 수 있습니다. CompanyName 파일을 표시하려는 다른 필드로.

2. 회사정보가 없을 경우 전체 이름으로 표시됩니다.


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I run the script above in 5 min and saved hours!! GREAT!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations