Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

maurohpg

Erro ao enviar Newsletter

Recommended Posts

Estou tentando enviar uma newsletter qdo testei com 10 emial funcinou agora o banco esta com 1000 e está dando o seguinte rerro:

 

Persits.MailSender.4 error '800a0006'

 

550 unknown user <br >

 

/mauro/newsletter/send2.asp, line 68

 

a lista 68 é

 

<!--#include file="loggedin.asp"-->

<!--#include file="dsn.asp"-->

<!--#include file="body.asp"-->

 

<%

Server.ScriptTimeout = 5000000

Set RS = Server.CreateObject("ADODB.Recordset")

Set RSBODY = Server.CreateObject("ADODB.Recordset")

SQL2 = "SELECT * from Settings"

RSBODY.Open SQL2, Conn, 1, 3

 

SQL = "SELECT Email FROM List"

RS.open SQL, conn

 

Select Case RSBODY("Component")

 

Case "CDONTS"

 

Do While Not RS.eof

set mailObj = Server.CreateObject("CDONTS.NewMail")

If (Request("Format") = "Text") Then

mailObj.BodyFormat = 1

mailObj.MailFormat = 1

Else

mailObj.BodyFormat = 0

mailObj.MailFormat = 0

End If

mailObj.From = RSBODY("From_Email")

mailObj.To = RS("Email")

mailObj.Subject = Request("Subject")

mailObj.Body = Request("Body")

mailObj.Send RS.movenext

Loop

 

Case "ASPMail"

 

Do While Not RS.eof

Set mailObj = Server.CreateObject("SMTPsvg.Mailer")

If (Request("Format") = "Text") Then

mailObj.CharSet = 2

Else

mailObj.ContentType = "text/html"

End If

mailObj.FromName = RSBODY("From_Email")

mailObj.FromAddress= RSBODY("From_Email")

mailObj.RemoteHost = RSBODY("SMTP")

mailObj.Subject = Request("Subject")

mailObj.BodyText = Request("Body")

mailObj.AddRecipient RS("Email"),RS("Email")

mailObj.SendMail

RS.movenext

Loop

 

Case "ASPEmail"

 

Do While Not RS.eof

Set mailObj = Server.CreateObject("Persits.MailSender")

mailObj.Host = RSBODY("SMTP")

mailObj.From = RSBODY("From_Email")

mailObj.AddAddress RS("Email")

mailObj.Subject = Request("Subject")

mailObj.Body = Request("Body")

If (Request("Format") = "Text") Then

mailObj.IsHTML = False

Else

mailObj.IsHTML = True

End If

mailObj.Send (linha 68)

RS.movenext

Loop

 

End Select

Compartilhar este post


Link para o post
Compartilhar em outros sites

O e-mail de um dos registros não está cadastrado errado de forma que de erro quando ele tenta mandar o e-mail?

Compartilhar este post


Link para o post
Compartilhar em outros sites
É pode ser mesmo, não hiavia pensado nisso, mais eu tb descobri que o meu servidor bloqueia por IP a quantidade de emails enviado por hora a 300 emails será que pode dar erro tb por isso?
Tem grandes chances de ser isso.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.