Outlook의 모든 연락처에 대한 형식으로 파일을 일괄 변경하는 방법은 무엇입니까?
일반적으로 연락처 파일은 Outlook에서 성 이름으로 표시되지만 아래 스크린 샷과 같이 연락처 파일을 회사 또는 다른 순서로 형식으로 빠르게 일괄 변경할 수 있습니까? 옵션 기본 "파일 형식"순서는 새 연락처에 대해서만 작동 할 수 있지만 기존 연락처에는 적용되지 않습니다. 여기에서는 Outlook에 존재하는 모든 연락처의 형식으로 파일을 일괄 변경하는 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. 프레스 F5 키를 눌러 코드를 실행하면 선택한 모든 연락처가 파일로 회사로 변경되었습니다.
참고 :
1. 코드에서 다음을 변경할 수 있습니다. CompanyName 파일을 표시하려는 다른 필드로.
2. 회사정보가 없을 경우 전체 이름으로 표시됩니다.
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.
