Discussion :

[saskee]

Bonjour,
J'aimerai bien savoir svp comment faire pour envoyer un mail à un destinataire donné à partir d'un script perl.
Je sais qu'il ya des modules perl qui peuvent faire ca comme Mail::Sender .
En effet J'ai essayé avec le programme suivant mais son execution m'affiche:
"Authentification protocol SSL is not accepted by the server"
Voici mon script:

#!/usr/bin/perl
use Mail::Sender;
$sender = new Mail::Sender;
if ($sender->MailMsg({
smtp => 'smtp.mail.yahoo.fr',
from => 'saskee@yahoo.fr',
to =>'saskee@yahoo.fr',
subject => 'test',
msg => "test"
auth => 'SSL',
authid => 'saskee',
authpwd => 'saskee',
}) < 0) {
die "$Mail::Sender::Error\n";
}
print "Mail sent OK."

Je pense que le Mail::Sender ne supporte pas par defaut SSL comme auth mais des autres authentifications et pour utiliser SSL il faut installer peut etre des librairies perl mais je ne les connais pas.
Aidez moi SVP et merci beaucoup d'avance.

[saskee]

Aidez moi SVP à resoudre mon probleme d'envoi mail, C'est trés important. merci beaucoup d'avance.

[Jedai]

Utilise Net::SMTP::SSL, tu auras besoin de IO::Socket::SSL.

--
Jedaï

[Jedai]

Tu devrais utiliser les balises CODE (bouton # dans l'interface), sinon ton code devient illisible.

Net::SMTP a une documentation un peu austère, ne t'inquiète pas, il te suffit de faire :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl
use strict; use warnings;
 
use Net::SMTP::SSL;
 
# je suppose que ton port est bien 465 ?
my $smtps = Net::SMTP::SSL->new('smtp.mail.yahoo.fr', Port => 465);
 
die "$!" unless defined $smtps;
 
$smtps->auth('saskee', 'saskee');
$smtps->mail('saskee@yahoo.fr');
$smtps->to('saskee@yahoo.fr');
 
my $ok = $smtps->data(<<EOM);
To: saskee@yahoo.fr
From: saskee@yahoo.fr
Subject: test
 
Test ?!
EOM
 
if( $ok ) {
  print "Message envoyé\n";
} else {
  print "Problème... $!";
}
 
$smtps->quit;

--
Jedaï