Select Code to Download

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

my $outlook;
$outlook = Win32::OLE->new('Outlook.Application');
...

my $items = $Folder->Items;
print $items->Count,"\n";