Подсчет всех входящих писем по категориям в день в Outlook VBA - PullRequest
0 голосов
/ 11 апреля 2019

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

...