Como enviar varios emails com este codigo?

[Carlos Moreira 0]

Ola pessoal estou montando uma newsletter e estou usando o codigo abaixo para envio de um email apenas ele vem certinho!!! POREM para vários ele da erro

 

'Aqui a mesma declaração que você vem usando para criar o objeto do e-mail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = titulo
Mailer.FromAddress= "contato@circuitovirtual.com.br"
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "Pedido", [b]email_cliente[/b]

Mailer.ContentType = "text/html" ' formatação html

Mailer.Subject = "teste"

body = materia

Mailer.BodyText = body

if Mailer.SendMail then
Response.redirect "newsletter_form.asp"
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if

onde esta em negrito acima é onde vai o email

 

o que posso fazer?

[ericdbx 0]

Amigo,

 

1º use a tag de codigo!!!

2º que erro apresenta??

3º voce esta enviando um por um?

[Carlos Moreira 0]

Kra meu codigo é este e ocorreo o seguinte no CAMPO MATERIA eu uso um FCKEditor ele envia SOMENTE se eu coloco apenas texto se eu formato o texto ele NAO envia o que sera o erro?

 

Obs: nao apresenta erro algum simplesmente faz o processo normal mas os emails nao chegam!

 

Eis o codigo

 

Session.LCID = 1046

categoria = Request.Form("categoria")
titulo = Request.Form("titulo")
materia = Request.Form("materia")

Call abre_conexao1(ConnString,Conn)

sql = "SELECT * FROM newsletter"
Set RScateg = Conn.Execute(sql)
do until RScateg.eof

email_cliente = RScateg("email")


'Aqui a mesma declaração que você vem usando para criar o objeto do e-mail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = titulo
Mailer.FromAddress= "email@email.com.br"
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "Pedido", email_cliente

Mailer.ContentType = "text/html" ' formatação html

Mailer.Subject = titulo

Mailer.BodyText = materia

if Mailer.SendMail then
Response.redirect "newsletter_form.asp"
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if


RScateg.movenext
loop
RScateg.Close 
Set RScateg = Nothing
Call fecha_conexao1()