메인 컨텐츠로 가기

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

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 - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

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

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

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

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

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations