hola trasgukabi, lo primero gracias por responder.
e estado probando mas soluciones y comentarte que en principio el smtp de esa máquina parece funcionar ya que es los correos que se envian de esa empresa llegan sin problemas y un antiguo formulario que tienen también les funciona bien, pero no me dejan ver ese formulario, lástima se podrían solucionar muchas cosas. me han comentado que utilice en vez del mail.empresa.com el numero ip que me han pasado por lo que e probado de esta forma:
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
strSendTo = "
[email protected]"
strFrom = "
[email protected]"
objCDOSYSMail.To = strSendTo
objCDOSYSMail.From = strFrom
objCDOSYSMail.Subject = strName & " - " & strSubject
objCDOSYSMail.HTMLBody = strHTML
'Out going SMTP server
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "165.125.80.28"
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSMail.Configuration.Fields.Update
objCDOSYSMail.Send
Pero me vuelve a salir un error:
CDO.Message.1 error '80040222'
Es necesaria la ruta de acceso del directorio de recogida, pero no se especificó.
/correo/contacto.asp, línea 172
Comentar que para estar seguro de que esta el componente CDO instalado y hacer pruebas e utilizado el código de PensaWorks, el Mailer component text y me dice que si esta instalado pero al hacer las pruebas con este mismo código me da también error, la verdad es que esto no me había pasado nunca,
Un saludo