Foros Club Delphi - Enviar email

Hola, estoy intentando enviar un email con PHP mediante el siguiente código:

Código:

function enviar_correo ( $ServidorCorreo, $puerto, $autentificacion, $UsuarioQueEnvia, $password, $destinatario, $titulo, $mensaje ) {

        



    header('Content-Type: text/plain');

    $params['host'] = $ServidorCorreo;                

    $params['port'] = $puerto;                        

    $params['helo'] = exec('hostname');            

    $params['auth'] = $autentificacion;                

    $params['user'] = $UsuarioQueEnvia;          

    $params['pass'] = $password;                



    $send_params['recipients']    =  "$destinatario@$ServidorCorreo";

    $send_params['headers']        = array(

                                        "From: <$UsuarioQueEnvia@[$ServidorCorreo]>",  

                                        "To: $destinatario@[$ServidorCorreo]', 'Subject: $titulo' "

                                       );

    $send_params['from']        = "$UsuarioQueEnvia@[$ServidorCorreo]";                                    

    $send_params['body']        = "$mensaje";                               



    if(is_object($smtp = smtp::connect($params)) AND $smtp->send($send_params)){

        echo 'Email sent successfully!'."\r\n\r\n";



        print_r($smtp->errors);



    }else{

        echo 'Error sending mail'."\r\n\r\n";

        



        print_r($smtp->errors);

    }

Llamo a la función:

Código:

enviar_correo ( "smtp.mail.yahoo.com", 25, true, "usuario@origen", "password", "usuario@destino", "prueba", "correo enviado" );

Pero no llegan los correos. Estoy probando de enviarme un correo desde mi cuenta del Yahoo hacia mi propio usuario para testear la función, pero no sé por qué no llegan. ¿Alguien sabe donde puede estar el fallo?

Gracias.