Option Explicit
Dim objOutlook, objNamespace, lngTotal, objFolder

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
For Each objFolder In objNamespace.Folders
     Call EnumFolder(objFolder)
Next
 Wscript.Echo "Total: " & CStr(lngTotal)

Sub EnumFolder(objParent)
     ' Recursive subroutine to count items in folders.
     Dim objSubFolder

     Wscript.Echo objParent.Name &  " (" & objParent.Items.Count & ")"
     lngTotal = lngTotal + objParent.Items.Count
     For  Each objSubFolder In objParent.Folders
         Call EnumFolder(objSubFolder)
     Next
End Sub