Note: The other languages of the website are Google-translated. Back to English

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

아시다시피, 헤더, 본문과 같은 이메일 내용은 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄 Microsoft Outlook에서는 있지만 첨부 파일을 인쇄하지 않습니다. 여기에서는 Microsoft Outlook에서 선택한 이메일의 모든 첨부 파일을 쉽게 인쇄하는 방법을 보여줍니다.


하나의 이메일 메시지에있는 모든 첨부 파일을 하나씩 인쇄

Microsoft Outlook은 빠른 인쇄 이메일 메시지의 첨부 파일을 하나씩 인쇄하는 데 도움이되는 기능입니다.

1. 나중에 인쇄 할 첨부 파일이있는 이메일 메시지를 선택하십시오.

2. 이 이메일에서 첨부 파일 하나를 클릭하십시오.

3. 클릭 빠른 인쇄 버튼의 행위 그룹에 첨부 파일 탭.

참고 : 부착 도구 이메일의 첨부 파일을 클릭 할 때까지 활성화되지 않습니다.

4. 메일 첨부 열기 대화 상자가 나타나면 클릭하십시오. 엽니다 버튼을 클릭합니다.

이 단계는 선택한 첨부 파일을 열고 동시에이 선택한 첨부 파일을 인쇄합니다.

이 이메일의 다른 첨부 파일을 인쇄하려면 2 단계에서 4 단계를 반복하십시오.

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

일반적으로 우리는 활성화하여 하나의 이메일에서 첨부 파일을 저장할 수 있습니다. 부착 도구 적용 모든 첨부 파일 저장 Outlook의 기능. 그러나 여러 전자 메일 또는 Outlook의 전체 메일 폴더에서 첨부 파일을 저장하면 어떻게 될까요? Outlook 용 Kutools를 사용해보십시오. 모두 저장 (첨부 파일) 기능.


여러 이메일에 첨부 파일 저장 kto9

모든 첨부 파일을 하나의 이메일 메시지에 일괄 인쇄

하나의 이메일 메시지에 첨부 파일이 많은 경우 하나씩 인쇄하려면 시간이 많이 걸립니다. 그리고 다음 방법은 선택한 이메일 메시지의 모든 첨부 파일을 일괄 인쇄하는 과정을 쉽게 안내합니다.

1. 나중에 인쇄 할 첨부 파일이있는 이메일 메시지를 선택하십시오.

2. Outlook 2010 이상 버전에서는 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄 > 인쇄 옵션. 다음 스크린 샷을 참조하십시오.

3. 인쇄 대화 상자에서 확인하십시오. 첨부 파일을 인쇄합니다. 첨부 파일은 기본 프린터로만 인쇄됩니다. 에서 옵션 인쇄 옵션 안내

4. 클릭 인쇄 버튼을 클릭합니다.

5. 메일 첨부 열기 대화 상자가 나타나면 엽니다 계속하려면 버튼을 누르십시오. (주의 사항:이 대화 상자는 각 첨부 파일에 대해 개별적으로 나타납니다.)

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


선택한 여러 이메일의 모든 첨부 파일과 사진을 일괄 인쇄합니다.

Outlook에서 메시지 본문의 모든 사진뿐만 아니라 여러 이메일의 모든 첨부 파일을 인쇄하려면 아래 단계에 따라 VBA 코드를 적용하십시오.

1. 메일 링리스트에서 Ctrl 키 or 변화 키를 눌러 첨부 파일을 인쇄 할 여러 이메일을 선택합니다.

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

3. Microsoft Visual Basic for Applications 창에서 도구 > 참조. 그런 다음 Microsoft 스크립팅 런타임 옵션은 아래와 같습니다. 완료되면 클릭 OK.

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 키 or 변화 키를 눌러 첨부 파일을 인쇄 할 여러 이메일을 선택합니다.

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

3. Microsoft Visual Basic for Applications 창에서 도구 > 참조. 그런 다음 Microsoft 스크립팅 런타임 옵션은 아래와 같습니다. 완료되면 클릭 OK.

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


:이 비디오에서 쿠툴 탭 추가 Outlook 용 Kutools. 필요한 경우 클릭하십시오 here 제한없이 60 일 무료 평가판을 받으려면!


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (23)
5에서 평가 된 5 · 1 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 매우 유용하지만 Office 365에서는 도움이 되지 않습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 부분은 스스로 알아낼 수 있었습니다. 제가 알아내려고 하는 것은 그렇게 해도 첨부 파일이 인쇄되지 않는 이유입니다. 각 첨부 파일에 대해 "열기" 또는 "저장"할 것인지 묻는 오류 메시지가 나타납니다. 두 옵션 중 하나를 선택하면 정확히 해당 결과가 생성됩니다. 즉, 여전히 인쇄되지 않고 열거나 저장하기만 하면 됩니다. 20개의 이메일에서 4개의 첨부 파일이 있습니다. 인쇄하기 위해 80개의 문서를 열어보고 싶지는 않습니다. 내가 구매하고 비용을 지불한 운영 체제와 내 자신의 컴퓨터를 사용할 수 있도록 삭제해야 하는 "나 자신으로부터 나를 구해줘" 보안 설정이 분명히 있습니다. 그것이 내가 알아야 할 사항입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이메일을 두 번 클릭하면 저절로 "팝아웃"됩니다. 첨부 파일 중 하나를 마우스 오른쪽 버튼으로 클릭하고 "모두 선택"을 클릭한 다음 "빠른 인쇄"를 클릭합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Leah와 동의하십시오. 이것은 작동하지 않습니다. 이메일 본문과 첫 번째 첨부 파일만 인쇄합니다. 전부는 아닙니다. 위에 표시된 "모두 선택" 옵션을 사용하여 모두 인쇄하는 방법에 대한 지침이 필요합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하나의 이메일에 모든 첨부 파일을 함께 인쇄하려면 다음과 같이 하십시오. 먼저 바탕 화면에 폴더를 만듭니다....내 이름을 "인쇄"라고 명명했습니다. 첨부 파일이 있는 이메일로 이동합니다....모든 첨부 파일을 강조 표시하고 마우스 오른쪽 버튼을 클릭하고 모든 첨부 파일을 인쇄 폴더에 저장합니다. 인쇄 폴더 열기.....모두 강조 표시.....오른쪽 클릭.....인쇄.



이제 200개의 이메일에 있는 모든 첨부 파일을 하나씩 열어 인쇄하지 않고 인쇄하는 방법을 알아낼 수만 있다면.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Outlook용 Kutools의 모두 분리(첨부 파일) 기능을 사용하면 몇 번의 클릭으로 여러 이메일의 모든 첨부 파일을 다운로드할 수 있습니다! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
pdf의 이름이 같은 경우 매크로가 pdf를 하나만 인쇄하는 경우 pdf 이름을 수정하기 위해 코드를 어떻게 변경할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 코드에서 구문이 오류를 제공합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
9 행에서 "On Error Resume Next"를 제거하면 저에게 효과적이었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예, 이것은 저에게도 효과적이었습니다. 고맙습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고맙습니다 
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 저는 지금 몇 주 동안 이 바로 가기를 사용하여 여러 이메일의 모든 첨부 파일을 한 번에 인쇄하고 있으며 최근에 Nilanka가 말한 대로 9행을 제거해야 했습니다. 이 작업은 작동했지만 더 이상 작동하지 않습니다. 이 프로젝트의 매크로가 비활성화되어 있다는 경고 상자가 표시됩니다.... 등등... 누군가가 이 작업을 이전처럼 작동하도록 하는 솔루션이 있다면 약 60개를 선택하고 있으므로 lmk를 보내주십시오. 인쇄할 첨부 파일이 포함된 모든 이메일. 감사해요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 여러분, 우리는 2022/08/03에 튜토리얼에서 VBA 코드를 업데이트했습니다. 여전히 모든 첨부 파일을 인쇄해야 하는 경우 새 코드를 확인하십시오. 😊
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이것은 어제 저에게 잘 작동했지만 지금은 '이 프로젝트의 매크로가 비활성화되었습니다'라고 표시됩니다. 활성화하는 방법에 대한 조언이 있습니까? 
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Vielen, Vielen Dank dafür! 중요 문서는 "Dim xAttachment As Outlook.Attachment On Error Resume Next" entfernen, dannlief der Code einfandfrei durch.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hallo, ich möchte nur den Anhang der Mails von der angegebenen Adresse senden, wie kann ich das machen, danke
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
저는 Microsoft 365를 사용하고 있으며 9행을 삭제한 후에 작동했습니다. 감사합니다! 이것은 나를 위해 약간의 시간을 절약했습니다.
5에서 평가 된 5
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
모든님께,

VBA를 시도했고 코드가 실행되지만 메일 서명에서 이미지를 인쇄하기 위해 많은 팝업이 화면에 열립니다(분명히 이것은 첨부 파일로 간주됨). 해결 방법 아시는 분 계신가요?

S.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,

이미지를 인쇄하면 팝업이 표시되는 점 죄송합니다. 모든 이미지를 다운로드하려면 각각을 확인해야 합니다. 이미지를 인쇄할 필요가 없으면 취소를 클릭하십시오.

아만다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
메시지 본문에 사진을 인쇄하지 않으려면 아래 코드를 사용하십시오.
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
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 아만다,

코드 주셔서 감사합니다. 효과가 있었다!

S.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호