Nogle brugere vil gerne eksportere en Outlook -e -mail som en billedfil, f.eks. En jpg -fil. Derfor vil vi i denne artikel introducere dig til, hvordan du får det via Outlook VBA -kode.
Du må have lært en række tricks til at eksportere en e -mail som tekstfil, Word -dokument og så videre. Så hvad med at eksportere en e -mail som billede som JPG -fil? Tilsyneladende har Outlook ikke denne funktion. Men derefter vil vi dele et hurtigt middel med dig.
Eksporter hurtigt en Outlook -e -mail som en billedfil
- Til at starte med skal du starte din Outlook-applikation.
- Derefter får du i hovedvinduet i Outlook adgang til VBA -editor i henhold til artiklen - "Sådan køres VBA-kode i din Outlook".
- Aktivér derefter "MS Word Object Library" og "MS PowerPoint Objektbibliotek” ved at henvise til artiklen – “Sådan tilføjer du en objektbiblioteksreference i VBA".
- Derefter skal du kopiere og indsætte følgende VBA-kode i et tomt 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
- Derefter skal du tilføje makroen til værktøjslinjen Hurtig adgang.
- Efterfølgende kunne du lukke VBA -editoren.
- Senere skal du vælge en e -mail og trykke på makroknappen i værktøjslinjen Hurtig adgang.
- Når makroen er færdig, kan du gå til den foruddefinerede lokale mappe for at finde den eksporterede billedfil fra denne e -mail.
Hent Outlook-data fra beskadiget fil
Du kan blive ret frustrerende, hvis din Outlook-fil er udsat for alvorlig skade. I så fald vil du fortsætte med at udtrække Outlook-data fra den kompromitterede fil. Nogle brugere vil have en tendens til at bruge reparationsværktøjet til indbakken. Men det vil for det meste ikke have nogen effekt. Derfor bør du sørge for at have en formidabel og pålidelig PST-rettelse værktøj, såsom DataNumen Outlook Repair. Det kan scanne den korrupte fil og få maksimal data tilbage uden ballade.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com