確定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