my $outlook = Win32::OLE->new('Outlook.Application')
       or die "LOOK AN ERROR : ", Win32::OLE->LastError();