Outlook 에서 한 이메일 또는 선택한 이메일의 첨부 파일만 인쇄하는 방법은 무엇인가요？

Outlook 에서는 이메일을 인쇄할 수 있지만， 한 이메일 또는 선택한 이메일에서 첨부 파일만 인쇄해 보신 적이 있나요？ 이 글에서는 이 작업을 해결하는 팁을 소개합니다。

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

VBA 로 선택한 이메일의 첨부 파일만 인쇄하기

---

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

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

1. 메시지 창에서 인쇄하려는 첨부 파일을 마우스 오른쪽 버튼으로 클릭하고， 상황에 맞는 메뉴에서 「빠른 인쇄」를 선택하세요。

2. 그런 다음 「저장」 > 「저장」을 클릭하여 첨부 파일을 원하는 위치에 저장합니다。

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

3. 그런 다음 「도구」 > 「참조」를 클릭하고， 「참조」 대화상자에서 「Microsoft Scripting Runtime」 확인란을 선택합니다。
  

4. 「확인」을 클릭한 후 “F5" 키를 눌러 선택한 이메일의 모든 첨부 파일을 일괄적으로 인쇄합니다。

참고： 첨부 파일이 그림인 경우 먼저 「그림 인쇄」 대화상자가 나타납니다。 「인쇄」를 클릭하여 「인쇄 출력물을 다른 이름으로 저장」 대화상자로 이동하세요。