2 efektívne spôsoby prevodu e-mailu z programu Outlook na dokument vo formáte Word

Ak chcete uložiť alebo previesť e-mail programu Outlook na dokument vo formáte Word, môžete použiť dve metódy uvedené v tomto článku.

Outlook neponúka žiadne natívne funkcie na ukladanie alebo prevod e-mailov z Outlooku ako textového dokumentu. Preto, ak to chcete dosiahnuť, musíte vyvinúť nejaké úsilie navyše. Tu vás naučíme 2 rýchle metódy. Jedným z nich je inteligentné použitie funkcie „Uložiť“. Druhou je taktné použitie Outlooku VBA. Čítajte ďalej, aby ste ich dostali podrobne.

Metóda 1: Použite funkciu „Uložiť“

1. Najprv spustite program Outlook.
2. Potom pošlite e-mail.
3. Ďalej sa obráťte na ponuku „Súbor“ a vyberte možnosť „Uložiť ako“.
4. Následne v rozbaľovacom dialógovom okne vyberte cieľový priečinok a v poli „Uložiť ako typ“ vyberte možnosť „Iba text“.
5. Po kliknutí na tlačidlo „Uložiť“ môžete otvoriť aplikáciu Microsoft Word.
6. V programe MS Word obráťte sa na ponuku „Súbor“ a vyberte „Otvoriť“.
7. V rozbaľovacom dialógovom okne „Otvoriť“ vyberte v riadku „Názov súboru“ možnosť „Všetky súbory“ a roztečte predtým uložený textový súbor.
8. Po kliknutí na „Otvoriť“ sa e-mail typu textového súboru otvorí v programe Word.
9. Neskôr môžete zvoliť „Súbor“> „Uložiť ako“.
10. Nakoniec v dialógovom okne „Uložiť ako“ vyberte v ponuke „Uložiť ako typ“ možnosť „Dokument Word“ a stlačte tlačidlo „Uložiť“.

Metóda 2: Použite Outlook VBA

1. Na prvom mieste stlačte klávesové skratky „Alt + F11“ v Outlooku.
2. Potom v vyskakovacom okne editora Outlook VBA otvorte nový modul.
3. Ďalej skopírujte a vložte do nich nasledujúce kódy VBA.

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. Následne pridajte nový projekt VBA na panel nástrojov Rýchly prístup.
5. Potom vyberte e-mail a kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
6. Okamžite sa zobrazí dokument vo formáte Word s obsahom e-mailu.
7. Nakoniec môžete uložiť nový vyskakovací dokument Word ako obvykle.

Efektívne zlikvidujte nepríjemné problémy s programom Outlook

Pretože je Outlook náchylný na chyby a poškodenia, musíte vynaložiť väčšie úsilie na ochranu svojich údajov v Outlooku. Napríklad musíte pravidelne zálohovať svoje údaje z Outlooku. Ďalej je rozumné chytiť sa jedného z popredných Obnova programu Outlook nástroj, ako DataNumen Outlook Repair, ktoré sa jedného dňa určite budú hodiť.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server oprava a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S