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
- To start with, launch your Outlook program.
- Then pitch on an email.
- Next turn to the “File” menu and select “Save As” option.
- Subsequently, in the popup dialog box, select a destination folder and choose “Text Only” in “Save as type” field.
- After click “Save” button, you can open your Microsoft Word application.
- In MS Word, turn to “File” menu and select “Open”.
- In the popup “Open” dialog box, select “All Files” in “File name” line and pitch on the previously saved text file.
- After click “Open”, the email in text fil type will open in word.
- Later you can select “File” > “Save As”.
- Finally in the “Save as” dialog box, choose “Word Document” in “Save as type” and hit “Save”.
Method 2: Use Outlook VBA
- In the first place, press “Alt + F11” key shortcuts in Outlook.
- Then in the popup Outlook VBA editor window, open a new module.
- 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
- Subsequently, add the new VBA project to Quick Access Toolbar.
- After that, select an email and click the macro button in Quick Access Toolbar.
- At once, a Word document with email contents in it will display.
- 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.
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