2 veiksmingi būdai konvertuoti „Outlook“ el. laišką į „Word“ dokumentą

Jei norite išsaugoti arba konvertuoti Outlook el. laišką į Word dokumentą, galite naudoti 2 šiame straipsnyje aprašytus metodus.

„Outlook“ nesiūlo jokių savųjų funkcijų, leidžiančių išsaugoti arba konvertuoti „Outlook“ el. laišką kaip „Word“ dokumentą. Todėl, jei norite tai pasiekti, turite įdėti šiek tiek papildomų pastangų. Čia mes išmokysime jus 2 greitų metodų. Vienas iš jų yra protingai naudoti funkciją „Išsaugoti“. Kitas dalykas – taktiškai naudoti Outlook VBA. Skaitykite toliau, kad gautumėte juos išsamiau.

1 būdas: naudokite funkciją „Išsaugoti“.

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada parašykite el. laišką.
3. Tada eikite į meniu „Failas“ ir pasirinkite parinktį „Išsaugoti kaip“.
4. Tada iššokančiajame dialogo lange pasirinkite paskirties aplanką ir lauke „Išsaugoti kaip tipą“ pasirinkite „Tik tekstas“.
5. Spustelėję mygtuką „Išsaugoti“, galite atidaryti „Microsoft Word“ programą.
6. Programoje MS Word eikite į meniu „Failas“ ir pasirinkite „Atidaryti“.
7. Iššokančiajame dialogo lange „Atidaryti“ eilutėje „Failo pavadinimas“ pasirinkite „Visi failai“ ir pažymėkite anksčiau išsaugotą tekstinį failą.
8. Spustelėjus „Atidaryti“, el. laiškas bus atidarytas „Word“.
9. Vėliau galite pasirinkti „Failas“ > „Išsaugoti kaip“.
10. Galiausiai dialogo lange „Išsaugoti kaip“ pasirinkite „Word Document“ „Išsaugoti kaip tipą“ ir paspauskite „Išsaugoti“.

2 būdas: naudokite Outlook VBA

1. Pirmiausia „Outlook“ paspauskite „Alt + F11“ sparčiuosius klavišus.
2. Tada iššokančiajame Outlook VBA redaktoriaus lange atidarykite naują modulį.
3. Tada nukopijuokite ir įklijuokite į jį šiuos VBA kodus.

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. Vėliau pridėkite naują VBA projektą prie greitosios prieigos įrankių juostos.
5. Po to pasirinkite el. laišką ir greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
6. Iš karto bus rodomas Word dokumentas su jame esančiu el. pašto turiniu.
7. Galiausiai, kaip įprasta, galite išsaugoti naują iššokantįjį „Word“ dokumentą.

Efektyviai pašalinkite erzinančias „Outlook“ problemas

Kadangi "Outlook" yra linkusi į klaidas ir sugadinimą, turite skirti daugiau pastangų savo "Outlook" duomenims apsaugoti. Pavyzdžiui, turite reguliariai kurti atsargines „Outlook“ duomenų kopijas. Be to, protinga įgyti pranašumą Outlook atkūrimas įrankis, pvz DataNumen Outlook Repair, kuri vieną dieną tikrai pravers.

Autoriaus įvadas:

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