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

Question

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

我会制作一个宏来解析所有文件夹，并获取每个文件夹和子文件夹中的大小，以查看浪费空间的地方。

Answer 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