Servidor SMTP con CDOSYS

[Moises22]

Como veis soy el mismo que puso el post de CDONTS, y por el cual he deducido que jamás me funcionará, aunque en el mi casa si funciona, !!!INCREIBLE¡¡¡¡¡

Ante este problema voy a utilizar CDOSYS a ver si me funciona bien por alli. Este es el código para el envio del email:

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/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"
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

La duda que me surge es, ¿¿ Que debo de poner aqui ?? ¿ Donde miro el nombre de mi servidor SMTP ??:

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"

Si me pusieran un ejemplo también se agradeceria. Espero poder solucionar mi problema con CDOSYS

[Moises22]

Acabo de probarlo, suponiendo que en SERVIDOR SMTP va el dominio predeterminado de correo que sale en el IIS. Lo he puesto en la cadena de conexion, y me da el siguiente error:

Tipo de error:
(0x8004020F)
La clase de suceso para esta suscripción está en una partición no válida
/insertardatos.asp, línea 379

[Moises22]

Me he creado otro script en ASP, que solo manda el mensaje. Este es el script:

<%
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") = "Aqui pongo el dominio predeterminado de correo local"
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

%>

Me lo envia directamente a la carpeta Badmail

[Moises22]

EL problema se ha solucionada. El error era que en la intranet del trabajo estaban fallando llegadas y salidas de emails. Por lo visto el Firewall de alida externa impedia el envio de correos de esta manera, asi que estos cuatro dias esudiando CDOSYS y CDONTS, han servido solo para desquisiarme.... AHORA COMPRENDO PORQUE NO ME RESPONDIAIS, ESTABA TODO BIEN ;)