Hur man snabbt exporterar ett Outlook-e-postmeddelande som en bildfil

Vissa användare vill exportera ett Outlook-e-postmeddelande som en bildfil, till exempel en jpg-fil. Därför presenterar vi dig i den här artikeln hur du får det via Outlook VBA-kod.

Du måste ha lärt dig en mängd olika tricks för att exportera ett e-postmeddelande som textfil, Word-dokument och så vidare. Vad sägs då om att exportera ett e-postmeddelande som bild som JPG-fil? Tydligen har Outlook inte den här funktionen. Men därefter kommer vi att dela ett snabbt sätt med dig.

Exportera snabbt en Outlook-e-post som en bildfil

1. Till att börja med, starta ditt Outlook-program.
2. I huvudfönstret i Outlook får du sedan tillgång till VBA-redigeraren i enlighet med artikeln - “Hur du kör VBA-kod i din Outlook".
3. Aktivera sedan "MS Word-objektbibliotek" och "MS PowerPoint Objektbiblioteket” genom att hänvisa till artikeln – “Hur man lägger till en objektbiblioteksreferens i VBA".
4. Kopiera sedan och klistra in följande VBA-kod i en tom modul.

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. Därefter måste du lägga till makrot i snabbåtkomstverktygsfältet.
6. Därefter kan du stänga VBA-redigeraren.
7. Senare väljer du ett e-postmeddelande och trycker på makroknappen i snabbåtkomstverktygsfältet.
8. När makrot är klart kan du gå till den fördefinierade lokala mappen för att hitta den exporterade bildfilen från det här e-postmeddelandet.

Hämta Outlook-data från skadad fil

Det kan bli ganska frustrerande om din Outlook-fil utsätts för allvarliga skador. I så fall kommer du att fortsätta extrahera Outlook-data från den komprometterade filen. Vissa användare tenderar att använda reparationsverktyget för inkorgen. Men för det mesta kommer det inte att ge någon effekt. Därför bör du hålla en stark och pålitlig säkerhetslösning. PST-fix verktyg, såsom DataNumen Outlook Repair. Det kan skanna den skadade filen och få tillbaka maximal data utan krångel.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive MDF-fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com