Kako brzo izvesti Outlook e-poštu kao slikovnu datoteku

Neki korisnici željeli bi izvesti Outlook e-poštu kao slikovnu datoteku, kao što je jpg datoteka. Stoga ćemo vam u ovom članku predstaviti kako ga dobiti putem Outlook VBA koda.

Sigurno ste naučili razne trikove za izvoz e-pošte kao tekstualne datoteke, Word dokumenta i tako dalje. Što kažete na izvoz e-pošte kao slike poput JPG datoteke? Očigledno, Outlook nema ovu funkciju. No, nakon toga ćemo s vama podijeliti brzi način.

Brzo izvezite Outlook e-poštu kao slikovnu datoteku

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim u glavnom prozoru programa Outlook pristupite VBA uređivaču prema članku – “Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim omogućite "MS Word Object Library" i "MS PowerPoint "Knjižnica objekata" pozivajući se na članak – "Kako dodati referencu biblioteke objekata u VBA".
4. Zatim kopirajte i zalijepite sljedeći VBA kod u prazan 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. Nakon toga morate dodati makro na alatnu traku za brzi pristup.
6. Nakon toga možete zatvoriti VBA uređivač.
7. Kasnije odaberite e-poštu i pritisnite gumb makronaredbe na alatnoj traci za brzi pristup.
8. Kada se makronaredba završi, možete otići u unaprijed definiranu lokalnu mapu kako biste pronašli izvezenu slikovnu datoteku iz ove e-poruke.

Dohvatite Outlook podatke iz oštećene datoteke

Možda ćete biti prilično frustrirajući ako je vaša Outlook datoteka ozbiljno oštećena. U tom scenariju, nastavit ćete izdvajati Outlook podatke iz kompromitirane datoteke. Neki će korisnici obično koristiti alat za popravak pristigle pošte. No, većinu vremena to neće imati učinka. Stoga je bolje da imate snažan i pouzdan PST popravak alat, kao npr DataNumen Outlook Repair. Može skenirati oštećenu datoteku i vratiti maksimalan broj podataka bez ikakvih problema.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com