Hello,
 
Je cherche un script en Perl permettant d'envoyer un mail via une page web....
 
Merci  

cherche sur le net yen a plein,
sinon c vite ecri

voici une fonction écris en Perl ki envoi un mail tester sous Linux car sendmail pas essayer sous Windows,
 
$corp contient le corp du mail
@tete estun tableu ki contient
$tete[0] = email de l'emetteur
$tete[1] = email du destinataire
$tete[2] = sujet du mail
 
ensuite tu peu l'améliorer ebn ajoutant une adresse de retour si le mail du destinaire n'est pas bonne .....
a toi de chercher
 
sub envoimail {
 my ( $corps ) = shift;
        my ( @tete ) = shift;
 
open(SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq" ) or die "fork impossible pour SendMail : $!\n";
print SENDMAIL <<"EOF_MAIL";
From: $tete[0]  
To: $tete[1]
Subject: $tete[2]
 
$corps
 
EOF_MAIL
 
close(SENDMAIL) or warn "Sendmail ne s'est pas fermé correctement\n";
}

Marchi beacoup 8-)