Outlook のメールをExcel に自動でエクスポートする方法は？

通常、Outlook のメールはインポート/エクスポート機能を使ってExcel にエクスポートできます。しかし、新着メールが届くたびに自動的にExcel ファイルにエクスポートしたい場合、Outlook にはそのような標準機能が備わっていません。この記事では、この課題を解決する2 つの方法をご紹介します。

VBA を使用して受信トレイの新着メールを自動的にExcel にエクスポートする(手動で面倒)

Kutools for Outlook で選択したフォルダーのすべてのメールをExcel レポートに素早くエクスポート 👍(高速で簡単)

VBA を使用して受信トレイの新着メールを自動的にExcel にエクスポートする

新規メールをExcel に自動エクスポートしたい場合は、以下の VBA コードをご利用いただけます。この方法では受信トレイをリアルタイムで監視し、メール到着と同時にその情報をExcel ファイルへ自動出力します。

手順1：Excel ファイルを準備する

VBA コードを実行する前に、エクスポートされたメールデータを格納するExcel ワークブックをあらかじめご準備ください。1 行目に「No.」「送信者名」「送信者メールアドレス」「件名」「受信時刻」という列見出しを入力しておきましょう。

手順2：Outlook で VBA エディターを開く

1。Alt+F11キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「Project1 (VbaProject.OTM)」ペインで、「Microsoft Outlook Objects」を展開し、「ThisOutlookSession」をダブルクリックしてください。

手順3：VBA コードを挿入する

以下の VBA コードをモジュールにコピー＆ペーストします：

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    ' Update this path with your actual Excel file path  
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

手順4：Microsoft Excel オブジェクトライブラリを有効にする

1。「Microsoft Visual Basic for Applications」ウィンドウで、「ツール」→「参照設定」をクリックします。

2. 「参照設定 - Project1」ダイアログボックスで下にスクロールし、「Microsoft Excel オブジェクトライブラリ」にチェックマークを付けます。

3。「OK」をクリックして、変更を適用しましょう。

手順5：保存してOutlook を再起動する

1。VBA コードを保存して、エディターを閉じましょう。

2。変更を反映させるには、Outlook を再起動してください。

結果：

これ以降、受信トレイに届くすべての新規メールは、指定されたExcel ワークブックに自動的にエクスポートされます。

---

📊 Kutools でよりスマートなメール統計

Kutools のKutools for Outlookに搭載された統計機能を使えば、メールのやり取りを簡単に追跡・分析できます。日別・週別・月別の受信メール数を自動集計し、その結果を明確でプロフェッショナルなチャートで即座に表示！わずか数回のクリックでメール管理が劇的に効率化され、貴重なインサイトを手に入れられます。

Kutools for Outlook を今すぐダウンロード

Kutools for Outlook で選択したフォルダーのすべてのメールをExcel レポートに素早くエクスポートする 👍

VBA を使わずに、受信トレイ・送信済みアイテム・カスタムフォルダーなど任意のフォルダーからメールを手軽にエクスポートしたいなら、Kutools for Outlook の「クイックレポート」機能がシンプルで最適な解決策です。

手順1：フォルダーを選択し、クイックレポート機能を有効にする

1。Outlook を開き、「受信トレイ」や「送信トレイ」、「送信済みアイテム」など、エクスポートしたいフォルダーに移動します。

2。［KUTOOLS PLUS］＞［レポート］＞［クイックレポート］をクリックします。

手順2：保存場所を選択する

1。レポートを保存するウィンドウで、保存先を選択し、エクスポート用のファイル名を入力してください。

2。「保存」をクリックしてください。

手順3：レポートをエクスポートを開く

確認メッセージが表示されるので、「はい」をクリックしてエクスポートされたファイルを開いてください。

結果：

選択したフォルダー内のすべてのメールがExcel 対応の XML ファイルにエクスポートされ、送信者、件名、受信時刻などが表示されます。

注記：Kutools for Outlook のクイックレポートユーティリティを使用するには、まずKutools for Outlookをダウンロードしてインストールする必要があります。

---

どちらの方法を使うべきでしょうか？

ニーズに最も合った方法を選べるよう、以下に2 つの方法を比較します：

方法	おすすめの用途	使いやすさ	効率性
VBA コードを使用（自動化可能だが複雑）	受信トレイから新規メールを自動的にエクスポート	⭐⭐	⭐⭐⭐⭐
Kutools for Outlook を使用（シンプルで柔軟）	選択したフォルダー内のすべてのメールを素早くエクスポート	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐

適切な方法を選べば、ワークフローの要件に沿ってOutlook メールを効率よくExcel にエクスポートできます！

---

関連記事

• Outlook でメール本文の表をExcel にエクスポートする
• メール本文に表が含まれている場合、それらすべてをExcel ワークシートにエクスポートしたいと思うことがあります。通常はコピー＆ペーストで対応できますが、ここでは複数の表を一括でエクスポートする際に役立つ便利な方法をご紹介します。

• Outlook でタスクリストをExcel に抽出またはエクスポートする
• Outlook をご利用の際、タスクリストを他の用途で活用するためにExcel に抽出できます。Outlook の強力なエクスポート機能を使えば、タスクリストを簡単にExcel へ出力可能。以下のチュートリアルに従って、すぐにお試しください。

• Outlook で連絡先の情報と写真をエクスポートする
• Outlook から連絡先をファイルにエクスポートする際、通常はテキスト情報のみが保存されます。しかし、場合によっては連絡先のテキスト情報に加えて写真もエクスポートしたいことがあります。そのような場合、Outlook ではどのように操作すればよいでしょうか？

• Outlook からフォルダの構造をExcel にエクスポートする
• この記事では、Outlook のアカウントフォルダ構造をExcel ファイルにエクスポートする方法をご紹介します。記事の手順に従って、ぜひお試しください。

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入