Как да експортирате бързо имейл на Outlook като графичен файл

Някои потребители биха искали да експортират имейл на Outlook като файл с изображение, като jpg файл. Следователно в тази статия ще ви представим как да го получите чрез кода на Outlook VBA.

Трябва да сте научили различни трикове за експортиране на имейл като текстов файл, документ на Word и така нататък. Тогава, какво ще кажете за експортиране на имейл като картина като JPG файл? Очевидно Outlook няма тази функция. Но по-нататък ще споделим с вас бързи средства.

Бързо експортирайте имейл на Outlook като графичен файл

1. За начало стартирайте приложението си Outlook.
2. След това, в главния прозорец на Outlook, получете достъп до редактора на VBA в съответствие със статията - „Как да стартирате VBA код във вашия Outlook".
3. След това активирайте „Библиотека с обекти на MS Word“ и „MS PowerPoint „Библиотека с обекти“, като се позовавате на статията – „Как да добавите препратка към библиотека с обекти във VBA".
4. След това копирайте и поставете следния VBA код в празен модул.

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. След това трябва да добавите макроса към лентата с инструменти за бърз достъп.
6. Впоследствие можете да затворите редактора на VBA.
7. По-късно изберете имейл и натиснете бутона за макрос в лентата с инструменти за бърз достъп.
8. Когато макросът завърши, можете да отидете в предварително дефинираната локална папка, за да намерите експортирания файл с изображение от този имейл.

Изтеглете данните на Outlook от повреден файл

Може да се почувствате доста разочароващо, ако вашият Outlook файл е сериозно повреден. В този случай ще трябва да извлечете Outlook данни от компрометирания файл. Някои потребители ще използват инструмента за поправка на входяща поща. Но в повечето случаи това няма да доведе до резултати. Затова е по-добре да поддържате солиден и надежден PST корекция инструмент, като DataNumen Outlook Repair. Той може да сканира повредения файл и да получи обратно максимални данни без никакви разбърквания.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com