Question

outlook中如何统计当前账户中所有文件夹中的邮件总数？

outlook中如何统计当前账户中所有文件夹中的邮件总数（在当前账户中分了300多个文件夹，而300多个文件夹下还有各级子文件夹）？

Answer 1

用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

第二步：执行代码，结果如图所示：