如何将 Outlook 邮件正文导出到 Excel 表格？

将 Outlook 邮件正文导出到 Excel 表格，有助于高效记录信息或分析邮件数据。本文将为您介绍两种方法：一是通过 VBA（Visual Basic for Applications）手动导出，二是借助 Kutools for Outlook 的“另存为其他文件”功能，让导出流程更加便捷高效。

使用 VBA 将邮件正文导出到 Excel

Kutools for Outlook 的批量导出邮件正文至 Excel 工具
支持批量导出多封邮件，并可将其另存为 PDF、Excel、HTML 或其他文件类型。

使用 VBA 将邮件正文导出到 Excel

使用 VBA 是一种将邮件正文手动导出到 Excel 表格的方法。请按照以下步骤操作：

1. 打开邮件，选择需要导出到 Excel 的邮件正文，然后按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击插入 > 模块，然后将以下 VBA 代码复制到代码窗口中。

VBA 代码：将 Outlook 邮件正文导出至 Excel 表格

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

注意：在代码中，“Email body.xlsx”为使用所选邮件正文创建的工作簿名称，您可根据需要进行修改。

3. 单击工具> 引用。在引用 – 工程对话框中，勾选 Microsoft Excel 对象库和 Microsoft Word 对象库复选框。请参考截图：

4. 随后会弹出浏览文件夹对话框，请选择一个文件夹用于保存工作簿，并单击确定按钮。

名为“Email body”的工作簿现已创建并保存在指定文件夹。打开该工作簿，即可在 Sheet 1 中查看所选邮件正文已成功导出。

Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）

通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。

该功能支持：

• 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
• 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
• 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
• 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
• 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
• 全球畅邮：轻松将邮件翻译为任意语言。

该功能支持：

• 智能邮件回复
• 内容优化
• 关键词草稿
• 智能内容扩展
• 邮件摘要
• 多语言翻译

立即行动——现在就下载 AI 邮件助手，畅享高效体验，不容错过！

使用 Kutools for Outlook 批量导出邮件正文到 Excel

如果您更喜欢操作简单、节省时间的方法，Kutools for Outlook 的保存邮件为其他文件功能，助您批量保存邮件正文及其他信息。

安装 Kutools for Outlook 后，请按以下步骤操作

步骤 1. 请选择您想要导出正文内容的邮件。

步骤 2. 单击 Kutools > 批量处理 > 将选中的多封邮件保存为 PDF 等多种格式的文件。

步骤 3. 在保存邮件为其他文件对话框中，

1. 用于存放导出文件的选择文件夹

2. 勾选 Excel 格式即可。

3. 仅限勾选正文。

4. 单击确定。

   

现在，只有所选项目的正文会分别保存为独立的 Excel 文件。

---

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

Kutools for Outlook 功能列表      立即下载      前往购买

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

• ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
• 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
• 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

关于套件⬇ 下载套件💳 购买套件