메인 컨텐츠로 가기

Outlook에서 하나의 전자 메일 또는 선택한 전자 메일의 첨부 파일 만 인쇄하는 방법은 무엇입니까?

작가: 썬 최종 수정 날짜: 2020-09-27

Outlook에서 전자 메일을 인쇄 할 수 있지만 Outlook에서 하나의 전자 메일 또는 선택한 전자 메일에서만 첨부 파일을 인쇄 했습니까? 이 기사에서는이 작업을 해결하는 방법을 소개합니다.

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

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


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

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

1. 메시지 창에서 인쇄 할 첨부 파일을 마우스 오른쪽 버튼으로 클릭하고 빠른 인쇄 컨텍스트 메뉴에서.
문서 인쇄 첨부 1

2. 그런 다음 찜하기 > 찜하기 위치에 첨부 ​​파일을 저장합니다.
문서 인쇄 첨부 2
문서 인쇄 첨부 3

3. 이제 첨부 파일을 넣은 위치로 이동하여 평소와 같이 인쇄 할 파일을 엽니 다.


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

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

1. 첨부 파일을 인쇄 할 이메일을 선택하고 Alt + F11 활성화 할 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 더블 클릭 ThisOutlook세션Project1 창에서 코드 아래에 복사하여 스크립트에 붙여 넣습니다.

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

문서 인쇄 첨부 4

3. 그런 다음 도구 > 참고자료, 그리고 참고자료 대화 상자, 확인 Microsoft 스크립팅 런타임 확인란의 선택을 취소합니다.
문서 인쇄 첨부 5   문서 인쇄 첨부 6

4. 클릭 OK, 다음을 누릅니다. F5 키를 눌러 선택한 이메일의 모든 첨부 파일을 대량으로 인쇄합니다.

주의 사항: 첨부 파일이 그림이면 사진 인쇄 먼저 대화 상자에서 인쇄 로 이동합니다 인쇄 출력을 다른 이름으로 저장 대화.
문서 인쇄 첨부 7


최고의 사무 생산성 도구

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

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

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

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

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

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

 

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how do you print attachments in multiple emails but with a certain page range
This comment was minimized by the moderator on the site
I tried the multiple emails option of pasting the VBA code, but when I press F5 to run it, I get a syntax error with this line highlighted:
If xItem.Class = olMail Then


Any ideas?
This comment was minimized by the moderator on the site
Have you check the Microsoft Scripting Runtime checkbox?
This comment was minimized by the moderator on the site
how can I enable the macro's? Last week it worked perfectly.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations