outlook中如何統計當前賬戶中所有文件夾中的郵件總數？

用vba編程可以完成。

第壹層循環：遍歷文件夾

第二層循環：遍歷郵件。遍歷郵件時計數。

循環結束後，計數結果就是郵件總數。可以用msgbox顯示統計結果。

舉例如下：

第壹步：編制代碼如下：

Sub 統計郵件()

Dim nmspc As NameSpace

Dim mlItem As MailItem

Dim objFolder As MAPIFolder

Dim objFolder2 As MAPIFolder

Dim mitem As MailItem

Dim i, J As Integer

Dim MYO As Object

i = 0

Set nmspc = GetNamespace("MAPI")

Set objFolder = nmspc.GetDefaultFolder(olFolderInbox)

For Each objFolder2 In objFolder.Folders

For Each mlItem In objFolder2.Items

i = i + 1

Next mlItem

Next objFolder2

MsgBox "郵件總數：" + Str(i)

End Sub

第二步：執行代碼，結果如圖所示：