E-Mail mit MIME::Lite und Net::SMTP::TLS senden - TLS 1.2 - unknown protocol - #194085 (Allgemeines zu Perl)

Gustl

2021-12-07 12:41

User since
2011-01-27
441 Artikel
BenutzerIn

Hallo zusammen,

der E-Mail SMTP Server wurde bei uns bald umgestellt.
SSL und mit User + Passwort. Der SMTP Server akzeptiert auch nur noch TLS 1.2.

Bisher reichte folgendes aus:

Code (perl): (dl )

my $msg = MIME::Lite->new(
           From    => $mailfrom,
           To      => $mailto,
           Subject => $subject,
           Type    => "multipart/related"
      );
  $msg->attach(
          Type => "text/html",
          Data => $mailtext,
      );
$msg->send("smtp", "mail.domain.de");

Dann habe ich dies versucht:

Code (perl): (dl )

  my $smtpserver = "smtp.domain.com";
  my $user = 'user';
  my $pass = 'password';
  $msg->send("smtp", $smtpserver, SSL => 1, Port => 25, AuthUser => $user, AuthPass => $pass);

Ausgabe:

Code: (dl )

1
2

SMTP auth() command failed:
TLS required

Also fehlt wohl TLS:

Code (perl): (dl )

my $smtpserver = "smtp.domain.com";
my $user = 'user';
my $pass = 'password';
my $mailer = new Net::SMTP::TLS(
      $smtpserver,
      Port    =>      25,
      User    =>      $user,
      Password=>      $pass,
      SSL     =>      0);
  $mailer->mail($mailfrom);
  $mailer->to($mailto);
  $mailer->data;
  $mailer->datasend($msg->as_string);
  $mailer->dataend;
  $mailer->quit;

Und nun kommt folgende Fehlermeldung:

Code: (dl )

1
2

Couldn't start TLS: SSL connect attempt failed with unknown errorerror:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol
at line 'my $mailer = new Net::SMTP::TLS('

Kann mir jemand helfen und sagen wo das Problem liegt?

Vielen Dank im Voraus.

Gruß