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.
Partager