Paano Mabilis na I-export ang Lahat ng Mga Attachment ng Imahe ng isang Outlook Email sa a PDF talaksan

Kung nais mong mabilis na i-export ang lahat ng mga kalakip na imahe ng isang email sa Outlook sa a PDF file, maaari mong gamitin ang pamamaraang ipinakilala sa artikulong ito. Gumagamit ito ng isang piraso ng VBA code upang mapagtanto ang naturang "pag-export" sa mabilis na oras.

Sa mga oras, baka gusto mong pagsamahin ang maraming mga imahe sa a PDF file, tulad ng pag-export ng lahat ng mga kalakip na imahe ng isang email sa a PDF file Medyo mahirap ito. Ngunit sa mga sumusunod, magpapakita kami ng isang pamamaraan, na maaaring mabilis na makamit ito nang walang anumang abala.

I-export ang Lahat ng Mga Attachment ng Imahe ng isang email sa a PDF talaksan

1. Bilang panimula, ilunsad ang iyong programa sa Outlook gaya ng dati.
2. Pagkatapos, sa pangunahing window ng Outlook, mag-tap sa mga pindutang key na "Alt + F11".
3. Kasunod, makikita mo ang popup na window na "Microsoft Visual Basic para sa Mga Aplikasyon".
4. Sa window na ito, kailangan mong i-access ang isang module na hindi ginagamit.
5. Susunod, maaari mong kopyahin at i-paste ang sumusunod na VBA code sa modyul na ito.

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

6. Pagkatapos nito, maaari mong isara ang kasalukuyang window.
7. Sa paglaon, maaari kang pumunta sa "File"> "Mga Pagpipilian"> "Quick Access Toolbar". Maaari mo na ngayong idagdag ang bagong macro sa Quick Access Toolbar.
8. Sa paglaon, maaari mong subukan ang macro na ito.

• Una, buksan ang isang email na may mga kalakip na imahe na nais mong i-export sa PDF file.
• Pagkatapos, i-click ang pindutan ng macro sa Quick Access Toolbar.
• Kapag nakumpleto ang macro, makakakuha ka ng isang mensahe.
• Pagkatapos nito, maaari kang magtungo sa paunang natukoy na lokal na folder upang makahanap ng PDF file, na naglalaman ng lahat ng mga imaheng nakakabit sa bukas na email.

Kunin ang Kompromisong Data ng Outlook

Kung nasira ang Outlook, dapat kang magsikap upang mabawi ang nasirang data. Sa kasong ito, maaari mo munang subukan ang built-in na tool sa pag-aayos - Scanpst. Ipagpalagay na hindi nakasalalay sa gawain ng pag-aayos ng file ng Outlook, maaari ka ring kumuha ng tulong ng mga panlabas na tool, tulad ng DataNumen Outlook Repair. Magaling itong ibalik nasira ang Outlook mga file na may minimized na katiwalian.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa