Script to count the number of mails in a given folder in Outlook

[Sudhamshu]

Hi, I have written the Script to count the number of mails in a given folder in Outlook as like this.

Code:

Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNameSpace("MAPI")
Set Folder = olns.GetDefaultFolder(3)
msgbox Folder.Items.Count

but my doubt is, I want to check the count of not the default folders of the Outlook, where as I need to count all the mails in my Personal folders too.

How can I change my code?

Thanks in Advance.

[Saket]

use a loop to go through all the folders, and find your personal folder.
see the code below

Code:

Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNameSpace("MAPI")
    For icnt = 1 To olns.Folders.Count
        If UCase(ns.Folders.Item(icnt)) = "<<YOUR PERSONAL FOLDER>>" Then '
            Set Folder = olns.Folders.Item(icnt)
            Exit For
        End If
    Next
msgbox Folder.Items.Count

[Sudhamshu]

Thanks Saketh, it is working now