在Outlook VBA中每天计算每个类别的所有传入电子邮件

Question

我需要计算Outlook中每个类别每天的传入电子邮件数，并将其导出到Excel。我找到了应该能够执行此操作的代码，但是它给Call GetAllInboxFolders行提供了错误。

Private Sub 
Application_Reminder(ByVal Item As Object)
    If Item.Class = olTask And Item.Subject = "Update Email Count" Then
       Call GetAllInboxFolders
    End If
End Sub

Private Sub GetAllInboxFolders()

    Dim objInboxFolder As Outlook.Folder
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim lEmailCount As Long

我想在A列中看到日期，并在其自己的列（b c d等）中查看每个类别。