确定 Outlook 文件夹中电子邮件的大小？

【问题标题】：Determine the size of the emails in an outlook folder?确定 Outlook 文件夹中电子邮件的大小？
【发布时间】：2016-08-15 18:56:15
【问题描述】：

我需要清理我的邮箱，我想知道 VBA 中是否有函数可以让我获取文件夹中电子邮件的大小？

我会做一个宏来解析所有文件夹，并获取每个文件夹和子文件夹中的大小，看看哪里浪费了空间。

【问题讨论】：

标签： vba outlook

【解决方案1】：

试试这样的：

Public Sub PrintFolderSizes()

Dim ns As NameSpace
Dim folder As MAPIFolder

Set ns = GetNamespace("MAPI")

For Each folder In ns.Folders
    ProcessFolder folder
Next

End Sub

Private Sub ProcessFolder(folder As MAPIFolder)

Dim folder2 As MAPIFolder
Dim obj As Object
Dim size As Double

If Not folder.Items Is Nothing Then
    For Each obj In folder.Items
        size = size + obj.size
    Next
End If

Debug.Print folder.Name & " - " & size

For Each folder2 In folder.Folders
    ProcessFolder folder2
Next

End Sub

【讨论】：

它处理文件夹的顺序似乎是随机的。有没有办法按字母顺序对它们进行排序？（最好与左侧面板中显示的相同）