my $outlook = Win32::OLE->new('Outlook.Application') or die $!;