Kaip greitai eksportuoti „Outlook“ el. laišką kaip vaizdo failą

Kai kurie vartotojai norėtų eksportuoti Outlook el. laišką kaip vaizdo failą, pvz., jpg failą. Todėl šiame straipsnyje supažindinsime, kaip jį gauti naudojant Outlook VBA kodą.

Turite išmokti įvairių gudrybių, kaip eksportuoti el. laišką kaip tekstinį failą, Word dokumentą ir pan. Tada kaip eksportuoti el. laišką kaip paveikslėlį, pavyzdžiui, JPG failą? Matyt, „Outlook“ šios funkcijos neturi. Tačiau vėliau su jumis pasidalinsime greita priemone.

Greitai eksportuokite „Outlook“ el. laišką kaip vaizdo failą

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange gaukite prieigą prie VBA redaktoriaus pagal straipsnį „Kaip paleisti VBA kodą „Outlook“.".
3. Tada įjunkite „MS Word Object Library“ ir „MS PowerPoint Objektų biblioteka“, nurodant straipsnį – „Kaip pridėti objektų bibliotekos nuorodą VBA".
4. Tada nukopijuokite ir įklijuokite šį VBA kodą į tuščią 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. Po to turite pridėti makrokomandą prie greitosios prieigos įrankių juostos.
6. Vėliau galite uždaryti VBA redaktorių.
7. Vėliau pasirinkite el. laišką ir greitosios prieigos įrankių juostoje paspauskite makrokomandos mygtuką.
8. Kai makrokomanda bus baigta, galite eiti į iš anksto nustatytą vietinį aplanką ir rasti eksportuotą vaizdo failą iš šio el. laiško.

Gaukite „Outlook“ duomenis iš sugadinto failo

Galite būti gana nusivylę, jei jūsų „Outlook“ failas yra smarkiai pažeistas. Tokiu atveju turėsite išgauti „Outlook“ duomenis iš pažeisto failo. Kai kurie vartotojai linkę naudoti gautųjų taisymo įrankį. Tačiau dažniausiai tai neduos jokio poveikio. Todėl geriau turėkite tvirtą ir patikimą įrankį. PST taisymas įrankis, pvz DataNumen Outlook Repair. Jis gali nuskaityti sugadintą failą ir be jokių rūpesčių susigrąžinti maksimalų duomenų kiekį.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com