Erro no envio de Email

[Davide Ricardo 0]

o erro que me dá é o seguinte:

 

The server rejected one or more recipient addresses. The server response was: 550 5.7.1 Unable to relay for meuemail@dominio.com

 

o código que eu tou a utilizar é o seguinte:

 

<% Dim objCDO
on error resume next
Set objCDO = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

' Servidor SMTP de Saída
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "colocoAquiOUserName"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "colocaAquiaPasswd"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 90
objCDOSYSCon.Fields.Update

' Altere a configuração do CDOSYS
Set objCDO.Configuration = objCDOSYSCon
objCDO.To = "email@dominio.com.br"
objCDO.From = "email@dominio.com"
objCDO.Subject = "Teste CDOSYS"
bodyHTML = "O CDOSYS Funcionou!"
objCDO.HTMLBody = bodyHTML
objCDO.Send

if objSend = 0 then
	response.write "Fixe! funciona"
else
	response.write "erro!"
end if

Set objCDO = Nothing
Set objCDOSYSCon = Nothing

if err.number <> 0 then response.write err.description
%>

[Salgado 4]

A descrição já indica o erro:

O Servidor rejeitou um ou mais endereços de envio. A resposta do servidor foi: 550 5.7.1 Incapaz de entregar (?) (relay) para meuemail@dominio.com

 

Se você está testando com um loop de e-mails, um deles é inválido.

[Davide Ricardo 0]

não senhor.. eu tou a testar com os meus emails..

por isso nao percebo o erro