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

Outlook: วิธีพิมพ์อีเมลโดยไม่มีรูปภาพ

โดยทั่วไปการพิมพ์อีเมลใน Outlook รูปภาพจะถูกพิมพ์เช่นกัน แต่บางครั้ง คุณเพียงแค่ต้องการพิมพ์ข้อความโดยไม่มีรูปภาพ อย่างไรก็ตาม ใน Outlook ไม่มีฟีเจอร์ในตัวที่รองรับงานนี้ บทช่วยสอนนี้มีโค้ด VBA ที่จะพิมพ์อีเมลแบบไม่มีรูปภาพผ่าน Word ทันที หรือเมื่อคอมพิวเตอร์ของคุณไม่มีเครื่องพิมพ์ รหัส VBA จะส่งออกอีเมลเป็น PDF โดยไม่มีรูปภาพก่อน จากนั้นคุณสามารถพิมพ์ PDF ได้หลังจากที่เครื่องพิมพ์พร้อมใช้งาน

VBA เพื่อพิมพ์อีเมลโดยไม่มีรูปภาพ

แท็บ Office - เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้การทำงานง่ายขึ้นมาก ...
Kutools สำหรับ Outlook - นำ 100 คุณลักษณะขั้นสูงที่มีประสิทธิภาพมาสู่ Microsoft Outlook
  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับตามกฎ ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมดหากที่อยู่อีเมลของคุณอยู่ในรายการ BCC เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมด ในการสนทนาทางไปรษณีย์ ตอบอีเมลหลายฉบับพร้อมกัน เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่และเวลาในหัวเรื่องโดยอัตโนมัติ ...
  • เครื่องมือแนบ: ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกอัตโนมัติทั้งหมด ... รายงานด่วน, นับเมลที่เลือก, ลบอีเมลและรายชื่อที่ซ้ำกัน ...
  • คุณสมบัติขั้นสูงมากกว่า 100 รายการจะ แก้ปัญหาส่วนใหญ่ของคุณ ใน Outlook 2010-2019 และ 365 ฟีเจอร์เต็มรูปแบบทดลองใช้ฟรี 60 วัน

VBA เพื่อพิมพ์อีเมลโดยไม่มีรูปภาพ

 

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

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างโมดูลเปล่าใหม่ จากนั้นคัดลอกและวางโค้ดด้านล่างลงในโมดูล

VBA: ส่งออกอีเมลโดยไม่มีรูปภาพ

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

doc ลบรายการปฏิทินที่ซ้ำกัน 1

3 คลิก เครื่องมือ > อ้างอิง การเปิดใช้งาน อ้างอิง – โครงการ 1 โต้ตอบ ติ๊ก ไลบรารีวัตถุ Microsoft Word 16.0 ช่องทำเครื่องหมาย คลิก OK.

 doc ลบรายการปฏิทินที่ซ้ำกัน 1

doc ลบรายการปฏิทินที่ซ้ำกัน 1

4-1. เก็บเคอร์เซอร์ไว้ในโค้ด แล้วกด F5 คีย์หรือคลิก วิ่ง เพื่อเรียกใช้โค้ด จากนั้นอีเมลที่ไม่มีรูปภาพจะถูกพิมพ์ผ่าน Word ทันที แต่ถ้าคอมพิวเตอร์ของคุณไม่มีเครื่องพิมพ์ โปรดทำตามขั้นตอนที่ 4

4-2. เมื่อคอมพิวเตอร์ของคุณไม่มีเครื่องพิมพ์ หลังจากกด F5 คีย์หรือคลิก วิ่ง เพื่อเรียกใช้โค้ด กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกโฟลเดอร์ที่จะวางไฟล์ PDF และตั้งชื่อไฟล์ PDF คลิก ลด.

 doc ลบรายการปฏิทินที่ซ้ำกัน 1

ตอนนี้อีเมลได้ถูกส่งออกเป็น PDF โดยไม่มีรูปภาพ เปิดไฟล์ PDF และคลิกขวาเพื่อเลือก พิมพ์ เพื่อพิมพ์อีเมล

doc ลบรายการปฏิทินที่ซ้ำกัน 1

doc ลบรายการปฏิทินที่ซ้ำกัน 1

ปลาย: หากคุณต้องการบันทึกอีเมลที่เลือกเป็นกลุ่มเป็น PDF (หรือ Word, CSV, Excel, Txt, ไฟล์ HTML) ที่มีรูปภาพ ส่วนหัว เนื้อหา Ccs บันทึกจำนวนมาก คุณลักษณะของ Kutools สำหรับ Outlook ช่วยคุณได้ ซึ่งแค่ 3 ขั้นตอนเท่านั้น

1. เลือกอีเมล

2 คลิก Kutools > บันทึกจำนวนมาก.

doc ลบรายการปฏิทินที่ซ้ำกัน 1

3. เลือกตำแหน่งและตรวจสอบรูปแบบไฟล์ที่คุณต้องการ คลิกตกลง

doc ลบรายการปฏิทินที่ซ้ำกัน 1

doc ลบรายการปฏิทินที่ซ้ำกัน 1

รับ Kutools for Outlook ทดลองใช้ฟรี 30 วันทันที.


Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0  ตัวอักษร
สถานที่แนะนำ