Kuidas kiiresti eksportida Outlooki meili kõik pildimanused a PDF Fail

Kui soovite kiiresti eksportida Outlooki meili kõik pildimanused a PDF faili, saate kasutada selles artiklis kirjeldatud meetodit. See kasutab sellise "ekspordi" kiireks realiseerimiseks tükki VBA koodi.

Mõnikord võite soovida kombineerida palju pilte a PDF fail, näiteks e-kirja kõigi piltmanuste eksportimine a PDF faili. See kõlab natuke raskelt. Alljärgnevalt näitame aga meetodit, millega saab seda kiiresti ilma probleemideta saavutada.

Ekspordi kõik e-kirja pildimanused a PDF Fail

1. Alustuseks käivitage oma Outlooki programm nagu tavaliselt.
2. Seejärel puudutage Outlooki põhiaknas klahvikombinatsiooni Alt + F11.
3. Seejärel näete hüpikakent "Microsoft Visual Basic for Applications".
4. Selles aknas peate pääsema juurde moodulile, mida ei kasutata.
5. Järgmisena saate sellesse moodulisse kopeerida ja kleepida järgmise VBA koodi.

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. Pärast seda saate praeguse akna sulgeda.
7. Hiljem saate minna "Fail" > "Valikud" > "Kiire juurdepääsu tööriistariba". Nüüd saate lisada uue makro kiirpääsu tööriistaribale.
8. Lõpuks saate seda makrot proovida.

• Kõigepealt avage meil, mille pildimanused soovite eksportida a PDF faili.
• Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.
• Kui makro on lõpetatud, saate teate.
• Pärast seda saate suunduda eelmääratletud kohalikku kausta, et leida a PDF fail, mis sisaldab kõiki avatud meilile lisatud pilte.

Ohustatud Outlooki andmete toomine

Kui Outlook saab rikutud, peaksite tegema jõupingutusi kahjustatud andmete taastamiseks. Sel juhul võite esmalt proovida sisseehitatud remonditööriista – Scanpst. Eeldades, et Outlooki faili parandamine pole ülesanne, võite kasutada ka väliseid tööriistu, näiteks DataNumen Outlook Repair. See on hea taastamiseks kahjustatud Outlook minimeeritud korruptsiooniga failid.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom