use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Outlook';

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

# Create Mail Item
my $item = $Outlook->CreateItem(0);  # 0 = mail item.

unless ($item)
{
  die "Outlook is not running, cannot send mail.\n";
}

$item->{'Subject'} = $mail_props{'subject'} ||
                     '[No Subject]';
$item->{'To'} = join
              (";", split(/[ ,;]+/, $mail_props{'to'}));
$item->{'Body'} = $mail_props{'body'} || "\r\n";

$item->{'From'} = $mail_props{'to'};

# 2=high, 1=normal, 0=low
$item->{'Importance'} = 1;

# Send the Email
$item->Send();