วิธีการส่งออกส่วนหนึ่งของอีเมล Outlook เป็นไฟล์ PDF เนื้อไม่มีมัน

โซลูชัน Outlook September 29, 2025

หากคุณต้องการส่งออกส่วนหนึ่งของอีเมล Outlook แทนที่จะเป็นอีเมลทั้งหมดในรูปแบบไฟล์ PDF คุณสามารถอ่านบทความนี้ได้ ที่นี่เราจะแนะนำคุณให้บรรลุด้วยรหัส VBA

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

ส่งออกส่วนหนึ่งของอีเมลเป็นไฟล์ PDF เนื้อไม่มีมัน

ขั้นแรก ให้เปิดโปรแกรม Outlook ของคุณ
จากนั้นเข้าถึงโปรแกรมแก้ไข Outlook VBA ผ่านทางแป้นพิมพ์ลัด“ Alt + F11”
ถัดไปในหน้าต่างใหม่นี้ให้เปิดโมดูลที่ไม่ได้ใช้
จากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลนี้

Sub ExportSelectionAsPDF()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strPDF As String
 
    'Get the currently opened email
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objMail Is Nothing Then
       'Copy the current selection
       Set objMailDocument = objMail.GetInspector.WordEditor
       Set objDocSelection = objMailDocument.Application.Selection
       objDocSelection.Copy
 
       'Paste the selection into a new Word document
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
       objWordApp.Selection.EndKey wdStory
       objWordApp.Selection.PasteAndFormat wdPasteDefault
 
       'Export the document as a PDF file
       'Change the path as per your needs
       strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

       objTempDocument.Close False
       objWordApp.Quit
    End If
End Sub

หลังจากนั้นคุณควรเพิ่มมาโครใหม่ลงในแถบเครื่องมือด่วนของหน้าต่างข้อความ
สุดท้ายคุณสามารถถ่ายภาพ:

ตอนแรกเปิดอีเมล
จากนั้นเลือกเนื้อหาที่คุณต้องการส่งออก
จากนั้นคลิกปุ่มมาโครในแถบเครื่องมือด่วน
มาโครจะทำงานทันที
เมื่อมาโครเสร็จสิ้นคุณสามารถไปที่โฟลเดอร์ในเครื่องที่กำหนดไว้ล่วงหน้าซึ่งคุณจะเห็นไฟล์ PDF ไฟล์
เปิดแล้วคุณจะเห็นว่าดูเหมือนภาพหน้าจอต่อไปนี้:

มาตรการที่มีประสิทธิภาพหลังจากความเสียหายของ Outlook

แม้จะมีฟังก์ชั่นที่ยอดเยี่ยมมากมาย แต่ Outlook ก็ยังไม่สามารถต้านทานความเสียหายได้ อันที่จริงมีแนวโน้มที่จะเกิดความเสียหายเนื่องจากปัจจัยต่างๆเช่นไวรัสมัลแวร์ข้อบกพร่องของซอฟต์แวร์และปัญหาฮาร์ดแวร์เป็นต้น ในสถานการณ์นี้จำเป็นอย่างยิ่งที่จะต้องดำเนินการเพื่อช่วยเหลือข้อมูล Outlook ที่เสียหายรวมถึงการเปิดตัว scanpst เพื่อซ่อมแซมไฟล์ ให้ตรวจสอบข้อมูลสำรองล่าสุดและใช้เครื่องมือแก้ไขไฟล์ PST ที่มีประสิทธิภาพและน่าเชื่อถือ เช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.