Мне нужно посчитать количество входящих писем в день на категорию в 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 и т. Д.).