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->{'To'} = 'test@test.com';
$msg->{'Subject'}     = $vorlage_betreff;
$msg->{'BodyFormat'} = 'olFormatHTML';
$msg->{'HTMLBody'} = $vorlage_body;  // HTML Code read from file

my $attach = $msg->{'Attachments'};
$attach->add('C:\\xxx.pdf');
$msg->Display();