Bonjour,

Je souhaiterai envoyer un mail via le module smtp. Mais lorsque je l'envoie, j'ai le message d'erreur suivant : Can't call method "mail" on an undefined value at C:\Perl\envoiemsg.pl line 11.

la ligne 11 correspond à ça $smtp->mail('toto@alcan.com');

La semaine derniére, il me semblait que ça fonctionner. Pourtant le module est SMTP est placé au bon endroit.
Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use strict; 
use warnings; 
use Net::SMTP; 
 
my $smtp = Net::SMTP->new('smtp.alcan.com'); 
$smtp->mail('toto@alcan.com'); 
$smtp->to('toto@alcan.com'); 
$smtp->data(); 
$smtp->datasend('To: toto@solendi.com'."\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