Skip to main content

How to export Outlook email body text to Excel spreadsheet?

Author: Siluvia Last Modified: 2024-12-17

Exporting email body text from Outlook to an Excel spreadsheet can be helpful for keeping track of information or analyzing data from emails. This tutorial will guide you through two methods: using VBA (Visual Basic for Applications) for manual exports and the Save Messages as Other Files feature of Kutools for Outlook, which simplifies the process.

Exporting Email Body Text to Excel with VBA

Exporting Email Body Text to Excel in Bulk with Kutools for Outlook
Supports exporting multiple messages and saving them as PDF, Excel, HTML, or other file formats.


Exporting Email Body Text to Excel with VBA

Using VBA is a manual method for exporting email body text to an Excel spreadsheet. Follow these steps:

1. Open the email, select the email body you want to export to Excel spreadsheet, and then press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module. And then copy below VBA code into the Code window.

VBA code: export Outlook email body text to Excel spreadsheet

Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    Set xInspector = xMailItem.GetInspector
    Set xDoc = xInspector.WordEditor
    xDoc.Application.Selection.Range.Copy
    xInspector.Close olDiscard
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    Set xWs = xWb.Sheets.item(1)
    xExcel.Visible = False
    xWs.Activate
    xWs.Paste
    xWs.SaveAs xFilePath & "Email body.xlsx"
    xWb.Close True
    xExcel.Quit
    Set xWs = Nothing
    Set xWb = Nothing
    Set xExcel = Nothing
End Sub

Note: In the code, “Email body.xlsx” is the workbook name you will create with the selected email body text. You can change it based on you need.

3. Click Tools > References. Then check both the Microsoft Excel Object Library and Microsoft Word Object Library boxes in the References – Project dialog box. See screenshot:

doc-export-body-to-excel-1

4. Then a Browse For Folder dialog box pops up, please select a folder to save the workbook and click the OK button.

doc-export-body-to-excel-2

Now a workbook named “Email body” is created and saved into a specified folder. Open the workbook, you can see the selected email body text is exported to Sheet1 of the workbook.

AI Mail Assistant in Outlook: Smarter Replies, Clearer Communication (one-click magic!) FREE

Streamline your daily Outlook tasks with the AI Mail Assistant from Kutools for Outlook. This powerful tool learns from your past emails to offer intelligent and accurate responses, optimize your email content, and help you draft and refine messages effortlessly.
doc ai email handle

This feature supports:

  • Smart Replies: Get responses crafted from your past conversations—tailored, precise, and ready to go.
  • Enhanced Content: Automatically refine your email text for clarity and impact.
  • Effortless Composition: Just provide keywords, and let AI handle the rest, with multiple writing styles.
  • Intelligent Extensions: Expand your thoughts with context-aware suggestions.
  • Summarization: Get concise overviews of long emails instantly.
  • Global Reach: Translate your emails into any language with ease.

This feature supports:

  • Smart email replies
  • Optimized content
  • Keyword-based drafts
  • Intelligent content extension
  • Email summarization
  • Multi-language translation

Best of all, this feature is completely free forever! Don’t wait—download AI Mail Assistant now and enjoy!


Exporting Email Body Text to Excel in Bulk with Kutools for Outlook

If you prefer a user-friendly and time-saving method, Kutools for Outlook offers a Save Messages as Other Files feature that allows you to save email body text and other details in bulk.

Kutools for Outlook: Unlock over 100 essential and advanced features! Enjoy more than 70 features for free. Download and explore the free version today!

After installing Kutools for Outlook, please follow the steps below

Step 1. Select the messages that you want to export their body texts.

Step 2. Click Kutools > Bulk Processing > Save Selected Emails as Files in Various Formats like PDF.

click-save-messages-as-files-under-kutools-tab

Step 3. In the Save Messages as Other Files dialog,

  1. Select a folder to place the exported files.

  2. Tick Excel format.

  3. Tick Body only.

  4. Click Ok.

    save-messages-as-files-dialog

Now only body texts of the selected messages are saved as separate excel files.

save-result

Best Office Productivity Tools

Breaking News: Kutools for Outlook Launches Free Version!

Experience the all-new Kutools for Outlook FREE version with 70+ incredible features, yours to use FOREVER! Click to download now!

🤖 Kutools AI : Uses advanced AI technology to handle emails effortlessly, including replying, summarizing, optimizing, extending, translating, and composing emails.

📧 Email Automation: Auto Reply (Available for POP and IMAP)  /  Schedule Send Emails  /  Auto CC/BCC by Rules When Sending Email  /  Auto Forward (Advanced Rules)   /  Auto Add Greeting   /  Automatically Split Multi-Recipient Emails into Individual Messages ...

📨 Email Management: Recall Emails  /  Block Scam Emails by Subjects and Others  /  Delete Duplicate Emails  /  Advanced Search  /  Consolidate Folders ...

📁 Attachments ProBatch Save  /  Batch Detach  /  Batch Compress  /  Auto Save   /  Auto Detach  /  Auto Compress ...

🌟 Interface Magic: 😊More Pretty and Cool Emojis   /  Remind you when important emails come  /  Minimize Outlook Instead of Closing ...

👍 One-click Wonders: Reply All with Incoming Attachments  /   Anti-Phishing Emails  /  🕘Show Sender's Time Zone ...

👩🏼‍🤝‍👩🏻 Contacts & Calendar: Batch Add Contacts From Selected Emails  /  Split a Contact Group to Individual Groups  /  Remove Birthday Reminders ...

Instantly unlock Kutools for Outlook with a single click—permanently free. Don't wait, download now and boost your efficiency!

kutools for outlook features1 kutools for outlook features2