Někteří uživatelé by chtěli exportovat e -mail aplikace Outlook jako soubor obrázku, například soubor jpg. V tomto článku vám proto představíme, jak jej získat pomocí kódu Outlook VBA.
Určitě jste se naučili různé triky pro export e -mailu jako textového souboru, dokumentu aplikace Word atd. Co takhle exportovat e -mail jako obrázek jako soubor JPG? Aplikace Outlook tuto funkci zjevně nemá. Ale dále se s vámi podělíme o rychlé prostředky.
Rychle exportujte e -mail aplikace Outlook jako soubor obrázku
- Pro začátek spusťte aplikaci Outlook.
- Poté v hlavním okně aplikace Outlook získáte přístup k editoru VBA podle článku - „Jak spustit kód VBA ve vašem Outlooku".
- Dále povolte „Knihovnu objektů MS Word“ a „MS PowerPoint „Knihovna objektů“ s odkazem na článek – „Jak přidat odkaz na knihovnu objektů ve VBA".
- Dále zkopírujte a vložte následující kód VBA do prázdného modulu.
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
- Poté musíte přidat makro na panel nástrojů Rychlý přístup.
- Následně byste mohli zavřít editor VBA.
- Později vyberte e -mail a klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
- Po dokončení makra můžete přejít do předdefinované místní složky a najít exportovaný soubor obrázku z tohoto e -mailu.
Načíst data aplikace Outlook z poškozeného souboru
Pokud je váš soubor Outlooku vážně poškozen, může to být docela frustrující. V takovém případě budete muset extrahovat data Outlooku z napadeného souboru. Někteří uživatelé mají tendenci používat nástroj pro opravu doručené pošty. Většinou to však nepřinese žádný efekt. Proto byste si měli ponechat silný a spolehlivý nástroj. Oprava PST nástroj, jako je DataNumen Outlook Repair. Může skenovat poškozený soubor a získat maximální data bez zbytečných starostí.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně mdf opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com