Kā ātri eksportēt Outlook e-pastu kā attēlu failu

Daži lietotāji vēlas eksportēt Outlook e-pastu kā attēla failu, piemēram, JPG failu. Tāpēc šajā rakstā mēs iepazīstināsim jūs ar to, kā to iegūt, izmantojot Outlook VBA kodu.

Jums noteikti ir jāapgūst dažādi triki, kā eksportēt e-pastu kā teksta failu, Word dokumentu un tā tālāk. Tad kā par e-pasta eksportēšanu kā attēlu, piemēram, JPG failu? Acīmredzot Outlook nav šīs funkcijas. Bet tālāk mēs jums dalīsimies ar ātriem līdzekļiem.

Ātri eksportējiet Outlook e-pastu kā attēlu failu

1. Lai sāktu, palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam galvenajā Outlook logā piekļūstiet VBA redaktoram saskaņā ar rakstu - “Kā palaist VBA kodu programmā Outlook".
3. Pēc tam iespējojiet “MS Word objektu bibliotēku” un “MS PowerPoint Objektu bibliotēka”, atsaucoties uz rakstu — “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
4. Pēc tam nokopējiet un ielīmējiet šo VBA kodu tukšā 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. Pēc tam jums jāpievieno makro ātrās piekļuves rīkjoslai.
6. Pēc tam jūs varētu aizvērt VBA redaktoru.
7. Vēlāk atlasiet e-pastu un ātrās piekļuves rīkjoslā nospiediet makro pogu.
8. Kad makro ir pabeigts, varat doties uz iepriekš noteiktu vietējo mapi, lai no šī e-pasta ziņojuma atrastu eksportēto attēla failu.

Izgūt Outlook datus no bojāta faila

Jūs varētu būt diezgan neapmierināti, ja jūsu Outlook fails ir nopietni bojāts. Šādā gadījumā jūs turpināsiet izgūt Outlook datus no apdraudētā faila. Daži lietotāji mēdz izmantot iesūtnes labošanas rīku. Tomēr lielākoties tas nedos rezultātus. Tāpēc labāk ir saglabāt spēcīgu un uzticamu PST labojums rīks, piemēram, DataNumen Outlook Repair. Tas var skenēt korumpēto failu un atgūt maksimālos datus bez satraukumiem.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar