Help for this page
Dim mapi Set mapi = CreateObject("MAPI.Session")
my $outlook = Win32::OLE->new('Outlook.Application') or die $!;