Just need help The code below currently counts the total # of emails. I want to edit the code to count the amount mail within subfolders which are under the inbox and possibly store it in a variable. E.g some sub folders within the inbox are Folder1, Folder2, Folder3. 




Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
MsgBox Fldr.Items.Count
Set Fldr = Nothing
Set olNs = Nothing
Set olApp = Nothing