Outlook에서 하나 또는 여러 이메일의 모든 첨부 파일을 인쇄하는 방법은 무엇입니까?

4. 메일 첨부 파일 열기 대화 상자가 나타나며, 열기 버튼을 클릭하세요.

이 단계에서는 선택한 첨부 파일이 열리면서 동시에 인쇄됩니다.

이 이메일의 다른 첨부 파일을 인쇄하려면 2단계부터 4단계까지 반복하세요.

Outlook에서 여러 이메일로부터 모든 첨부 파일을 빠르게 저장/내보내기

일반적으로 Outlook에서 첨부 파일 도구 를 활성화하고 모든 첨부 파일 저장 기능을 적용하여 한 개의 이메일에서 첨부 파일을 저장할 수 있습니다. 하지만 여러 이메일이나 전체 메일 폴더에서 첨부 파일을 저장하려면 어떻게 해야 할까요? Kutools for Outlook의 모든 첨부 파일 저장 기능을 사용해 보세요.

지금 Kutools for Outlook의 무료 버전을 사용해 보세요. 100개 이상의 기능이 포함되어 있으며, 그중 70개 이상의 기능을 평생 무료로 이용할 수 있습니다!

한 개의 이메일 메시지에 있는 모든 첨부 파일 일괄 인쇄하기

한 개의 이메일 메시지에 첨부 파일이 많다면 하나씩 인쇄하는 것은 시간이 많이 걸릴 것입니다. 다음 방법은 선택한 이메일 메시지의 모든 첨부 파일을 손쉽게 일괄 인쇄하는 방법을 안내합니다.

1. 나중에 첨부 파일을 인쇄할 이메일 메시지를 선택하세요.

2. Outlook 2010 이상 버전에서는 파일 > 인쇄 > 인쇄 옵션을 클릭하세요. 아래 스크린샷을 참조하세요:

3. 인쇄 대화 상자에서 인쇄 옵션 섹션에서 첨부 파일 인쇄. 첨부 파일은 기본 프린터로만 인쇄됨 옵션을 선택하세요.

4. 인쇄 버튼을 클릭하세요.

5. 메일 첨부 파일 열기 대화 상자가 나타나면 계속 진행하기 위해 열기 버튼을 클릭하세요. (참고: 이 대화 상자는 각 첨부 파일마다 따로따로 나타납니다.)

이제 선택한 이메일 메시지의 모든 첨부 파일이 한 번에 인쇄됩니다.

여러 개의 선택된 이메일에 있는 모든 첨부 파일과 사진 일괄 인쇄하기

Outlook에서 여러 이메일의 모든 첨부 파일과 본문의 모든 사진을 인쇄하려면 아래 단계에 따라 VBA 코드를 적용하세요.

1. 메일 목록에서 Ctrl 또는 Shift 키를 누른 채로 첨부 파일을 인쇄할 여러 이메일을 선택하세요.

2. Alt + F11 키를 함께 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. Microsoft Visual Basic for Applications 창에서 도구 > 참조를 클릭하세요. 그리고 아래와 같이 Microsoft Scripting Runtime 옵션을 선택하세요. 완료되면 확인을 클릭하세요.

4. 삽입 > 모듈을 클릭하고 새 모듈 창에 아래 VBA 코드를 붙여넣으세요.

VBA: 여러 Outlook 이메일의 모든 첨부 파일 인쇄하기

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. F5 키를 누르거나 실행 버튼을 클릭하여 이 VBA 코드를 실행하세요. 이제 선택한 이메일의 모든 첨부 파일과 본문의 사진이 인쇄되는 것을 볼 수 있습니다.

참고:

• 각 이미지는 인쇄 확인을 요청하는 팝업 대화 상자를 띄웁니다. 다른 유형의 파일은 바로 인쇄됩니다.
• 이메일 서명에 포함된 이미지도 팝업 대화 상자를 띄웁니다.
• 이 프로젝트의 매크로가 비활성화되었다는 오류가 발생하면 이 튜토리얼을 확인하세요: Outlook에서 매크로를 활성화 및 비활성화하는 방법은?

본문의 사진을 제외하고 여러 개의 선택된 이메일에 있는 모든 첨부 파일 일괄 인쇄하기

Outlook에서 여러 이메일의 첨부 파일만 인쇄하고 본문의 사진은 제외하려면 아래 단계에 따라 VBA 코드를 적용하세요.

1. 메일 목록에서 Ctrl 또는 Shift 키를 누른 채로 첨부 파일을 인쇄할 여러 이메일을 선택하세요.

2. Alt + F11 키를 함께 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. Microsoft Visual Basic for Applications 창에서 도구 > 참조를 클릭하세요. 그리고 아래와 같이 Microsoft Scripting Runtime 옵션을 선택하세요. 완료되면 확인을 클릭하세요.

4. 삽입 > 모듈을 클릭하고 새 모듈 창에 아래 VBA 코드를 붙여넣으세요.

VBA: 여러 Outlook 이메일의 모든 첨부 파일 인쇄하기

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. F5 키를 누르거나 실행 버튼을 클릭하여 이 VBA 코드를 실행하세요. 이제 선택한 이메일의 모든 첨부 파일이 인쇄되는 것을 볼 수 있습니다.

참고:

• 각 첨부된 이미지는 인쇄 확인을 요청하는 팝업 대화 상자를 띄웁니다. 다른 유형의 파일은 바로 인쇄됩니다.
• 본문의 이미지는 인쇄되지 않습니다.
• 이 프로젝트의 매크로가 비활성화되었다는 오류가 발생하면 이 튜토리얼을 확인하세요: Outlook에서 매크로를 활성화 및 비활성화하는 방법은?

데모: Outlook 이메일에서 하나 또는 모든 첨부 파일 인쇄하기

---

최고의 오피스 생산성 도구

속보: Kutools for Outlook 무료 버전 출시!

100개 이상의 놀라운 기능을 갖춘 완전히 새로워진 Kutools for Outlook을 경험해 보세요! 지금 다운로드하세요!

🤖 Kutools AI : 첨단 AI 기술을 활용하여 이메일 회신, 요약, 최적화, 확장, 번역, 작성까지 어떤 작업도 손쉽게 처리합니다.

📧 이메일 자동화: 자동 응답(POP 및 IMAP 지원) / 이메일 예약 발송 / 메일 발송 시 규칙에 따라 자동 참조/숨은 참조 / 고급 규칙 기반 자동 전달 / 자동 인사말 추가 / 여러 수신자 이메일을 개별 이메일로 자동 분할 ...

📨 이메일 관리: 이메일 회수 / 제목 등으로 스팸 이메일 차단 / 중복된 이메일 삭제 / 고급 검색 / 폴더 정리 ...

📁 첨부 파일 Pro: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모지 / 중요한 이메일 도착 시 알림 / 종료 대신 Outlook 최소화 ...

👍 원클릭 편의 기능: 모두 회신(첨부 파일 포함) / 피싱 방지 이메일 / 🕘보낸 사람의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 & 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분리 / 생일 알림 제거 ...

원하는 언어로 Kutools를 사용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어 지원!

한 번의 클릭으로 Kutools for Outlook을 즉시 활성화하세요. 기다리지 말고, 지금 다운로드하여 효율성을 높이세요!

Kutools for Outlook 기능 목록 지금 다운로드 구매하기