So exportieren Sie schnell alle Bildanhänge einer Outlook-E-Mail an a PDF Reichen Sie das

Wenn Sie schnell alle Bildanhänge einer Outlook-E-Mail in eine exportieren möchten PDF Datei können Sie die in diesem Artikel vorgestellte Methode verwenden. Es verwendet einen Teil des VBA-Codes, um einen solchen „Export“ in kurzer Zeit zu realisieren.

Manchmal möchten Sie möglicherweise viele Bilder zu einem kombinieren PDF Datei, wie das Exportieren aller Bildanhänge einer E-Mail in eine PDF Datei. Es klingt ein bisschen schwierig. Im Folgenden zeigen wir jedoch eine Methode, mit der dies schnell und problemlos erreicht werden kann.

Exportieren Sie alle Bildanhänge einer E-Mail an a PDF Reichen Sie das

1. Starten Sie zunächst Ihr Outlook-Programm wie gewohnt.
2. Tippen Sie dann im Outlook-Hauptfenster auf die Tasten „Alt + F11“.
3. Anschließend wird das Popup-Fenster "Microsoft Visual Basic für Applikationen" angezeigt.
4. In diesem Fenster müssen Sie auf ein Modul zugreifen, das nicht verwendet wird.
5. Als Nächstes können Sie den folgenden VBA-Code kopieren und in dieses Modul einfügen.

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. Danach können Sie das aktuelle Fenster schließen.
7. Später können Sie zu "Datei"> "Optionen"> "Symbolleiste für den Schnellzugriff" gehen. Jetzt können Sie das neue Makro zur Symbolleiste für den Schnellzugriff hinzufügen.
8. Schließlich können Sie dieses Makro ausprobieren.

• Öffnen Sie zunächst eine E-Mail, deren Bildanhänge Sie in eine exportieren möchten PDF Datei.
• Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf die Makroschaltfläche.
• Wenn das Makro abgeschlossen ist, erhalten Sie eine Nachricht.
• Danach können Sie in den vordefinierten lokalen Ordner gehen, um einen zu finden PDF Datei, die alle Bilder enthält, die an die geöffnete E-Mail angehängt sind.

Kompromittierte Outlook-Daten abrufen

Wenn Outlook beschädigt wird, sollten Sie sich bemühen, die beschädigten Daten wiederherzustellen. In diesem Fall können Sie zunächst das integrierte Reparatur-Tool Scanpst ausprobieren. Angenommen, es liegt nicht an der Aufgabe, die Outlook-Datei zu reparieren, können Sie auch externe Tools wie z DataNumen Outlook Repair. Es ist gut zu restaurieren Outlook beschädigt Dateien mit einer minimierten Beschädigung.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Reparatur und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX