วิธีการส่งออกไฟล์แนบรูปภาพทั้งหมดของอีเมล Outlook ไปยังไฟล์ PDF เนื้อไม่มีมัน

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

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

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

ส่งออกไฟล์แนบรูปภาพทั้งหมดของอีเมลไปยังไฟล์ PDF เนื้อไม่มีมัน

ขั้นแรก ให้เปิดโปรแกรม Outlook ตามปกติ
จากนั้นในหน้าต่างหลักของ Outlook ให้แตะที่ปุ่ม "Alt + F11"
จากนั้นคุณจะเห็นหน้าต่างป๊อปอัป“ Microsoft Visual Basic for Applications”
ในหน้าต่างนี้คุณต้องเข้าถึงโมดูลที่ไม่ได้ใช้งาน
จากนั้นคุณสามารถคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลนี้

Sub ExportAllImageAttachmentsIntoPdfFile()
    Dim objSourceMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strImage As String
    Dim objInlineShape As Word.InlineShape
    Dim strPDF As String
 
    Set objSourceMail = Application.ActiveInspector.currentItem
 
    If Not (objSourceMail Is Nothing) Then
 
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
 
       strTempFolder = Environ("Temp") & "\" & Format(Now, "yyyymmddhhmmss") & "\"
       MkDir (strTempFolder)
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
       For Each objAttachment In objSourceMail.Attachments
           If IsEmbedded(objAttachment) = False Then
              Select Case LCase(objFileSystem.GetExtensionName(objAttachment.filename))
                     Case "jpg", "jpeg", "png", "bmp", "gif"
                           objAttachment.SaveAsFile strTempFolder & objAttachment.filename
              End Select
           End If
       Next
 
       strImage = Dir(strTempFolder & "*.*", vbNormal)

       Do Until Len(strImage) = 0
          With Selection
               .InlineShapes.AddPicture (strTempFolder & strImage)
               .TypeParagraph
               .Collapse Direction:=wdCollapsEnd
               .ParagraphFormat.Alignment = wdAlignParagraphCenter
               .TypeParagraph
          End With
          strImage = Dir()
       Loop

       For Each objInlineShape In objTempDocument.InlineShapes
           objInlineShape.Select
           Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
           objInlineShape.ScaleHeight = 50
           objInlineShape.ScaleWidth = 50
       Next
 
       'Change the path to save the PDF file
       strPDF = "E:\Image Attachments.pdf"
 
       'Export the temp Word document as a PDF file
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
  
       objTempDocument.Close False
       objWordApp.Quit
 
       MsgBox "Complete!" 
    End If
End Sub

Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbedded = True
    Else
       IsEmbedded = False
    End If
End Function

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

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

ดึงข้อมูล Outlook ที่ถูกบุกรุก

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

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

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