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 이메일의 하나 또는 모든 첨부 파일 인쇄하기

---

최고의 Office 생산성 도구

Kutools for Outlook 의 완전히 새로운 버전을 100+가지 놀라운 기능과 함께 경험해 보세요！지금 다운로드하세요！

🤖KUTOOLS AI:고급 AI 기술을 활용하여 이메일 회신， 요약， 최적화， 확장， 번역， 작성 등 이메일 관련 작업을 손쉽게 처리합니다。

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

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

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

🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...

👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...

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

Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！

한 번의 클릭으로 즉시 Kutools for Outlook 의 잠금을 해제하세요。 더 이상 기다리지 마시고 지금 다운로드하여 업무 효율을 높이세요！

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

🚀 한 번의 클릭으로 다운로드 — 모든 Office 애드인 받기

강력히 권장： Kutools for Office (5-in-1)

한 번의 클릭으로다섯 개의 설치 프로그램을동시에 다운로드하세요 —Kutools for Excel, Outlook, Word, PowerPoint및Office Tab Pro.지금 다운로드하세요！

• ✅한 번의 클릭으로 편리하게： 다섯 개의 설치 패키지를 한 번에 다운로드하세요。
• 🚀모든 Office 작업에 대비 완료： 필요한 시점에 필요한 애드인을 설치하세요。
• 🧰포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

스위트 정보⬇ 스위트 다운로드💳 스위트 구매