OutlookからExcelに電子メールを自動的にエクスポートするにはどうすればよいですか？

著者：シャオヤン最終更新日：2024年08月27日

通常、インポート/エクスポート機能を使用して、OutlookからExcelに電子メールをエクスポートできます。しかし、新しいメッセージが到着したときに電子メールをExcelファイルに自動エクスポートしようとしたことがありますか？この記事では、新しい受信メッセージの情報をExcelで自動的にエクスポートする方法について説明します。

VBAコードを使用してOutlookからExcelに電子メール情報を自動エクスポートする

すばらしい機能を使用して、OutlookからExcelにメール情報をエクスポートします

VBAコードを使用してOutlookからExcelに電子メール情報を自動エクスポートする

新着メールをExcelブックに自動的にエクスポートするには、次のVBAコードを適用してください。

1。まず、次のスクリーンショットに示すように、以下のヘッダー情報を使用してワークブックを作成する必要があります。これにより、メッセージのこれらの情報がこのExcelファイルにエクスポートされます。

メールをExcel1に自動エクスポートするドキュメント

2。次に、Outlookに移動し、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession Project1（VbaProject.OTM） ペインでモードを開き、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード：OutlookからExcelファイルへの電子メール情報の自動エクスポート：

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
    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

Note：上記のコードでは、 C：\ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx エクスポートした情報を検索するExcelファイルのパスとExcel名です。必要に応じて変更してください。

メールをExcel2に自動エクスポートするドキュメント

4。まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック ツール > 参考情報 参考資料-Project1 ダイアログボックスをクリックし、チェックします MicrosoftExcelオブジェクトライブラリ オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照：

メールをExcel3に自動エクスポートするドキュメント

5。次に、をクリックします OK ボタンをクリックしてダイアログを閉じ、コードウィンドウを保存して閉じます。

6。ここで、Outlookを再起動して、このコードを有効にする必要があります。今後、新しいメールが届くと、それらは特定のワークブックに自動的にエクスポートされます。スクリーンショットを参照してください。

メールをExcel4に自動エクスポートするドキュメント

すばらしい機能を使用して、OutlookからExcelにメール情報をエクスポートします

メールを受信トレイ、送信トレイ、またはその他のフォルダからExcelファイルにエクスポートする場合は、 Kutools for Outlook's クイックレポート 必要に応じて、現在の電子メールフォルダまたはタスクフォルダ内のすべてのアイテムの情報をレポートするためのXMLファイルを簡単に生成するのに役立ちます。

ご注意：これを適用する クイックレポート、まず、ダウンロードする必要があります Kutools for Outlook、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Outlook、次のようにしてください。

1。すべてのメッセージ情報をエクスポートするフォルダを選択し、をクリックします クツールズプラス > クイックレポート、スクリーンショットを参照してください：

doc-自動エクスポート-メール-Excel-6

2。次に、飛び出した レポートを保存 ウィンドウで、場所を選択し、このエクスポートされたファイルの名前を指定します。スクリーンショットを参照してください。

doc-自動エクスポート-メール-Excel-7

3。次に、をクリックします Save ボタンをクリックしてこのファイルを保存し、ポップアウトされたボックスで[ 可ボタンをクリックしてファイルを開きます。スクリーンショットを参照してください。

doc-自動エクスポート-メール-Excel-8

4。これで、選択したフォルダー内の電子メールのすべての情報がExcelファイルにエクスポートされたことがわかります。スクリーンショットを参照してください。

doc-自動エクスポート-メール-Excel-9

より相対的な記事：

電子メール本文テーブルをOutlookのExcelにエクスポート
本文にいくつかのテーブルを含む電子メールを受信した場合、メッセージ本文からExcelワークシートにすべてのテーブルをエクスポートする必要がある場合があります。通常、テーブルをコピーしてワークシートに貼り付けることができますが、ここでは、エクスポートする必要のあるテーブルが複数ある場合に、このジョブを解決するための便利な方法について説明します。

OutlookでタスクリストをExcelに抽出またはエクスポートする
Outlookを使用しているときに、他の用途のためにタスクリストをExcelに抽出できます。 Outlookの強力なエクスポート機能を使用すると、タスクリストをExcelに簡単にエクスポートできます。以下のチュートリアルが示すようにしてください。

Outlookで写真を使用して連絡先の情報をエクスポートする
Outlookからファイルに連絡先をエクスポートする場合、エクスポートできるのは連絡先のテキスト情報のみです。ただし、場合によっては、連絡先のテキスト情報だけでなく写真もエクスポートする必要があります。Outlookでこのタスクをどのように処理できますか？