Outlook에서 이메일을 작성할 때 모든 첨부 파일 이름을 본문에 나열하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook에서 이메일을 작성할 때 모든 첨부 파일 이름을 본문에 삽입할 수 있는 좋은 방법이 있을까요? 이 기사에서는 Outlook에서 이 작업을 해결하는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 이메일 작성을 할 때 모든 첨부 파일 이름을 본문에 나열하기

간단한 기능을 사용하여 이메일 작성을 할 때 모든 첨부 파일 이름을 본문에 나열하기

VBA 코드를 사용하여 이메일 작성을 할 때 모든 첨부 파일 이름을 본문에 나열하기

다음 단계를 수행하여 이 작업을 완료하십시오:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 Project1(VbaProject.OTM) 창에서 ThisOutlookSession을 두 번 클릭하여 모듈을 열고, 다음 코드를 빈 모듈에 복사하여 붙여넣습니다.

VBA 코드: 모든 첨부 파일 이름을 본문에 나열하기:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

doc-list-attaches-into-message-1

3. 계속해서 Insert > Module을 클릭하고, 아래 코드를 열린 빈 모듈로 복사하여 붙여넣으세요. 스크린샷 참조:

VBA 코드: 모든 첨부 파일 이름을 본문에 나열하기:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

doc-list-attaches-into-message-2

4. 그리고 Microsoft Visual Basic for Applications 창에서 Tools > References를 클릭합니다. 나타난 References-Project1 대화 상자에서 Available References 목록에서 Microsoft Word Object Library 옵션을 선택하세요. 스크린샷 참조:

5. 확인 버튼을 클릭하여 대화 상자를 종료한 후, 매크로 버튼을 Quick Access Toolbar에 추가해야 합니다. 새 메시지 창에서 Customize Quick Access Toolbar 드롭 다운에서 More Commands를 선택하세요. 스크린샷 참조:

doc-list-attaches-into-message-5