Outlook のメッセージ件数をExcel ワークブックにエクスポートするには、どうすればよいですか？

通常、インポート／エクスポート機能を使えば、Outlook のメッセージをExcel ファイルにすばやく簡単にエクスポートできます。しかし、特定のメールアカウントのすべてのフォルダー内のアイテム数をカウントし、その結果をExcel ワークブックにエクスポートしようとしたことはありますか？

VBA コードを使用してOutlook のメッセージ件数をExcel ワークブックにエクスポートする

---

VBA コードを使用してOutlook のメッセージ件数をExcel ワークブックにエクスポートする

以下の VBA コードを使えば、特定のメールアカウントに含まれるすべてのフォルダーから件数を取得し、Excel ワークブックへエクスポートできます。次の手順に従って操作してください。

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

2。「挿入」＞「モジュール」をクリックし、表示された「モジュール」ウィンドウに以下のコードを貼り付けてください。

VBA コード：Outlook のアイテム件数をExcel ワークブックにエクスポートする

Sub Export_CountOfItems_InEachFolder_toExcel()
    Dim xSourceFolder As Outlook.Folder, xSubFolder As Outlook.Folder
   Dim xFilePath As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    On Error Resume Next
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    xWs.Cells(1, 1) = "Folder"
    xWs.Cells(1, 2) = "Count Items"
    Set xSourceFolder = Outlook.Application.Session.PickFolder
    If xSourceFolder = nill Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    For Each xSubFolder In xSourceFolder.Folders
        Call ProcessFolders(xWs, xSubFolder)
    Next
    xWs.Columns("A:B").AutoFit
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
   If TypeName(xFolder) = "Nothing" Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    xFilePath = xFilePath & xSourceFolder.Name & "(" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    xWb.Close True, xFilePath
    xExcelApp.Quit
    Set xShell = Nothing
    MsgBox "Complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal Ws As Worksheet, ByVal xCurFolder As Outlook.Folder)
    Dim xSubFld As Folder
    Dim xItemCount As Long
   Dim xRow As Integer
    xItemCount = xCurFolder.Items.Count
    xRow = Ws.UsedRange.Rows.Count + 1
    Ws.Cells(xRow, 1) = xCurFolder.FolderPath
    Ws.Cells(xRow, 2) = xItemCount
    If xCurFolder.Folders.Count > 0 Then
       For Each xSubFld In xCurFolder.Folders
           Call ProcessFolders(Ws, xSubFld)
       Next
    End If
End Sub

3。引き続き、「Microsoft Visual Basic for Applications」ウィンドウで［ツール］＞［参照設定］をクリックし、「参照設定 - Project1」ダイアログボックスを開きます。その後、「利用可能な参照」リストから「Microsoft Excel Object Library」をチェックしてください（下記スクリーンショット参照）。

4。「OK」をクリックした後、「F5」キーを押してこのコードを実行すると、「フォルダーの選択」ダイアログが表示されます。その中から、アイテム件数をエクスポートしたいメールアカウントを選択してください（下記スクリーンショット参照）。

5。「OK」をクリックすると、別の「フォルダーの参照」ダイアログが表示されますので、Excel ファイルの保存先フォルダーを選択してください（下記スクリーンショット参照）。

6。最後に「OK」ボタンをクリックすると、選択したアカウントのすべてのフォルダー内のアイテム件数がExcel ワークブックにエクスポートされます。エクスポート後、Excel ファイルを開いて結果をご確認いただけます（下記スクリーンショット参照）。