So exportieren Sie eine Outlook-E-Mail schnell als Bilddatei

Einige Benutzer möchten eine Outlook-E-Mail als Bilddatei exportieren, z. B. als JPG-Datei. Daher werden wir Ihnen in diesem Artikel vorstellen, wie Sie es über Outlook VBA-Code erhalten.

Sie müssen verschiedene Tricks zum Exportieren einer E-Mail als Textdatei, Word-Dokument usw. gelernt haben. Wie wäre es dann mit dem Exportieren einer E-Mail als Bild wie eine JPG-Datei? Anscheinend hat Outlook diese Funktion nicht. Aber danach werden wir ein schnelles Mittel mit Ihnen teilen.

Exportieren Sie eine Outlook-E-Mail schnell als Bilddatei

1. Starten Sie zunächst Ihre Outlook-Anwendung.
2. Erhalten Sie dann im Outlook-Hauptfenster Zugriff auf den VBA-Editor gemäß dem Artikel - “So führen Sie VBA-Code in Outlook aus".
3. Aktivieren Sie anschließend „MS Word-Objektbibliothek“ und „MS“. PowerPoint Objektbibliothek“ unter Bezugnahme auf den Artikel – „Wie man in VBA einen Objektbibliotheksverweis hinzufügt".
4. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in ein leeres Modul ein.

Sub ExportEmailAsImage()
    Dim objMail As Outlook.MailItem
    Dim strFileName As String
    Dim strWordDocument As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objDocumentRange As Word.Range
    Dim objPowerPointApp As PowerPoint.Application
    Dim objPresentation As PowerPoint.Presentation
    Dim objShape As PowerPoint.Shape
 
    On Error Resume Next
    'Export the email as Word document
    Set objMail = Outlook.Application.ActiveExplorer.Selection(1)
    strFileName = Replace(objMail.Subject, "/", " ")
    strFileName = Replace(strFileName, "\", " ")
    strFileName = Replace(strFileName, ":", "")
    strFileName = Replace(strFileName, "?", " ")
    strFileName = Replace(strFileName, Chr(34), " ")
    strWordDocument = Environ("Temp") & "\" & strFileName & ".doc"
 
    objMail.SaveAs strWordDocument, olDoc

    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Open(strWordDocument)
    objWordApp.Visible = True
 
    objWordApp.Selection.Find.ClearFormatting
    objWordApp.Selection.Find.Replacement.ClearFormatting
 
    With objWordApp.Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Wrap = wdFindContinue
    End With
 
    'Insert the document into a PowerPoint Presentation slide as an object
    objWordApp.Selection.Find.Execute Replace:=wdReplaceAll
    Set objDocumentRange = objWordDocument.Range()
    objDocumentRange.Font.Name = "Calibri"
    objDocumentRange.Font.Size = 10
    objWordDocument.Close True
    objWordApp.Quit
 
    Set objPowerPointApp = CreateObject("PowerPoint.Application")
    Set objPresentation = objPowerPointApp.Presentations.Add
    objPowerPointApp.Visible = msoTrue
 
    With objPresentation
        .PageSetup.SlideHeight = 792
        .PageSetup.SlideWidth = 612
        .Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
    End With
 
    'Export the slide
    With objPresentation.Slides(1)
         Set objShape = .Shapes.AddOLEObject(0, 0, 612, 792, , strWordDocument)
        .Export "E:\Email_" & strFileName & ".jpg", "JPG"
    End With
 
    objPresentation.Saved = msoTrue
    objPresentation.Close
    objPowerPointApp.Quit
End Sub

5. Danach müssen Sie das Makro zur Symbolleiste für den Schnellzugriff hinzufügen.
6. Anschließend können Sie den VBA-Editor schließen.
7. Wählen Sie später eine E-Mail aus und klicken Sie auf die Makro-Schaltfläche in der Symbolleiste für den Schnellzugriff.
8. Wenn das Makro abgeschlossen ist, können Sie in den vordefinierten lokalen Ordner gehen, um die exportierte Bilddatei aus dieser E-Mail zu finden.

Abrufen von Outlook-Daten aus beschädigten Dateien

Es kann sehr ärgerlich sein, wenn Ihre Outlook-Datei stark beschädigt ist. In diesem Fall müssen Sie die Outlook-Daten aus der beschädigten Datei extrahieren. Manche Benutzer verwenden dazu das Posteingangsreparaturtool. Meistens ist dies jedoch wirkungslos. Daher sollten Sie ein leistungsstarkes und zuverlässiges Tool bereithalten. PST beheben Werkzeug, wie z DataNumen Outlook Repair. Es kann die beschädigte Datei scannen und ohne Probleme maximale Daten zurückerhalten.

Einführung des Autors:

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