Ir para conteúdo

POWERED BY:

Arquivado

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

nostrinkes

obrigado

Por , em ASP Clássico

Recommended Posts

nostrinkes    0

nostrinkes
Postado

Eu queria enviar um aviso a todos emails da minha lista do banco de dadosmais como eu uso o loop neste caso?é necessário eu dar loop em todo o envio... ou tem uma forma de separar com virgula cada email?Mais uma vez obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

DouGuAra    0

DouGuAra
Postado

Fala mano, bom dia, então

 

Data = Date()

sSQL="SELECT * FROM Masters"

Set rs=ConnStr.Execute(sSQL)

emailadministrador=rs("email")

Set rs=Nothing

sql_select = "select * from Lista"

no = 0

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

rs_sendmail.Open sql_select, ConnStr

if rs_sendmail.EOF then

Response.write "<br><br><center><font face=arial size=2>" & Msg_NenhumEmail & "</font></center>"

Else

strSQL = "Select * from email .................."

ConnStr.Execute(strSQL)

Response.write "<br><br><font face=arial size=""2"">" & Msg_HistoricoAdicionado & "</font><br>"

 

 

While Not rs_sendmail.EOF

Set mail = Server.CreateObject("CDONTS.NewMail")

mail.From=emailadministrador

mail.To=rs_sendmail("email")

mail.Subject=Assunto

Mail.BodyFormat=0

Mail.MailFormat=0

mail.Body = Mensagem & "<BR><BR><font face=arial size=2> Mensagem </font>"

mail.Send

Set mail = Nothing

no = no + 1

rs_sendmail.MoveNext

Wend

Response.Write "<br><font face=arial size=2>Total de Emails enviado:  " & no & " email(s).</font>"

rs_sendmail.Close

Set rs_sendmail = Nothing

End If

%>

1º Como você mesmo vé aqui While e aqui Wend termina, ele tb tem uma condição e verifica se o banco tem ou não email cadastrado

 

2º dois

 

Então, como você vê lá em cima tem um NO = 0 isso quer dizwer que o contador vai iniciar, ele não pode iniciar com 0 , dai o contador ficara errado, aqui ele tras no final do sistema no = no + 1 ele vai fazendo um loop´, acumulando no na variavel NO e somando cada vez

 

 

Abraços....

Compartilhar este post

Link para o post
Compartilhar em outros sites

DouGuAra    0

DouGuAra
Postado

Bom dia colegaobrigado agora eu tenho com que quebrar a cabeça.valeu...qualquer coisa é só dar um grito.

Mano é só isso hem faz um select lendo a tabela email e de boa

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

tive que alterar o codigo acima para minha tabela, mais deu um erro estranho.ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /supervisao/env_cdonts.asp, line 8 ´--------------------------------------------------------------------------------------------<!--include file="conexao.asp"--><%no = 0Data = Date()'--------------------------------Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT email FROM usuarios"RS.open sql,db,3,3 '---------------------linha do erro.While Not RS.EOFSet mail = Server.CreateObject("CDONTS.NewMail")mail.From= "tamoakiatoa@zipmail.com.br"mail.To= RS("email")mail.Subject= AssuntoMail.BodyFormat=0Mail.MailFormat=0mail.Body = Mensagem & "<BR><BR><font face=arial size=2> Mensagem </font>"mail.SendSet mail = Nothingno = no + 1RS.MoveNextWendResponse.Write "<br><font face=arial size=2>Total de Emails enviado: " & no & " email(s).</font>"RS.CloseSet RS = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Olha o código...<!--#include file="conexao.asp"--><%Set RS = Server.CreateObject("ADODB.Recordset") SQL="SELECT EMAIL FROM usuarios"RS.open sql,db,3,3 '---------------------------------------------------------------------------- Strbody=STRbody &"<html><body><center><font size='2' color='#00004a'> A ACTION MARKETING atualizou o banco de dados.<br>"Strbody=STRbody &"Site atualizado dia "&date()&"<br>" Strbody=STRbody &"<a href='#'>teste</A></font></center></html></body>"RESPONSE.WRITE STRBODY'------------------------------------------------------'--------------------- ENVIAR EMAILS --------------------------------------------------------while not rs.EOFSet objMail = Server.CreateObject("CDONTS.NewMail")objMail.To =rs("email") objMail.From = "tamoakiatoa@ig.com.br"objMail.Subject = "Test Message"objMail.Body = STRbodyobjMail.Importance = 2objMail.Send Set objMail = Nothingrs.movenextwend %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

aí gente como eu faço com esta html???Bem ou mal eu tento dar uma força.....meu html não chega no destino.... só tags´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´<!--#include file="conexao.asp"--><%Set RS = Server.CreateObject("ADODB.Recordset") SQL="SELECT EMAIL FROM usuarios"RS.open sql,db,3,3 '---------------------------------------------------------------------------- size="2"color="#00004a"link="index.asp"fundo="img/quadrado.gif"Strbody=STRbody &"<html>"Strbody=STRbody &"<body background="&fundo&">"Strbody=STRbody &"<center>"Strbody=STRbody &"<font size="&size&" color="&color&">"Strbody=STRbody & "A ACTION MARKETING atualizou o banco de dados."Strbody=STRbody &"<br>"Strbody=STRbody &"Site atualizado dia "&date() Strbody=STRbody &"<br>"Strbody=STRbody &"<a href="&link&">testando html</A>"Strbody=STRbody &"</font>"Strbody=STRbody &"</center>"Strbody=STRbody &"</body>"Strbody=STRbody &"</html>"RESPONSE.WRITE STRBODY'------------------------------------------------------'--------------------- ENVIAR EMAILS --------------------------------------------------------while not rs.EOFSet objMail = Server.CreateObject("CDONTS.NewMail")objMail.To =rs("email") objMail.From = "tamoakiatoa@ig.com.br"objMail.Subject = "Testando este email cdonts"objMail.Body = STRbodyobjMail.Importance = 2objMail.Bodyformat = 0objMail.MailFormat = 0objMail.Body = htmlemailobjMail.Send Set objMail = Nothingrs.movenextwend %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Reynaldlobo    0

Reynaldlobo
Postado

óóó nostrinkes.....Bixo thav olhando... esses códigos serve para fazer um tipo de NEWSLETTER???Se não alguem pode me passar um script que pegue uma pagina html e envia para um email indicado pelo usuário? + ou menos um "envie para um amigo (ou inimigo hehe)".Bau gostei das dikas :rolleyes:

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

AÍ REINALDO O CODIGO AGORA ESTA CERTINHO É PARA MANDAR TIPO NEW LETTER AVISO DE ATUALIZAÇÃO DO SITE,,, VOCE FAZ UM LINK E AO CLICAR ELE ENVIA MOSTRA A PAGINA E RETORNA PARA O MESMO LUGAR VALEU.....<html><BODY bgColor=#ffd4d4 leftMargin=10 onload="iniciar()" topMargin=0 marginheight="0" marginwidth="0"><!--#include file="conexao.asp"--><%Set RS = Server.CreateObject("ADODB.Recordset") SQL="SELECT EMAIL FROM usuarios"RS.open sql,db,3,3 '---------------------------------------------------------------------------- 'size="2"'color="#00004a"'link="index.asp"fundo="http://www.actionmkt.com.br/supervisao/img/papelmail.gif"Strbody=STRbody & "<html>"Strbody=STRbody & "<body background="& fundo &">"Strbody=STRbody & "<STYLE>BODY{font-family: Verdana;font-size: 12pt;color: #00004a ;margin-top: 125 px;background-position: top left; background-repeat: no-repeat;}</STYLE>"Strbody=STRbody & "<center>"Strbody=STRbody & "<b>A ACTION MARKETING atualizou o banco de dados.</b>"Strbody=STRbody & "<br>"Strbody=STRbody & "</font><font color='#00004a'>"Strbody=STRbody & "Site atualizado dia "&date() Strbody=STRbody & "<br>"Strbody=STRbody & "<a href='www.actionmkt.com.br'>www.actionmkt.com.br</A>"Strbody=STRbody & "</center>"Strbody=STRbody & "</body>"Strbody=STRbody & "</html>"RESPONSE.WRITE STRBODY'------------------------------------------------------'--------------------- ENVIAR EMAILS --------------------------------------------------------while not rs.EOFSet objMail = Server.CreateObject("CDONTS.NewMail")objMail.To =rs("email") objMail.From = "tamoakiatoa@ig.com.br"objMail.Subject = "Atualização Action Marketing & Promoção"objMail.Body = STRbodyobjMail.Importance = 2objMail.Bodyformat = 0objMail.MailFormat = 0objMail.Send Set objMail = Nothingrs.movenextwend Response.write "<br><br><br><font color='red'><b><center>Notificação enviada por E-MAIL</center></font></b>"%> <script language="Javascript"> <!-- function iniciar() { cont=setTimeout("envia()",2300) } // --> function envia() { window.location.href ="enviar1.asp" } </SCRIPT> </body> </html>

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