Neki korisnici bi željeli da izvezu Outlook e-poštu kao datoteku slike, 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 u tekstualnu datoteku, Word dokument i tako dalje. Onda, kako bi bilo da izvezete e-poštu kao sliku poput JPG datoteke? Očigledno, Outlook nema ovu funkciju. Ali, nakon toga, podijelit ćemo s vama brza sredstva.
Brzo izvezite Outlook e-poštu kao datoteku slike
- Za početak, pokrenite Outlook aplikaciju.
- Zatim, u glavnom Outlook prozoru, pristupite VBA editoru u skladu sa člankom – “Kako pokrenuti VBA kod u vašem Outlooku".
- Zatim omogućite "MS Word Object Library" i "MS PowerPoint "Biblioteka objekata" pozivajući se na članak – "Kako dodati referencu biblioteke objekata u VBA".
- 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
- Nakon toga, potrebno je da dodate makro na alatnu traku za brzi pristup.
- Nakon toga, mogli biste zatvoriti VBA editor.
- Kasnije odaberite e-poštu i pritisnite dugme za makro na traci sa alatkama za brzi pristup.
- Kada se makronaredba završi, možete otići u unaprijed definiranu lokalnu mapu da pronađete izvezenu datoteku slike iz ove e-pošte.
Preuzmite 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 s izdvajanjem Outlook podataka iz kompromitovane datoteke. Neki korisnici će imati tendenciju koristiti alat za popravak inboxa. Međutim, većinu vremena to neće imati efekta. Stoga je bolje da imate snažan i pouzdan PST fix alat, kao npr DataNumen Outlook Repair. Može skenirati oštećenu datoteku i vratiti maksimum podataka bez ikakvih problema.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com