error en programa que envia email

[vpino]

Hola señores. aqui estoy nuevamente tocando puertas ante la dificultad para enviar emails atraves de asp. estoy probando con algunas rutinas puestas en este foro pero aun no he logrado mayor cosa por lo tanto agradezco cualquier manito que me ayude.

estoy probando con este programa y me saca error en la linea
objMessage.Send


Tipo de error:
(0x8004020F)
La clase de suceso para esta suscripción está en una partición no válida

<%
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Email de prueba"
objMessage.Sender = "[email protected]"
objMessage.To = "[email protected]"
ObjMessage.HTMLBody ="Esto es una prueba para ver si llega el email con CDOSYS"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.4"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing

%>

por adelantado mil gracias a quien me colabore.

[trasgukabi]

Al servidor smtp le pasa algo. O no acepta conexiones desde fuera de localhost o del dominio, o algo así. O te has equivocado al poner la IP