Ir para conteúdo

POWERED BY:

Arquivado

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

natalia

Envio de e-mail em massa

Por , em ASP Clássico

Recommended Posts

natalia    0

natalia
Postado

Oi pessoal,Eu achei um código para envio de email e fazendo os testes vi que ele envia os e-mails mas dá este erro no final:E-MAIL ENVIADO COM SUCESSO! ADODB.Field error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /teste_email.asp, line 63 Pque será?<!--#include file="con.asp"--><%Response.Buffer = True Dim pagina_atual, total_paginas, ComandoSQL, objRS, objRS_atualiza, status_envioConst registros_por_pagina = 2If Request.QueryString("pagina_atual") = "" Or Request.QueryString("pagina_atual") = "0" Thenpagina_atual = 1Elsepagina_atual = Request("pagina_atual")End IfOpen_conComandoSQL = "SELECT Email, Nome FROM Teste ORDER BY Email ASC"Set objRS = Server.CreateObject("ADODB.Recordset")objRS.CursorType = 2objRS.LockType = 1objRS.CacheSize = registros_por_paginaSet objRS = Conexao.Execute(ComandoSQL)objRS.PageSize = registros_por_paginastatus = ""If Not objRS.EOF ThenobjRS.AbsolutePage = pagina_atualtotal_paginas = objRS.PageCountstatus_envio = status_envio & Fix((pagina_atual*100)/total_paginas) & "% enviado<br>"For Cont = 1 to objRS.PageSizeMensagem = ""Mensagem = Mensagem &"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"Mensagem = Mensagem & "<HTML><HEAD>"Mensagem = Mensagem & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"Mensagem = Mensagem & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"Mensagem = Mensagem & "<BODY leftmargin=0 rightmargin=0 bottommargin=0 topmargin=0>"Mensagem = Mensagem & "<FONT face=Arial size=2>Ola,<br><b>Teste de envio de e-mail</b></FONT>"Mensagem = Mensagem & "</BOBY>"Mensagem = Mensagem & "</HTML>"varEmail = objRS("Email")Set Mail = Server.CreateObject("Persits.MailSender")Mail.Host = "200.152.209.4"Mail.From = "teste@teste.com.br"Mail.FromName = "Nome"Mail.AddAddress varEmailMail.Subject = "Teste"Mail.Body = MensagemMail.IsHTML = Trueif Mail.Send then Response.Write "E-MAIL ENVIADO COM SUCESSO!"else Response.Write mail.responseend if'response.endobjRS.MoveNextNext%><html><head><title>Newsletter</title></head><body><%If Int(pagina_atual) < Int(total_paginas) ThenResponse.Write status_envio%><br>Aguarde o envio da newsletter...<script LANGUAGE="JavaScript"><!--function atualiza(){document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina_atual=<%=pagina_atual+1%>"}setTimeout("atualiza()",5000);//--></SCRIPT><%Else%>Envio da Newsletter concluido.<%End IfEnd If%></body></html><%objRS.CloseClose_conSet pagina_atual = NothingSet total_paginas = NothingSet ComandoSQL = NothingSet objRS = NothingSet objRS_atualiza = NothingSet Conexao = NothingSet status_envio = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Terá que acrescentar um teste de .EOF no ponto que faz o envio do email , pois ele está fazendo um FOR usando o PageSize, que é fixo, e pode não corresponder ao numero de registros naquele momento do RecordSet.

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

Não sei se ajuda, nao fiz ainda, mas achei bem interessante!Na home do iMasters na secao de matérias de ASP tem um esquema de enviar email em massa que ficou muito bom!Da uma olhada!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito