Hola, tengo la siguiente funcion para mandar mails en ASP y tengo el siguiente error:
error 8004020F en la linea 85 que es msg = ObjMail.Send
El codigo de la función es el siguiente:
function SendMail(sTo, sFrom, sPriority, sSubject, sBody, bHTML,adjuntos)
Set ObjMail = Server.CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sistema_de_mail
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sistema_de_mail_puerto
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = sistema_de_mail_user
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sistema_de_mail_pass
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objConfig.Fields.Update
Set objMail.Configuration = objConfig
ObjMail.From = mail_nombre_empresa & "<" & mail_empresa & ">"
ObjMail.Subject = sSubject
objMail.To = sTo
if adjuntos <> "" then
cadena = split(adjuntos,"=")
for z = lbound(cadena) to ubound(cadena)
if cadena(z) <> "" then
ObjMail.AddAttachment server.MapPath(trim(cadena(z)))
end if
next
end if
objMail.HTMLbody = sBody
msg = ObjMail.Send
set objMail = Nothing
set objConfig = Nothing
end function
Muchas gracias por la ayuda
