Kako brzo izvesti sve slikovne priloge Outlook e-pošte u a PDF fajl

Ako želite brzo izvesti sve privitke slika Outlook e-pošte na a PDF datoteku, možete koristiti metodu predstavljenu u ovom članku. Koristi dio VBA koda za realizaciju takvog "izvoza" u kratkom vremenu.

Ponekad ćete možda htjeti kombinirati mnogo slika u a PDF datoteku, kao što je izvoz svih slikovnih priloga e-pošte u a PDF fajl. Zvuči malo teško. Ali u nastavku ćemo pokazati metodu koja to može brzo postići bez ikakvih problema.

Izvezite sve slikovne priloge e-pošte u a PDF fajl

1. Za početak, pokrenite Outlook program kao i obično.
2. Zatim, u glavnom prozoru programa Outlook, dodirnite tipke “Alt + F11”.
3. Nakon toga, videćete iskačući prozor „Microsoft Visual Basic za aplikacije“.
4. U ovom prozoru morate pristupiti modulu koji se ne koristi.
5. Zatim možete kopirati i zalijepiti sljedeći VBA kod u ovaj 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. Nakon toga, možete zatvoriti trenutni prozor.
7. Kasnije možete otići na “File” > “Options” > “Quick Access Toolbar”. Sada možete dodati novi makro na alatnu traku za brzi pristup.
8. Na kraju, možete isprobati ovaj makro.

• Prvo otvorite e-poštu čije priloge slika želite da izvezete u a PDF fajl.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Kada se makro završi, dobićete poruku.
• Nakon toga, možete otići do unaprijed definirane lokalne mape da pronađete a PDF fajl, koji sadrži sve slike priložene otvorenoj e-poruci.

Dohvatite kompromitovane Outlook podatke

Ako se Outlook ošteti, trebali biste se potruditi da oporavite oštećene podatke. U tom slučaju prvo možete isprobati ugrađeni alat za popravku – Scanpst. Pod pretpostavkom da nije dorastao zadatku popravljanja Outlook datoteke, možete koristiti i eksterne alate, kao što je DataNumen Outlook Repair. Dobar je u restauraciji oštećen Outlook datoteke sa minimalnom korupcijom.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf repair i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com