Ver Mensaje Individual
  #1 (permalink)  
Antiguo 31/01/2005, 11:26
Avatar de Joselete
Joselete
 
Fecha de Ingreso: septiembre-2001
Ubicación: Granada, España
Mensajes: 263
Antigüedad: 23 años, 8 meses
Puntos: 0
Persits.MailSender.4 error '800a0006'

Buenas tardes!

Vereis, he tenido q acoplar el sistema de envio de mails a través de mi web de CDONTS a ASPemail, por "exigencias" del servidor

Pués bien, os explico el caso:

Tengo un menu de administrador en el q doy de alta grupos, y dentro de estos declaro tantos usuarios como quiera, con sus respectivos mails.
Pués bien, cuando intento mandar un mail desde el asp con formato HTML con Persits, pues se manda perfectamente siempre y cuando el grupo SOLO contenga un usuario (un solo mail), sin embargo, cuando el grupo contiene mas de un usuario (mas de un mail) pues me devuelven el siguiente error:

Persits.MailSender.4 error '800a0006'
Badfile index


El código q uso es este:

<% if mensaje <> "" then
' if instr(destino,"@")<>0 and instr(destino,".")<>0 then
'Dim objMail As CDONTS.NewMail
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
destino="[email protected]"
'response.Write("Nombre" & nombre & "<--" & "<br>")
'response.Write("destino" & destino & "<--" & "<br>")

Mail.From = destino
Mail.AddAddress nombre
Mail.Subject = asunto
Mail.IsHTML = True
Mail.Body = html
Mail.Host = "smtp.midominio.com"
Mail.send
Set Mail = Nothing

'objMail.From = nombre
'objMail.To = destino
'objMail.Subject = asunto
'objnewmail.BodyFormat = 0
'objnewmail.MailFormat = 0
'objMail.Body = html
'objMail.Send
'Set objMail = Nothing


' end if
correcto=0
else
correcto=1
end if


Si me podeis orientar de cual es mi error, os estaria muy agradecidos

Gracias!!!!
__________________
"El Universo simpre quiere que ganemos"