Kuinka viedä Outlook-sähköposti nopeasti kuvatiedostona

Jotkut käyttäjät haluavat viedä Outlook-sähköpostin kuvatiedostona, kuten jpg-tiedostona. Siksi tässä artikkelissa esittelemme sinulle, kuinka saat sen Outlook VBA -koodin kautta.

Sinun on täytynyt oppia erilaisia ​​temppuja sähköpostin viemiseen tekstitiedostona, Word-asiakirjana ja niin edelleen. Entä sitten sähköpostin vieminen kuvana, kuten JPG-tiedostona? Ilmeisesti Outlookissa ei ole tätä toimintoa. Mutta sen jälkeen jaamme nopean keinon kanssasi.

Vie Outlook-sähköposti nopeasti kuvatiedostona

1. Aloita käynnistämällä Outlook-sovelluksesi.
2. Pääset sitten Outlookin pääikkunassa VBA-editoriin artikkelin mukaisesti - "Kuinka suorittaa VBA-koodi Outlookissa".
3. Ota seuraavaksi käyttöön ”MS Word Object Library” ja ”MS PowerPoint Objektikirjasto” viittaamalla artikkeliin – ”Objektikirjastoviittauksen lisääminen VBA:ssa".
4. Kopioi ja liitä seuraava VBA-koodi tyhjään moduuliin.

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. Tämän jälkeen sinun on lisättävä makro Quick Access Toolbariin.
6. Myöhemmin voit sulkea VBA-editorin.
7. Valitse myöhemmin sähköposti ja paina pikatyökalupalkin makropainiketta.
8. Kun makro on valmis, voit siirtyä ennalta määritettyyn paikalliseen kansioon löytääksesi viedyn kuvatiedoston tästä sähköpostista.

Hae Outlook-tiedot vioittuneesta tiedostosta

Saatat olla melko turhauttava, jos Outlook-tiedostosi on vaurioitunut vakavasti. Tässä tilanteessa joudut purkamaan Outlook-tietoja vaarantuneesta tiedostosta. Jotkut käyttäjät käyttävät usein Saapuneet-kansion korjaustyökalua. Useimmiten sillä ei kuitenkaan ole vaikutusta. Siksi on parempi pitää yllä vahvaa ja luotettavaa työkalua. PST-korjaus työkalu, kuten DataNumen Outlook Repair. Se voi skannata korruptoituneen tiedoston ja saada takaisin suurimman mahdollisen tiedon ilman hälytyksiä.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com