my $Outlook = Win32::OLE->GetActiveObject
                           ('Outlook.Application') ||
               Win32::OLE->new('Outlook.Application');
$Outlook->{'Visible'} = 1;