Outlookのメール本文をExcelスプレッドシートにエクスポートするにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

OutlookからExcelスプレッドシートにメール本文をエクスポートすると、メールからの情報の追跡やデータ分析に役立ちます。このチュートリアルでは、手動エクスポート用のVBA（Visual Basic for Applications）を使用する方法と、Kutools for Outlookの「他のファイルとしてメールを保存」機能を使用してプロセスを簡素化する方法という2つの方法を紹介します。

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 Object Library」と「Microsoft Word Object Library」の両方のチェックボックスを「参照設定 - プロジェクト」ダイアログボックスでオンにします。スクリーンショットをご覧ください：