จะพิมพ์เฉพาะไฟล์แนบจากอีเมลเดียวหรืออีเมลที่เลือกใน Outlook ได้อย่างไร
ใน Outlook คุณสามารถพิมพ์อีเมลได้ แต่คุณพิมพ์ไฟล์แนบจากอีเมลเดียวหรืออีเมลที่เลือกใน Outlook เท่านั้น ในบทความนี้ผมจะแนะนำเทคนิคในการแก้ปัญหานี้
พิมพ์ไฟล์แนบจากอีเมลเดียวด้วย Quick Print
พิมพ์ไฟล์แนบจากอีเมลที่เลือกด้วย VBA เท่านั้น
พิมพ์ไฟล์แนบจากอีเมลเดียวด้วย Quick Print
หากต้องการพิมพ์ไฟล์แนบโดยไม่มีเนื้อหาอีเมลคุณสามารถใช้ฟังก์ชัน Quick Print
1. ในหน้าต่างข้อความคลิกขวาที่ไฟล์แนบที่คุณต้องการพิมพ์เลือก พิมพ์ด่วน จากเมนูบริบท
2 จากนั้นคลิก ลด > ลด เพื่อบันทึกไฟล์แนบในตำแหน่งที่ตั้ง
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
3 จากนั้นคลิก เครื่องมือ > อ้างอิง, และใน อ้างอิง โต้ตอบตรวจสอบ รันไทม์การเขียนสคริปต์ของ Microsoft ช่องทำเครื่องหมาย
4 คลิก OKจากนั้นกด F5 คีย์เพื่อพิมพ์ไฟล์แนบทั้งหมดในอีเมลที่เลือกจำนวนมาก
หมายเหตุ: หากไฟล์แนบเป็นรูปภาพไฟล์แนบจะปรากฏขึ้น พิมพ์รูปภาพ โต้ตอบก่อนคลิก พิมพ์ ไป บันทึกเอาต์พุตการพิมพ์เป็น โต้ตอบ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ
🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...
📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...
เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม
