Класс MAPIFolder
или Folder
из объектной модели Outlook не предоставляет никаких свойств, связанных с размером. Чтобы выполнить работу, вам нужно перебрать все элементы в папке и подсчитать размер папки, суммируя каждый размер элемента. Например:
For Each olFolderB In olFolderA.Folders
Debug.Print olFolderB.FolderPath, olFolderB.Items.Count
Dim count as Integer
count = 0
Dim folderItem as Object
For Each folderItem In olFolderB.Items
count = count + folderItem.Size
Next
Next
Кроме того, вам нужно использовать рекурсию для перебора всех вложенных папок в хранилище.
Private Sub processFolder(ByVal oParent As Outlook.MAPIFolder)
Dim oFolder As Outlook.MAPIFolder
Dim oMail As Outlook.MailItem
For Each oMail In oParent.Items
'Get your data here ...
Next
If (oParent.Folders.Count > 0) Then
For Each oFolder In oParent.Folders
processFolder oFolder
Next
End If
End Sub