como eu facu issu??

[sodra 0]

como eu facu pra manda um e-mail para tdos os usuarios q estaum cadastrados no meu bd???

[rOcKLoCo 0]

seleciona todo os emails do banco via SELECT

 

while NOT seurecordset.EOF....enviar emailseurecordset.MoveNextWendseurecordset..Closeset seurecordset = nothing

 

até mais

[Billy 11]

depede do componente q você usa... ex.:

 

eu tenho uma rotina assim pra aspmail

 

uma página onde digito o assunto e o texto e envia pra outra pagina com a programação ASP

 

<FORM METHOD="POST" ACTION="enviar.asp">ASSUNTO:<input type="text" name="assunto">TEXTO:<textarea name="TXT" cols="25" rows="10"></TEXTAREA></form>

Código da pagina de envio

 

<%

'conexão com o BD

cstring= "dbq=c:\asp\divulga\banco.mdb;Driver={Microsoft Access Driver(*.mdb)}

 

'seleciono os dados da tabela cadastro

varsql = "SELECT nome, email From cadastro"

 

'cria-se o objeto de conexão

SET conn=Server.CreateObject("ADODB.Connection")

 

'abre-se a conexão

conn.open cstring

 

'rq é igual a consulta

set rq=conn.execute(varsql)

 

'abaixo inicio variaveis para verificação

ncorretos=0

nerrados=0

ntotal=0

 

 

'executa as funções até o fim do rq

While not rq.EOF

'dll do servidor

 Set Mailer=("SMTPsvg.Mailer")

 

 Mailer.ContentType="text/html"

'local smtp

 Mailer.RemotHost=SMTP.asp.com.br

'Nome de Envio (ou seu nome)

 Mailer.FromName="DIVULGAÇÃO"

'endereço de envio (seu e-mail)

 Mailer.FromAddress="seuemail@asp.com.br"

'dados retirados do DB que está na variavel rq

 Mailer.Add.Recipient rq("nome"),rq("email")

'Assunto

 Mailer.Subject = request.form("assunto")

'O texto do e-mail

 Mailer.Bodytext= request.form("TXT")

 

'var é igual o envio q é boleano... (sim ou não)

var=Mailer.SendMail

 

'se for sim... (se enviou)

if var=true then

 

'acrescenta 1 aos corretos

msg="O e-mail foi enviado com sucesso"

ncorretos=ncorretos+1

else

msg="Erro no Envio"

'se der erro acrescenta 1 aos errados

nerrados=nerrados+1

end if

've cada e-mail enviado

ntotal=ntotal+1

'escreve as mensages

response.write msg

'move o recorset pro próximo dado

rq.movenext

'dá o loop

wend

 

'mostra os erros e acertos

response.write"número total de e-mails:" &ntotal&"<BR>"

response.write"número de e-mails enviados:" &ncorretos&"<BR>"

response.write"número de e-mails errados:" &nerrados&"<BR>"

 

 

rq.close

%>

[asphomer 0]

Eu tenho um sisteminha legal...Te mando por email ainda hoje...Abrazzo..