如何將 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＞ 批量處理＞ 儲存選取的郵件為多種格式檔案。

步驟 3. 在保存郵件為其他文件對話方塊中，

1. 用於存放匯出檔案的位置。

2. 勾選 Excel 格式。

3. 僅限勾選內文。

4. 點擊確定。

   

目前僅有選中項目的內容已儲存為獨立的 Excel 檔案。

---

最佳 Office 生產力工具

體驗全新 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

關於此套件⬇ 下載套件💳 購買套件