Как распечатать размер папки

Question 1

У меня есть код vba, который печатает имена папок и количество элементов. Я не вижу никаких вариантов для проверки размера папки. Как я могу запросить размер папки для Outlook.MAPIFolder?

'Требуется ссылка на библиотеку объектов MS Outlook

Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objSourceFolder As Outlook.MAPIFolder
Dim objDestFolder As Outlook.MAPIFolder
Dim InboxMsg As Object
Dim Inbox As Outlook.Folder
Dim SystemEmails As String

 Dim filter As String
   Dim olParentFolder As Outlook.MAPIFolder
Dim olFolderA As Outlook.MAPIFolder
Dim olFolderB As Outlook.MAPIFolder

Set objOutlook = Application
Set objNamespace = objOutlook.GetNamespace("MAPI") '

Set olParentFolder = objNamespace.GetDefaultFolder(olFolderInbox)

For Each olFolderA In olParentFolder.Folders
    Debug.Print olFolderA.FolderPath, olFolderA.Items.Count, olFolderA.Folders.Count


    For Each olFolderB In olFolderA.Folders
        Debug.Print olFolderB.FolderPath, olFolderB.Items.Count
    Next
Next

End Sub

vba outlook

0

junkone 29 Апр 2020 в 00:11

tushar-mehta.com/publish_train/xl_vba_cases/…

–

Tim Williams

29 Апр 2020 в 07:50

Answer

Класс 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

0

Eugene Astafiev 29 Апр 2020 в 09:40

Question 2

Класс 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

0

Eugene Astafiev 29 Апр 2020 в 09:40

Как распечатать размер папки

1 ответ

Похожие вопросы

Новые вопросы

vba