아웃룩에서 한 개 또는 선택한 이메일의 첨부 파일만 인쇄하는 방법은 무엇인가요?

Author: Sun Last Modified: 2025-08-06

아웃룩에서는 이메일을 인쇄할 수 있지만, 아웃룩에서 한 개 또는 선택한 이메일의 첨부 파일만 인쇄해 본 적이 있나요? 이 문서에서는 이러한 작업을 해결하기 위한 팁을 소개합니다.

빠른 인쇄로 한 개의 이메일에서 첨부 파일만 인쇄하기

VBA를 사용하여 선택한 이메일에서 첨부 파일만 인쇄하기

빠른 인쇄로 한 개의 이메일에서 첨부 파일만 인쇄하기

이메일 본문 없이 첨부 파일만 인쇄하려면 빠른 인쇄 기능을 사용할 수 있습니다.

1. 메시지 창에서 인쇄하고자 하는 첨부 파일을 마우스 오른쪽 버튼으로 클릭하고, 컨텍스트 메뉴에서 "빠른 인쇄"를 선택합니다.
doc print attachment 1

2. 그런 다음 "저장" > "저장"을 클릭하여 첨부 파일을 특정 위치에 저장합니다.
doc print attachment 2
doc print attachment 3

3. 이제 첨부 파일을 저장한 위치로 이동하여 파일을 열고 평소처럼 인쇄합니다.

VBA를 사용하여 선택한 이메일에서 첨부 파일만 인쇄하기

선택한 이메일의 첨부 파일을 인쇄하려면 VBA 코드를 사용할 수 있습니다.

1. 인쇄하려는 이메일을 선택하고, "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 활성화합니다.

2. "Project1" 패널에서 "ThisOutlookSession"을 두 번 클릭하고 아래 코드를 스크립트에 복사하여 붙여넣습니다.

VBA: 선택한 이메일에서 첨부 파일 인쇄하기

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

doc print attachment 4