my $outlook = new Win32::OLE('Outlook.Application') or die "Could not open Outlook Application!\n";
my $msg = $outlook -> CreateItem(0);
unless ($msg){ die "Outlook is not running, cannot send mail.\n"; }

$msg->{'Subject'}     = 'Test';
$msg->{'BodyFormat'} = 'olFormatHTML';
$msg->{'HTMLBody'} = $emailtext;

$msg->{'To'}         = 'empfaenger@domain.de';
$msg->{'Bcc'}         = 'kopieempfaenger@domain.de';
$msg->{'Reply-To'}         = 'reply@domain.de';

$msg->Display();