Bonjour,
j’ai un probleme avec l’envoi d’un mail en perl:
use strict;
use Net::SMTP;
my $message = “From: vu-du-ciel@laposte.net\nTo:mathurin_61@hotmail.fr\nSubject: Hello World\n\nTest\n\n”;
print “Message:\n”;
print $message;
print “\n”;
my $DEBUG = 1;
my $ServerName = “smtp.laposte.net”;
my $ServerAccount = "vu-du-ciel@laposte.net";
my $ServerPwd = “******”;
my $MailFrom = "vu-du-ciel@laposte.net";
my $MailTo = "mathurin_61@hotmail.fr";
print “Server variables assigned\n”;
my $smtp = Net::SMTP->new($ServerName, Hello => “ooooooooooooo”, Debug => 1);
die “Couldn’t connect to server” unless $smtp;
print “Server connection opened\n”;
if ( !$smtp->auth($ServerAccount, $ServerPwd) ) {
print “authentication failed or not needed\n”;
}
if ( !$smtp->mail( $MailFrom ) ) {
print “sender not accepted\n”;
exit 1;
}
if (!$smtp->to( $MailTo ) ) {
print “addressee not accepted\n”;
exit 1;
}
print “Server variables checked\n”;
my $maildata = $message;
$smtp->data();
$smtp->datasend( $maildata );
$smtp->dataend();
$smtp->quit();
$smtp->quit;
print “Finished sending email\n”;
l’erreur est la suivante : 535 Error: authentication failed