Hola muy buenas, tengo un problema con el envio de un formulario. En mi servidor como trabajamos con w2000 e utilizado el CDONTS, pero ahora lo hemos migrado a un w2003 con asp.net y no e logrado que funcione aun pasandolo a CDO, a lo primero me daba este fallo:
CDO.Message.1 error '80040220'
No es válido el valor de configuración "SendUsing".
/correo/contacto.asp, línea 172
la linea 172 es justamente el send, el codigo es este:
Set objCDOSYSMail = CreateObject("CDO.Message")
objCDOSYSMail.To = strSendTo
objCDOSYSMail.From = strFrom
objCDOSYSMail.Subject = "formulario de envio"
objCDOSYSMail.HTMLBody = strHTML
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Despues de buscar por los foros y por google e pasado a poner esto:
Set objCDOSYSMail = CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miserver.es"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.To = strSendTo
objCDOSYSMail.From = strFrom
objCDOSYSMail.Subject = "formulario web"
objCDOSYSMail.HTMLBody = strHTML
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
pero ahora me da este error
error '8004020f'
/correo/contacto.asp, línea 179
y esa linea sigue siendo el send
, eso que puede ser, que el servidor smtp de máquina está desactivado????? o no configurado?? o que puede ser?
Un saludo