No llegan los correos con CdoSys

[Brewster]

Buenas tardes.-

Estoy intentando desde una web en local mandar un correo, el código es el siguiente.-

<%
Set oMail = Server.CreateObject("CDO.Message")

oMail.From = "[email protected]"
oMail.To = "[email protected]
oMail.Subject= "Asunto de vital importancia local "
oMail.TextBody = "El cuerpo del mensaje"

oMail.Send

Set oMail = Nothing

response.write("Enviado...")
%>

La DLL de CDOSYS.DLL la tengo perfectamente registrada, y al ejecutarlo no me da ningún error, pero han pasado más de 20 minutos y no llega ningún correo.

He leido que el CDONT daba problemas con el XP (que es desde donde lo ejecuto) pero que el CDOSYS no da ningún problema con XP.

Gracias

[Brewster]

Creo que ya se cual puede ser el problema, el sistema de correo que tenemos instalado en local en el ArGoSoft Mail Server, por tanto suponemos que el código ASP varia para este servidor de correo.

¿Alguien tiene una idea de como usar el CDOSYS para este servidor de correo?, ¿O acaso necesita registrar una dll distinta al CDOSYS.dll?

Gracias

[lexus]

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "TITULO DEL EMAIL"
objMessage.Sender = "EL QUE MANDA EL MENSAJE"
objMessage.To = "EL QUE LO RECIBE"
ObjMessage.HTMLBody ="CUERPO DEL MENSAJE (EN ESTE CASO HTML)"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/con...tion/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "SERVIDOR SMTP"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/con...smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/con...nectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
set objmessage=nothing