Kaip greitai eksportuoti visus „Outlook“ el. pašto vaizdo priedus į a PDF filė

Jei norite greitai eksportuoti visus Outlook el. laiško vaizdo priedus į a PDF failą, galite naudoti šiame straipsnyje aprašytą metodą. Jame naudojamas VBA kodo fragmentas, kad toks „eksportas“ būtų realizuotas greitai.

Kartais gali tekti sujungti daug vaizdų į a PDF failą, pvz., eksportuoti visus el. laiško vaizdo priedus į a PDF failą. Skamba šiek tiek sunkiai. Tačiau toliau parodysime metodą, kuriuo tai galima greitai pasiekti be jokio vargo.

Eksportuokite visus el. laiško vaizdo priedus į a PDF filė

1. Pirmiausia paleiskite „Outlook“ programą kaip įprasta.
2. Tada pagrindiniame „Outlook“ lange bakstelėkite „Alt + F11“ klavišų mygtukus.
3. Po to pamatysite iššokantį langą „Microsoft Visual Basic for Applications“.
4. Šiame lange turite pasiekti nenaudojamą modulį.
5. Tada galite nukopijuoti ir įklijuoti šį VBA kodą į šį modulį.

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. Po to galite uždaryti dabartinį langą.
7. Vėliau galite eiti į „Failas“ > „Parinktys“ > „Greitos prieigos įrankių juosta“. Dabar galite pridėti naują makrokomandą prie greitosios prieigos įrankių juostos.
8. Galiausiai galite išbandyti šią makrokomandą.

• Pirmiausia atidarykite el. laišką, kurio vaizdo priedus norite eksportuoti į a PDF failas.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Kai makrokomanda bus baigta, gausite pranešimą.
• Po to galite pereiti į iš anksto nustatytą vietinį aplanką ir rasti a PDF failą, kuriame yra visi vaizdai, pridėti prie atviro el. laiško.

Gaukite pažeistus „Outlook“ duomenis

Jei „Outlook“ sugenda, turėtumėte pasistengti atkurti sugadintus duomenis. Tokiu atveju pirmiausia galite išbandyti įmontuotą taisymo įrankį – Scanpst. Darant prielaidą, kad „Outlook“ failo taisymas nėra skirtas, taip pat galite pasinaudoti išoriniais įrankiais, pvz. DataNumen Outlook Repair. Puikiai tinka atstatyti sugadinta Outlook failai su minimalia korupcija.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf remontas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com