Исходный текст

Option Explicit
Call ShowMailfoldersInfo()


'==============================================================================
'Вывести суммарную информацию о содержимом почтового ящика текущего пользователя.
'==============================================================================
Sub ShowMailfoldersInfo()
        Dim strDescr, FilterMsgCol, fld 
        
        For Each fld in ThisApplication.MailFolders
                'Подсчитать, сколько непрочтенных сообщений в папке с помощью фильтра сообщений
                Set FilterMsgCol = fld.Messages
                FilterMsgCol.Filter.Status = tdmMessageUnread 'Отобрать сообщения со статусом tdmMessageUnread 
                FilterMsgCol.Filter.On = TRUE 'включить фильтр
                'сохранить информацию, сколько всего сообщений и сколько непрочтенных
                strDescr =  strDescr & fld.Messages.Count & " сообщений в папке " & fld.Description
                strDescr = strDescr & ", из них непрочтенных: " & FilterMsgCol.Count & Chr(13)
                'Обнулить объектную переменную
                Set FilterMsgCol = Nothing
        Next
        
        'Вывести суммарную информацию
        MsgBox "Папка """ & ThisApplication.MailRootFolder.Description & _
                    """ содержит:" & Chr(13) & strDescr & Chr(13) & "Всего сообщений: " & _
                    ThisApplication.Messages.Count, vbInformation, _
                    "Информация о почтовом ящике пользователя " & ThisApplication.CurrentUser.Description
End Sub 
'==============================================================================