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

my $outlook1 = new Mail::Outlook();
my $folder1 = $outlook1->folder('Archive/Inbox');

die "Can't open mailbox\n" unless ($folder1);