my $outlook;
$outlook = Win32::OLE->new('Outlook.Application');
die unless $outlook;
$outlook->Session->Logon;
$outlook->run( "Macro1" );