Kako hitro izvoziti vse slikovne priloge Outlookove e-pošte v a PDF file

Če želite hitro izvoziti vse slikovne priloge Outlookove e-pošte v a PDF datoteko, lahko uporabite metodo, predstavljeno v tem članku. Uporablja del kode VBA za hitro izvedbo takega "izvoza".

Včasih boste morda želeli združiti več slik v PDF datoteko, na primer izvoz vseh slikovnih prilog e-pošte v a PDF mapa. Sliši se malo težko. Toda v nadaljevanju bomo pokazali metodo, s katero lahko to hitro dosežete brez kakršnih koli težav.

Izvozi vse slikovne priloge e-pošte v a PDF file

1. Za začetek zaženite program Outlook kot običajno.
2. Nato se v glavnem Outlookovem oknu dotaknite gumba tipke “Alt + F11”.
3. Nato boste videli pojavno okno »Microsoft Visual Basic za aplikacije«.
4. V tem oknu morate dostopati do modula, ki ni v uporabi.
5. Nato lahko kopirate in prilepite naslednjo kodo VBA v ta 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 tem lahko zaprete trenutno okno.
7. Pozneje lahko odprete »Datoteka« > »Možnosti« > »Orodna vrstica za hitri dostop«. Zdaj lahko dodate nov makro v orodno vrstico za hitri dostop.
8. Sčasoma lahko preizkusite ta makro.

• Najprej odprite e-poštno sporočilo, katerega slikovne priloge želite izvoziti v a PDF Datoteka.
• Nato v orodni vrstici za hitri dostop kliknite gumb makra.
• Ko se makro zaključi, boste prejeli sporočilo.
• Po tem se lahko odpravite v vnaprej določeno lokalno mapo in poiščete a PDF datoteko, ki vsebuje vse slike, priložene odprtemu e-poštnemu sporočilu.

Pridobite ogrožene Outlookove podatke

Če se Outlook poškoduje, si morate prizadevati za obnovitev poškodovanih podatkov. V tem primeru lahko najprej preizkusite vgrajeno orodje za popravilo – Scanpst. Ob predpostavki, da ni kos nalogi popravljanja Outlookove datoteke, si lahko pomagate tudi z zunanjimi orodji, kot je npr. DataNumen Outlook Repair. Dober je pri obnavljanju poškodovan Outlook datoteke z minimalno korupcijo.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com