use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';

$|++;

#get an Outlook object
my $outlook;
$outlook = Win32::OLE->new('Outlook.Application');
die unless $outlook;

#get the Inbox folder
my $namespace = $outlook->GetNamespace("MAPI");
my $folder = $namespace->GetDefaultFolder(olFolderInbox);
my $items = $folder->Items;

print STDERR "Folder: ", $folder->Name,"\n";
print STDERR "Total entries: ",$items->Count,"\n";

print_folders($folder);

sub print_folders
{
    my $folder = shift;
    print "Folder: " . $folder->Name . "\n";
    if ($folder->Folders->Count)
    {
        foreach my $i (1..$folder->Folders->Count)
        {
            print_folders($folder->Folders($i));
        }
    }
}
[download]

What if a new folder (not a subfolder) is created by the user just like Inbox ?

pankaj_it09:

Change the line:

my $folder = $namespace->GetDefaultFolder(olFolderInbox);
[download]

to select the folder you want to start from.

...roboticus

When your only tool is a hammer, all problems look like your thumb.