#Read Outlook Folder...
use strict;
use Win32::OLE qw(in);
use Constant olFolderCalendar=>9;

my $Outlook = Win32::OLE->GetObject("Outlook.Application")
 || Win32::OLE->new("Outlook.Application");

my $Session = $Outlook->Session;
#my $NameSpace = $Session->GetNameSpace("MAPI");
#my $ContactsFolder = $NameSpace->GetDefaultFolder(olFolderContacts);

ShowSubFolders ($Session->Folders);
#################################################
sub ShowSubFolders{
  my $FolderCollection = shift;
  my $level = shift || 0;

  for my $Folder (in $FolderCollection) {
    print "  " x $level . "Folder$level: $Folder->{Name}\t(\n";# . $Fo
+lder->Items->{Count}. ")\n";
    #if ($Folder->{Name} =~ /Personal Folders/) {
    if ($Folder->{Name} =~ /^Mailbox|^Issues|^Public Folders|^All Publ
+ic|Operations/) {
      ShowSubFolders($Folder->Folders, $level + 1);
    }
    if ($Folder->{Name} =~ /Inbox|All Public|Operations/) {
      my $msgCount=1;
      print "*** Please OK the msgbox in outlook that requests externa
+l program access**\n";
      $Folder->Items->Sort ("CreationTime",1); # Descending by date
      for my $Item (in $Folder->Items) {
        print "$msgCount:  $Item->{SenderName} : $Item->{Subject}\n";
        #print "\t $Item->{Body} \n\n";
        last if $msgCount++ > 9;
      }
    }
  }
}
[download]

Maybe easier to extend Mail::Outlook

Mail::Outlook may be worth investigation.

Hi all; im in dire need of assistance
i tried the mail::outlook method, but i cant seem to find a way for it to read another public mailbox i added in outlook.
more specifically, i was able to use all_folders() to show that the mailbox can be listed by mail:outlook methods
and the issue is that how do i set the folder() method to read from the other mailbox.
i been cracking my head for the past 2 days; all i could get was it reading from my default mailbox.

in the end i gave up using Mail:Outlook instead i had easier time porting vbs example of accessing the OLE objects in outlook