Discussion :

[vince2005]

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

[Jedai]

Ce message d'erreur signifie que la connexion au serveur smtp a échoué (l'objet Net::SMTP retourné par new() était donc indéfini, normalement on teste ça avant de continuer).
Si avant ça marchait, ça vient soit d'un changement de politique de ton serveur SMTP (par exemple il demande une identification maintenant), soit d'un problème de connexion/parefeu chez toi.

--
Jedaï

[spirit_epock]

Salut remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $smtp = Net::SMTP->new('smtp.alcan.com');

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $smtp = Net::SMTP->new('smtp.alcan.com') or die "Connexion SMTP impossible\n : $!";

Comme ça , tu personnalise ton msg et en plus $! te revoit l'erreur rencontrée.

Au lieu de couper avec die tu peux aussi mettre warn pour juste être averti.
Fais cette manip pour chaque partie du mail.

[vince2005]

suite à la modification, j'ai un message d'erreur $! "Bad file descriptor at C:\proc\envoiemsg.pl line 10." qui correspond à ma ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$smtp = Net::SMTP->new('smtp.alcan.com')
or die "Connexion SMTP impossible\n: $!";

Biensur la connxion est impossible

[vince2005]

merci ça marche

[djibril]

tag resolu