ไปยังเนื้อหาหลัก

จะพิมพ์เฉพาะไฟล์แนบจากอีเมลเดียวหรืออีเมลที่เลือกใน Outlook ได้อย่างไร

ผู้เขียน: ซัน แก้ไขล่าสุด: 2020-09-27

ใน Outlook คุณสามารถพิมพ์อีเมลได้ แต่คุณพิมพ์ไฟล์แนบจากอีเมลเดียวหรืออีเมลที่เลือกใน Outlook เท่านั้น ในบทความนี้ผมจะแนะนำเทคนิคในการแก้ปัญหานี้

พิมพ์ไฟล์แนบจากอีเมลเดียวด้วย Quick Print

พิมพ์ไฟล์แนบจากอีเมลที่เลือกด้วย VBA เท่านั้น


พิมพ์ไฟล์แนบจากอีเมลเดียวด้วย Quick Print

หากต้องการพิมพ์ไฟล์แนบโดยไม่มีเนื้อหาอีเมลคุณสามารถใช้ฟังก์ชัน Quick Print

1. ในหน้าต่างข้อความคลิกขวาที่ไฟล์แนบที่คุณต้องการพิมพ์เลือก พิมพ์ด่วน จากเมนูบริบท
เอกสารแนบการพิมพ์ doc 1

2 จากนั้นคลิก ลด > ลด เพื่อบันทึกไฟล์แนบในตำแหน่งที่ตั้ง
เอกสารแนบการพิมพ์ doc 2
เอกสารแนบการพิมพ์ doc 3

3. ตอนนี้ไปยังตำแหน่งที่คุณวางไฟล์แนบและเปิดไฟล์เพื่อพิมพ์ตามปกติ


พิมพ์ไฟล์แนบจากอีเมลที่เลือกด้วย VBA เท่านั้น

หากคุณต้องการพิมพ์ไฟล์แนบจากอีเมลที่เลือกคุณสามารถใช้รหัส VBA

1. เลือกอีเมลที่คุณต้องการพิมพ์ไฟล์แนบกด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ดับเบิลคลิก นี้OutlookSession เริ่มต้น 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

เอกสารแนบการพิมพ์ doc 4

3 จากนั้นคลิก เครื่องมือ > อ้างอิง, และใน อ้างอิง โต้ตอบตรวจสอบ รันไทม์การเขียนสคริปต์ของ Microsoft ช่องทำเครื่องหมาย
เอกสารแนบการพิมพ์ doc 5   เอกสารแนบการพิมพ์ doc 6

4 คลิก OKจากนั้นกด F5 คีย์เพื่อพิมพ์ไฟล์แนบทั้งหมดในอีเมลที่เลือกจำนวนมาก

หมายเหตุ: หากไฟล์แนบเป็นรูปภาพไฟล์แนบจะปรากฏขึ้น พิมพ์รูปภาพ โต้ตอบก่อนคลิก พิมพ์ ไป บันทึกเอาต์พุตการพิมพ์เป็น โต้ตอบ
เอกสารแนบการพิมพ์ doc 7


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

🤖 Kutools AI : ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมล  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เตือนคุณเมื่อมีอีเมลสำคัญมาถึง  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

kutools สำหรับคุณสมบัติ Outlook1 kutools สำหรับคุณสมบัติ Outlook2
 

 

 

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