Outlook 에서 이메일 본문에 모든 수신자 이름을 삽입하는 방법은 무엇인가요？

때로는 Outlook 에서 이메일을 작성할 때 모든 수신자의 이름을 메시지 본문에 삽입해야 할 수도 있습니다. 물론 이름을 하나씩 복사하여 본문에 붙여넣을 수 있습니다. 그러나 수십 명의 수신자 이름을 붙여넣어야 한다면 매우 번거로운 작업입니다. 이 글에서는 Outlook 에서 이러한 작업을 쉽게 해결할 수 있는 방법을 소개하겠습니다。

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

---

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

다음의 VBA 코드를 사용하면 '받는 사람‘ 필드의 모든 수신자 이름을 메시지 본문에 삽입할 수 있습니다。 아래 단계대로 진행하세요：

1. Outlook 을 실행한 후ALT + F11키를 누른 채로Microsoft Visual Basic for Applications창을 엽니다。

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 for Applications창에서도구>참조를 클릭하여참조 - Project1대화 상자로 이동한 후，Microsoft Word Object Library옵션을사용 가능한 참조목록 상자에서 선택합니다。 스크린샷 참조：

4。 그런 다음확인을 클릭하여 대화 상자를 닫습니다。 이제 이 코드를빠른 실행 도구 모음에 추가해야 합니다。

5.새 이메일을 클릭하여 새 메시지를 작성합니다。메시지창에서빠른 실행 도구 모음 사용자 지정아이콘을 클릭하고기타 명령을 선택합니다。 스크린샷 참조：

6.Outlook 옵션대화 상자에서：

(1.)매크로를명령 선택 기준드롭다운 목록에서 선택합니다；

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

(3.)추가버튼을 클릭하여 코드를빠른 실행 도구 모음 사용자 지정목록 상자에 추가합니다。

7。 그러면 다음과 같은 스크린샷처럼 매크로 아이콘이빠른 실행 도구 모음에 표시됩니다：

8。 이제 매크로 아이콘을 클릭하면 '받는 사람‘ 필드의 수신자 이름이 다음과 같은 스크린샷처럼 메시지 본문에 삽입됩니다：