SQL Server - CDO Mandar mail

Hola gente!!! les comento cual es mi problema, tengo que realizar un scritp que mande mail en sql server 2005 utilizando el objeto CDO, y como smtp "smtp.mail.yahoo.com" validando usuari y pass, el problema es que meda el siguiente error: The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available
mi codigo es siguiente
declare @hr int
declare @iMsg int
declare @To nvarchar(40)
declare @From nvarchar(40)
declare @Subject nvarchar(40)
declare @Body nvarchar(40)
declare @description nvarchar(1000)
declare @source nvarchar(1000)
declare @output nvarchar(1000)

set @To = '[email protected]'
set @From = '[email protected]'
set @Subject = 'prueba'
set @Body = 'anda??'

EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', 'smtp.mail.yahoo.com'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendUsername").Value', '[email protected]'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendPassword").Value', '**********'
EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields(@"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value', '3'
-- Save the configurations to the message object.
EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null

-- Set the e-mail parameters.
EXEC @hr = sp_OASetProperty @iMsg, 'To', @To
EXEC @hr = sp_OASetProperty @iMsg, 'From', @From
EXEC @hr = sp_OASetProperty @iMsg, 'Subject', @Subject

EXEC @hr = sp_OASetProperty @iMsg, 'TextBody', @Body
EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL
print @hr

IF @hr <>0
select @hr
BEGIN
EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT
IF @hr = 0
BEGIN
SELECT @output = ' Source: ' + @source
PRINT @output
SELECT @output = ' Description: ' + @description
PRINT @output
END
ELSE
BEGIN
PRINT ' sp_OAGetErrorInfo failed.'
RETURN
END
END

EXEC @hr = sp_OADestroy @iMsg

PRINT 'Mail Sent!'

Si alguien me puede dar una ayuda desde y gracias

El mensaje dice: "The server response was not available"

Supongo, que el servidor "smtp.mail.yahoo.com", no lo puede accesar

te cuento que yo estoy en las mismas condiciones y con un ejercicio similar.
si alguien te ha dado la respuesta o si alguien por alli tiene alguna respuesta al caso.
estaré muy agradecido en hacérmela llegar.
gracias.