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";
}
---------------
Tout à commencé par un rêve...
