我需要清理我的邮箱,我想知道 VBA 中是否有函数可以让我获取文件夹中电子邮件的大小?
我会制作一个宏来解析所有文件夹,并获取每个文件夹和子文件夹中的大小,以查看浪费空间的地方。
最佳答案
尝试这样的事情:
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
关于vba - 确定 Outlook 文件夹中电子邮件的大小?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36788817/