Persits.MailSender.4 error '800a0006'

[Joselete]

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!!!!

[Joselete]

heeeeeeeeeeeelp!!

[roortiz]

yo tengo un problema parecido, solo que en mi caso el mensaje no se envia en ningun caso dandome el siguiente mensaje de error:

Persits.MailSender.4 error '800a0006'
550 5.7.1 Unable to relay for [email protected]
/enviomail.asp, line 98
El codigo que uso es el siguiente:

Ape = TRIM( Request("apenom"))
Ema = TRIM( Request("email"))
Ciu = TRIM( Request("ciudad"))
Men = TRIM( Request("mensaje"))

IF ema <> "" THEN
Set myMail = Server.CreateObject("Persits.MailSender")
myMail.Host = "mail.mipagina.com.ar"
myMail.From = ema
myMail.FromName = apenom
myMail.AddAddress "[email protected]"
myMail.Subject = "Mensaje de " & apenom
myMail.Body = men
myMail.Send
Set myMail = Nothing
Response.Redirect "gracias.asp"
ELSE
Response.Write "error.asp"
END IF
no se que error tiene el codigo....

[pablinff]

JosJoselete:
Si no me equivoco tu problema está en que tu variable nombre no tiene ningun valor asignado, tendrías que hacer algo así:
nombre = "[email protected]"
Roortiz:
Tu problema está en que si querés enviar e-mails a cuentas que no pertenezcan al mismo host que de donde mandas, te da ese error.
Para eso tenés que poner una dirección real y una autentificación.

Código:

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.dominio.com.ar"
Mail.Port = 25
Mail.Username = "[email protected]"
Mail.Password = "contraseña de esa cuenta"
Mail.From = ema
Mail.FromName = apenom
myMail.Subject = "Mensaje de " & apenom
myMail.Body = men
myMail.Send

Saludos!

[allhen]

http://www.forosdelweb.com/f15/codigo-para-envio-mails-gratis-completo-455920/

[gorka_22]

Gracias!!! Tenia el mismo problema y con lo del username y password se ha solucionado!!!