Hogyan lehet gyorsan exportálni egy Outlook e-mail összes képmellékletét a PDF filé

Ha gyorsan szeretné exportálni egy Outlook e-mail összes képmellékletét a PDF fájlt, használhatja az ebben a cikkben bemutatott módszert. Egy darab VBA kódot használ az ilyen „export” gyors végrehajtásához.

Időnként érdemes sok képet kombinálni a PDF fájl, például egy e-mail összes képmellékletének exportálása a PDF fájlt. Kicsit nehéznek hangzik. De a következőkben egy olyan módszert mutatunk be, amellyel ezt gyorsan, gond nélkül el lehet érni.

Egy e-mail összes képmellékletének exportálása a PDF filé

1. Kezdésként indítsa el az Outlook programot a szokásos módon.
2. Ezután az Outlook főablakában érintse meg az „Alt + F11” billentyűket.
3. Ezt követően megjelenik a „Microsoft Visual Basic for Applications” felugró ablak.
4. Ebben az ablakban egy nem használt modulhoz kell hozzáférnie.
5. Ezután másolja és illessze be a következő VBA-kódot ebbe a modulba.

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. Ezt követően bezárhatja az aktuális ablakot.
7. Később lépjen a „Fájl” > „Opciók” > „Gyors hozzáférési eszköztár” menüpontra. Most már hozzáadhatja az új makrót a Gyorselérési eszköztárhoz.
8. Végül kipróbálhatja ezt a makrót.

• Először is nyisson meg egy e-mailt, amelynek képmellékleteit exportálni szeretné a PDF fájlt.
• Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
• Amikor a makró befejeződik, üzenetet fog kapni.
• Ezután lépjen az előre meghatározott helyi mappába, és keresse meg a PDF fájl, amely a megnyitott e-mailhez csatolt összes képet tartalmazza.

A veszélyeztetett Outlook adatok lekérése

Ha az Outlook megsérül, tegyen erőfeszítéseket a sérült adatok helyreállítására. Ebben az esetben először kipróbálhatja a beépített javítóeszközt – a Scanpst. Feltételezve, hogy nem az Outlook fájl javításának feladata, külső eszközöket is igénybe vehet, mint pl. DataNumen Outlook Repair. Jó a helyreállítás sérült Outlook minimális korrupcióval rendelkező fájlok.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com