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

[thread]21377[/thread]

E-Mail mit MIME::Lite und Net::SMTP::TLS senden - TLS 1.2 - unknown protocol

Tags: email MIME::Lite Net::SMTP::TLS unknown protocol Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+7 replies

Gustl

2021-12-07 12:41

User since
2011-01-27
443 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ß

bianca

2021-12-07 12:52

User since
2009-09-13
7016 Artikel
BenutzerIn

Hast du das hier schon studiert? Fehler bei SSL Verbindung
10 print "Hallo"
20 goto 10

GwenDragon

2021-12-09 10:06

User since
2005-01-17
14761 Artikel
Admin1

Kann der Server denn StartTLS auf Port 25?
Kann es sein, dass clientseitig Perl und/oder SSL-Library bzw. Chiffren zu alt sind? Stichwort: Net::SSLeay, IO::Socket::SSL

Setzt mal bei new Net::SMTP als Parameter Debug => 1 rein, um zu sehen was hakt.
/edit: Und $IO::Socket::SSL::DEBUG = 3;

Mein Test:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use IO::Socket::SSL;
$IO::Socket::SSL::DEBUG = 3;

my $mailfrom = 'info@meinserver.tld';
my $mailto   = 'test123@meinserver.tld';
my $subject  = 'Test für SMTP SSL';
my $mailtext = 'TEST<br>123';
                   
use MIME::Lite;
my $msg = MIME::Lite->new(
           From    => $mailfrom,
           To      => $mailto,
           Subject => $subject,
           Type    => "multipart/related",
      );
  $msg->attach(
          Type => "text/html",
          Data => $mailtext,
      );

use Net::SMTP;

my $smtpserver = "mail.meinserver.tld";
my $user = 'test123@meinserver.tld';
my $pass = 'V3r7SeCw21';
my $mailer = Net::SMTP->new(
      $smtpserver,
      Port    =>      25,
      User    =>      $user,
      Password=>      $pass,
      SSL     =>      0,
          Debug   =>      1,
);
$mailer->starttls();
$mailer->mail($mailfrom);
$mailer->to($mailto);
$mailer->data;
$mailer->datasend($msg->as_string);
$mailer->dataend;
$mailer->quit;

Bringt schön SSL mit StartTLS und SSL-Debug-Ausgabe.
Last edited: 2021-12-10 11:01:55 +0100 (CET)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

GwenDragon

2021-12-14 17:18

User since
2005-01-17
14761 Artikel
Admin1

@Gustl Und nun? Alles paletti?
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+3 replies
Gustl

2021-12-18 11:53

User since
2011-01-27
443 Artikel
BenutzerIn

Hallo zusammen, ich danke euch für eure Tipps.

Habe versucht mich mit dem Problem auseinander zu setzen, aber bin nicht weit gekommen. :(

Net::SSLeay ist nicht installiert, aber hat auch nicht geklappt unter Windows.

Ich habe nun eine .NET Web Api erzeugt über der ich die E-Mails per Request versenden kann. Die Anhänge habe ich in base64string umgewandelt.

Danke euch.

Viele Grüße
- +2 replies
- GwenDragon
  
  2021-12-18 12:03
  User since
  2005-01-17
  14761 Artikel
  Admin1
  2021-12-18T10:53:15 Gustl
  Net::SSLeay ist nicht installiert, aber hat auch nicht geklappt unter Windows.
  
  Ich starte cpan und nehme da intern immer notest, klappt auch, ich hatte noch keine Probleme mit SSL:
  
  Code: (dl )
  
  1 2 3
  
  notest install Net::SSLeay notest install Crypt::SSLeay notest install IO::Socket::SSL
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gustl
    
    2021-12-18 13:20
    
    User since
    2011-01-27
    443 Artikel
    BenutzerIn
    
    Leider kann ich nur offline installieren, da der proxy es nicht anders zulässt.
    
    Und offline Module installieren hatte ich bei Perl schon immer Probleme.
    
    Auch ein Grund warum ich mich auf Arbeit immer mehr von Perl distanziere.
    
    Trotzdem Danke.
    
    Viele Grüße

View all threads created 2021-12-07 12:41.