Bonjour,

Est-ce que quelqu'un pourrait m'indiquer ce qui ne va pas ?
J'ai écrit le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!usr/bin/perl -w
use strict;
use Net::SMTP;
 
my $smtp = Net::SMTP->new('smtp.mail.yahoo.fr') or die "Connexion SMTP impossible\n : $!";
$smtp->mail('prenom.nom@yahoo.fr');
$smtp->to('prenom.nom.@yahoo.fr');
$smtp->data();
$smtp->datasend("To: Destinataires\n");
$smtp->datasend("Subject: Objet du mail\n");
$smtp->datasend("Première ligne de texte à envoyer.\n");
$smtp->datasend("Deuxième ligne de texte à envoyer.\n");
$smtp->dataend();
$smtp->quit;
J'obtiens le message suivant :
Connexion SMTP impossible : Unknown error at mail.pl line 5.
Merci