Outlook에서 선택한 메일의 첨부 파일 정보 목록을 어떻게 가져올 수 있나요?

Author: Siluvia Last Modified: 2025-08-06

첨부 파일이 포함된 받은 이메일의 경우, 때때로 첨부 파일의 세부 정보(예: 표시 이름, 파일 이름 등)를 알아야 할 필요가 있을 수 있습니다. 실제로 VBA 코드를 사용하면 Outlook에서 현재 선택한 이메일의 첨부 파일 정보 목록을 쉽게 가져올 수 있습니다. 자세한 내용은 아래 튜토리얼을 참조하세요.

Outlook에서 선택한 메일의 첨부 파일 정보 목록 가져오기

Office Tab - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 간편하게 처리하세요.

Office Tab의 기능 읽기 Office Tab 다운로드

지금 Kutools for Outlook의 잠금을 해제하고 무제한 액세스로 100개 이상의 기능을 즐기세요.

AI 기술을 활용하여 이메일 생산성을 향상시키고, 빠르게 이메일에 회신하거나 새 이메일을 작성하며 메시지를 번역하는 등 더욱 효율적으로 작업하세요.
자동 참조/숨은 참조(Auto CC/BCC), 규칙에 따른 자동 전달(Auto Forward)로 이메일 작업을 자동화하고, 교환 서버 없이도 자동 응답(Out of Office)을 보낼 수 있습니다...
BCC에 내 이메일을 포함하여 답장할 때 알림(BCC Warning)이나 첨부 파일 누락 시 알림(Remind When Missing Attachments)과 같은 알림을 받으세요...
첨부 파일을 포함한 회신(Reply All With Attachments), 인사말 또는 날짜와 시간을 서명 또는 제목에 자동 추가(Auto Add Greeting or Date & Time into Signature or Subject), 여러 이메일에 회신하기(Reply Multiple Emails) 등을 통해 이메일 효율성을 개선하세요...
이메일 회수(Recall Emails), 첨부 파일 도구(Attachment Tools)(전체 압축, 전체 자동 저장...), 중복된 이메일 삭제, 빠른 보고서 생성 등을 통해 이메일 작업을 간소화하세요...

Outlook 2024 - 2010 또는 Outlook 365를 이러한 고급 기능으로 강화하고, 100개 이상의 강력한 기능을 사용해 이메일 경험을 한 단계 높이세요!

Kutools for Outlook의 모든 기능 읽기 지금 다운로드

Outlook에서 선택한 메일의 첨부 파일 정보 목록 가져오기

1. 첨부 파일 정보를 가져오려는 이메일을 선택하세요.

2. 키보드에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. 그런 다음 Project1 > Microsoft Outlook Object > ThisOutlookSession를 더블 클릭하여 Project1 – ThisOutlookSession 창을 엽니다. 스크린샷 보기:

the Project1 – ThisOutlookSession window

4. 아래 VBA 코드를 복사하여 Project1 – ThisOutlookSession 창에 붙여넣습니다.

VBA 코드: 첨부 파일 정보 목록 가져오기

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

5. 키보드에서 F5 키를 눌러 VBA 코드를 실행합니다.

6. 이제 Macros 대화 상자가 나타납니다. Run 버튼을 클릭하세요.

a Macros dialog box