2 efektivní způsoby převodu e-mailu aplikace Outlook na dokument aplikace Word

Pokud chcete uložit nebo převést e-mail z aplikace Outlook na dokument aplikace Word, můžete použít 2 metody uvedené v tomto článku.

Outlook nenabízí žádné nativní funkce pro uložení nebo převod e-mailu Outlooku jako dokumentu aplikace Word. Proto, chcete-li toho dosáhnout, musíte vynaložit další úsilí. Zde vás naučíme 2 rychlé metody. Jedním z nich je chytré použití funkce „Uložit“. Druhým je taktně používat Outlook VBA. Přečtěte si je prosím podrobně.

Metoda 1: Použijte funkci „Uložit“.

1. Nejprve spusťte program Outlook.
2. Poté prezentujte e-mailem.
3. Dále přejděte do nabídky „Soubor“ a vyberte možnost „Uložit jako“.
4. Následně ve vyskakovacím dialogovém okně vyberte cílovou složku a v poli „Uložit jako typ“ zvolte „Pouze text“.
5. Po kliknutí na tlačítko „Uložit“ můžete otevřít aplikaci Microsoft Word.
6. V MS Word přejděte do nabídky „Soubor“ a vyberte „Otevřít“.
7. Ve vyskakovacím dialogovém okně „Otevřít“ vyberte „Všechny soubory“ v řádku „Název souboru“ a rozmístěte dříve uložený textový soubor.
8. Po kliknutí na „Otevřít“ se e-mail v typu textového souboru otevře ve wordu.
9. Později můžete vybrat „Soubor“ > „Uložit jako“.
10. Nakonec v dialogovém okně „Uložit jako“ vyberte „Dokument Word“ v „Uložit jako typ“ a stiskněte „Uložit“.

Metoda 2: Použijte Outlook VBA

1. Nejprve stiskněte klávesové zkratky „Alt + F11“ v aplikaci Outlook.
2. Poté ve vyskakovacím okně editoru Outlook VBA otevřete nový modul.
3. Dále do něj zkopírujte a vložte následující 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ásledně přidejte nový projekt VBA na panel nástrojů Rychlý přístup.
5. Poté vyberte e-mail a klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
6. Najednou se zobrazí dokument aplikace Word s obsahem e-mailu.
7. Nakonec můžete uložit nový vyskakovací dokument aplikace Word jako obvykle.

Zbavte se nepříjemných problémů s Outlookem efektivně

Protože je aplikace Outlook náchylná k chybám a poškození, musíte vynaložit více úsilí na ochranu dat aplikace Outlook. Musíte například pravidelně zálohovat data aplikace Outlook. Kromě toho je prozíravé získat preeminanta Obnova aplikace Outlook nástroj, jako DataNumen Outlook Repair, což se vám určitě jednou bude hodit.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com