#!/usr/bin/perl -w use strict; use Mail::Sender; my $mailparams = { smtp => 'smtp.udag.de', from => 'SPLMget ', auth => 'LOGIN', authid => 'POSTFACHNAME', authpwd => 'PASSWORT', TLS_required => 0, on_errors => 'code', debug => './mailLog.txt', debug_level => 4 }; my $mail = Mail::Sender->new($mailparams); $Mail::Sender::NO_X_MAILER = 1; my $message = '

Heute ist Valentinstag

'; $mail->Open({ to => 'EMPFÄNGER', headers => { 'X-Mailer' => 'SPLMget', 'Accept-Language' => 'de-DE, en-US', 'Content-Language' => 'de-DE' }, subject => encode_qp(encode("UTF-8", 'Neue Nachricht verfügbar')), ctype => 'text/html; charset=UTF-8', encoding => "quoted-printable", #multipart => 'mixed' }); $mail->SendEnc($message); $mail->Close(); print "$mail->{error}: $mail->{error_msg}";