function checkMail($Email) {

	global $HTTP_HOST;

	if (!eregi("^[_a-z0-9-]+(.[_a-z0-9-]+)*@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,3})$", $Email)) {

        	return false;

   	}

    	list ( $Username, $Domain ) = split ("@",$Email);



    	if ( checkdnsrr ( $Domain, "MX" ) )  {

        	$ConnectAddress = $MXHost[0];

    	} else {

        	$ConnectAddress = $Domain;         

    	}



    	$Connect = fsockopen ( $ConnectAddress, 25 );



    	// Success in socket connection

    	if ($Connect) {

        	if ( ereg ( "^220", $Out = fgets ( $Connect, 1024 ) ) ) {

            		// Inform client's reaching to server who connect.

            		fputs ( $Connect, "HELO $HTTP_HOSTrn" );

            		$Out = fgets ( $Connect, 1024 ); // Receive server's answering cord.

            		// Inform sender's address to server.

            		fputs ( $Connect, "MAIL FROM: rn" );

            		$From = fgets ( $Connect, 1024 ); // Receive server's answering cord.

            		// Inform listener's address to server.

            		fputs ( $Connect, "RCPT TO: rn" );

            		$To = fgets ( $Connect, 1024 ); // Receive server's answering cord.

            		// Finish connection.

            		fputs ( $Connect, "QUITrn");

            		fclose($Connect);



                	if ( !ereg ( "^250", $From ) || !ereg ( "^250", $To )) {



                    		return false;

                	}

       

		}



    	} else {



        	return false;

    	}



    	return true;

}