function controle_email ( $email )
{
global $SERVER_NAME;
$rep = "PasOK";
// nom de domaine du site exécutant ce script et qui sera utilisé pour
// interroger le(s) serveur(s) de mail
$domaine = explode(".", $SERVER_NAME);
$nbre = count($domaine);
$domaine_sender = $domaine[$nbre-2].".".$domaine[$nbre-1];
list ( $user, $domain ) = split( "@", $email, 2 );
// on teste d'abord la syntaxe de l'adresse
if (eregi("^[_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,6}$",$email))
{
if ( getmxrr( $domain, $mxhosts, $weight ) )
{
$nbremx = count($mxhosts);
while (list($cle, $val) = each($weight))
{
}
asort($weight);
while (list($cle, $val) = each($weight))
{
}
reset($weight);
$cle = key($weight);
$poids = current($weight);
while (list($cle, $val) = each($mxhosts))
{
}
// $iter nous servira à compter le nombre de serveurs testés
// avant d'obtenir une réponse SMTP positive
$iter = 0;
// on se cale sur $weight trié pour faire un tour dans
// le bon sens des serveurs mx
while (list($i, $val) = each($weight))
{
$fp = fsockopen( $mxhosts[$i], 25 );
if ( $fp )
{
$s = 0;
$out = "";
$out = fgets( $fp, 512 );
if ( ereg( "^220", $out ) )
{
// on a obtenu une réponse du serveur, on tente de
// discuter avec lui en SMTP
fputs( $fp, "HELO $SERVER_NAMErn" );
$output = fgets( $fp, 512 );
fputs( $fp, "MAIL FROM: <webmaster@".$domaine_sender.">rn" );
$output = fgets( $fp, 512 );
fputs( $fp, "RCPT TO: <$email>rn" );
$output = fgets( $fp, 512 );
if ( ereg( "^250", $output ) )
{
// le serveur nous répond et connait notre destinataire
$rep = "OK";
}
else
{
// le serveur nous répond mais ne connait pas
// notre destinataire
$rep = "PasOK";
}
fputs( $fp, "QUITrn" );
fgets($fp,512);
fclose( $fp );
if ( $rep == "OK" )
{ break; }
}
else
{
// serveur indifférent à notre requête
$rep = "PasOK";
}
}
else
{
// on n'a même pas pu obtenir de connexion avec ce serveur !
$rep = "PasOK";
}
$iter++;
} // fin de la boucle sur le tableau des serveurs
if ($iter > $nbremx)
{
// tous les serveurs recencés ont été scannés et auncun n'a
// accepté une connexion ou répondu positivement
$rep = "PasOK";
}
}
else
{
// aucun enregistrement MX trouvé pour ce domaine
if ( checkdnsrr( $domain, "SOA" ) )
{
$rep = "PasOK";
}
}
}
return $rep;
}

@pinpon : Les messages n'apparaissent qu'après avoir cliqué sur envoyé ?