Servidor SMTP con CDOSYS
 

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

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

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

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 ;)