use strict;
use warnings;
use Win32::OLE qw/in/;

my $outlook = Win32::OLE->GetActiveObject('Outlook.Application');
my $ns      = $outlook->GetNamespace("MAPI");
my $folder  = $ns->Folders("Mailbox - EdwardG")->Folders("Tasks");

for (sort {$b->{Importance} cmp $a->{Importance}} grep {$_->{Complete}
+ == 0} in $folder->{Items}) {
    print +("LOW","MED","HIGH")[$_->{Importance}],"\t",$_->{Subject},"
+\n";
}

__END__
HIGH    IB PDR
HIGH    AL PDR
MED     Investigate CP2 "sourcedid" - equivalent in CP3?
MED     Tech spec for LW export utility
MED     Request new LAN + Intranet accounts for MI
MED     Read SEPG docs before Wed
MED     App Build Mgr recruitment
LOW     Self Training
LOW     MSDN licences - see MW about total up for renewal
[download]