2 Effective Methods to Convert an Outlook Email to a Word Document

If you want to save or convert an Outlook email to a word document, you can use the 2 methods introduced in this article.

Outlook doesn’t offer any native features to save or convert an Outlook email as a word document. Therefore, if you would like to achieve it, you have to make some extra efforts. Here we will teach you 2 quick methods. One is to smartly use “Save” feature. The other one is to tactfully use Outlook VBA. Please read on to get them in detail.

Method 1: Use “Save” Feature

1. To start with, launch your Outlook program.
2. Then pitch on an email.
3. Next turn to the “File” menu and select “Save As” option.
4. Subsequently, in the popup dialog box, select a destination folder and choose “Text Only” in “Save as type” field.
5. After click “Save” button, you can open your Microsoft Word application.
6. In MS Word, turn to “File” menu and select “Open”.
7. In the popup “Open” dialog box, select “All Files” in “File name” line and pitch on the previously saved text file.
8. After click “Open”, the email in text fil type will open in word.
9. Later you can select “File” > “Save As”.
10. Finally in the “Save as” dialog box, choose “Word Document” in “Save as type” and hit “Save”.

Method 2: Use Outlook VBA

1. In the first place, press “Alt + F11” key shortcuts in Outlook.
2. Then in the popup Outlook VBA editor window, open a new module.
3. Next copy and paste the following VBA codes into it.

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. Subsequently, add the new VBA project to Quick Access Toolbar.
5. After that, select an email and click the macro button in Quick Access Toolbar.
6. At once, a Word document with email contents in it will display.
7. Finally you can save the new popup Word document as usual.

Dispose of Annoying Outlook Issues Effectively

As Outlook is prone to errors and corruption, you need to spend more efforts in protecting your Outlook data. For example, you have to make regular backups for your Outlook data. Furthermore, it’s prudent to get hold of a preeminent Outlook recovery tool, like DataNumen Outlook Repair, which will surely come in handy one day.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server repair and outlook repair software products. For more information visit www.datanumen.com