메인 컨텐츠로 가기

Outlook의 이메일 본문에 모든 수신자 이름을 삽입하는 방법은 무엇입니까?

경우에 따라 Outlook에서 전자 메일을 작성할 때 모든받는 사람의 이름을 메시지 본문에 삽입해야 할 수 있습니다. 물론 이름을 하나씩 복사하여 본문에 붙여 넣을 수 있습니다. 그러나 수십 개의받는 사람 이름을 붙여 넣어야하는 경우 매우 지루합니다. 이 기사에서는 Outlook 에서이 작업을 쉽게 해결하는 방법에 대해 설명합니다.

Outlook에서 VBA 코드를 사용하여 모든 수신자 이름을 이메일 본문에 삽입


Outlook에서 VBA 코드를 사용하여 모든 수신자 이름을 이메일 본문에 삽입

다음 VBA 코드는받는 사람 필드의 모든받는 사람 이름을 메시지 본문에 삽입하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. Outlook을 시작한 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 :받는 사람 이름을 메시지 본문에 삽입합니다.

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. 그리고 여전히 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참조 로 이동합니다 참조 -Project1 대화 상자 및 확인 Microsoft Word 개체 라이브러리 옵션에서 사용 가능한 참조 목록 상자, 스크린 샷 참조 :

4. 그런 다음 OK 대화 상자를 닫으려면 이제 이 코드를 빠른 액세스 도구 모음.

5. 클릭하여 새 메시지를 작성하세요. 새 이메일,에 보내실 내용 창을 클릭합니다 신속 접근 도구 막대 사용자 화 아이콘을 선택하고 더 많은 명령, 스크린 샷 참조 :

6. 에서 전망 옵션 대화 상자 :

(1.) 선택 매크로 인사말 에서 명령 선택 드롭 다운 목록;

(2.) 그리고 방금 삽입 한 VBA 코드 이름을 선택합니다.

(3.) 클릭 추가 버튼을 눌러 코드를 신속 접근 도구 막대 사용자 화 리스트 박스.

7. 그런 다음 매크로 아이콘이 빠른 액세스 도구 모음 다음 스크린 샷과 같이 :

8. 이제 매크로 아이콘을 클릭하면 표시된 다음 스크린샷과 같이 받는 사람 필드의 받는 사람 이름이 메시지 본문에 삽입됩니다.


최고의 사무 생산성 도구

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

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

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

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

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

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

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

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations