2 tehokasta tapaa muuntaa Outlook-sähköposti Word-asiakirjaksi

Jos haluat tallentaa tai muuntaa Outlook-sähköpostin Word-asiakirjaksi, voit käyttää kahta tässä artikkelissa esiteltyä menetelmää.

Outlook ei tarjoa alkuperäisiä ominaisuuksia Outlook-sähköpostin tallentamiseen tai muuntamiseen Word-asiakirjaksi. Siksi, jos haluat saavuttaa sen, sinun on tehtävä ylimääräisiä ponnisteluja. Tässä opetamme sinulle 2 nopeaa menetelmää. Yksi on "Tallenna" -ominaisuuden älykäs käyttö. Toinen tapa on käyttää Outlook VBA:ta tahdikkaasti. Lue lisää saadaksesi ne yksityiskohtaisesti.

Tapa 1: Käytä "Tallenna"-ominaisuutta

1. Aloita käynnistämällä Outlook-ohjelmasi.
2. Laita sitten sähköpostia.
3. Siirry seuraavaksi "Tiedosto"-valikkoon ja valitse "Tallenna nimellä".
4. Valitse sitten ponnahdusikkunassa kohdekansio ja valitse "Tallenna nimellä" -kentässä "Vain teksti".
5. Kun olet napsauttanut "Tallenna" -painiketta, voit avata Microsoft Word -sovelluksesi.
6. Siirry MS Wordissa "Tiedosto"-valikkoon ja valitse "Avaa".
7. Valitse ponnahdusikkunan "Avaa"-valintaikkunassa "Tiedostonimi" -riviltä "Kaikki tiedostot" ja aseta aiemmin tallennettu tekstitiedosto.
8. Kun napsautat "Avaa", tekstitiedostotyyppinen sähköposti avautuu Wordina.
9. Myöhemmin voit valita "Tiedosto" > "Tallenna nimellä".
10. Valitse lopuksi "Tallenna nimellä" -valintaikkunassa "Tallenna nimellä" "Word Document" ja paina "Tallenna".

Tapa 2: Käytä Outlook VBA: ta

1. Ensinnäkin, paina "Alt + F11" pikanäppäimiä Outlookissa.
2. Avaa sitten uusi moduuli ponnahdusikkunassa Outlook VBA -editori.
3. Seuraavaksi kopioi ja liitä seuraavat VBA-koodit siihen.

Sub ConvertEmailtoWordDocument()
    Dim objMail As Outlook.MailItem
    Dim strMessage As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim strFilePath, strFileName As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
 
    strMessage = "From: " & objMail.SenderName & vbCrLf & "Sent: " & objMail.SentOn & vbCrLf & "Subject: " & objMail.Subject & vbCrLf & vbCrLf & objMail.Body
 
    'create a word document
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Add
    objWordDocument.Activate
    Set objWordRange = objWordDocument.Range(0, 0)
    'insert the email information to the document
    objWordRange.Text = strMessage
 
    'change the email contents' format
    With objWordRange.Font
         .Name = "Cambria"
         .Color = wdColorBlack
         .Size = 12
    End With
 
    'show the word document
    objWordApp.Visible = True
    objWordDocument.ActiveWindow.Visible = True
End Sub

4. Lisää sen jälkeen uusi VBA-projekti Quick Access Toolbariin.
5. Valitse sen jälkeen sähköposti ja napsauta pikatyökalupalkin makropainiketta.
6. Heti näkyviin tulee Word-asiakirja, jossa on sähköpostin sisältö.
7. Lopuksi voit tallentaa uuden ponnahdusikkunan Word-asiakirjan tavalliseen tapaan.

Poista ärsyttävät Outlook-ongelmat tehokkaasti

Koska Outlook on altis virheille ja korruptiolle, sinun on käytettävä enemmän ponnisteluja Outlook-tietojen suojaamiseen. Sinun on esimerkiksi tehtävä säännöllisesti varmuuskopioita Outlook-tiedoistasi. Lisäksi on järkevää saada käsiinsä etusija Outlook-palautus työkalu, kuten DataNumen Outlook Repair, josta on varmasti jonain päivänä hyötyä.

Tekijän esittely:

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