Forum Clubic

[RESOLU] PERL envoi de mail

Bonjour a tous, voila, j’ai ecri un script perl pour envoyé des mail, mais ca bug, j’ai pas de message d’erreur, mais je ne les recoi pas:


# Les variables suivantes peuvent être initialisées dans votre script
# ou transmises en paramètre
$smtpserver = "MonServeurSMTP";
$from = "ServiceInfo@.......";
$replyaddr = "mehdi@......";
$to = "mehdi@.......";
$subject = "URGENT: Disque C plein\n";
$message = "Le disque dur de est plein\n";

# Envoi du message
my $smtp = Net::SMTP->new("$smtpserver", Timeout => 120);
$smtp->mail("$from");
$smtp->to("$to");
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Reply-to: $replyaddr\n") if $replyaddr;
$smtp->datasend("X-Mailer: Perl Sendmail \n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit();

exit;

qq’un a une idee… merci

Est-ce que tu as essayé avec un autre serveur SMTP ?

Si tu te connectes manuellement au serveur via telnet sur le port SMTP, est-ce que ça fonctionne ou bien est-ce qu’il t’envoie ballader ? Est-ce que tu es sûr que ton serveur SMTP ne nécessite pas un mot de passe ou une quelconque authentification ?

Le serveur smtp fonctionne parfaitement, je l’utilise tt les jour !!! cela ne viens pas de la !
Par contre, oui, of course, il me faut un login et mdp… :riva: j’ai un peu honte la dessus, par contre, je ne sais pas comment lui passé en parametre !!

Bon j’ai avancé un peu, en fait, le port par defaut n’etait pas le 25, maintenent, il me dit:
Can’t call method “mail” on an undefined value at E:\Scripts\mail.pl line 16.

pourtant, j’ai bien mi “use Net::SMTP;”

qq’un a une idée?