error 8004020F

[luisicozgz]

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