Email Em Massa

Henderson · November 26, 2006

aí

Preciso de algum jeito mandar um email para varios endereços que vao ser digitados numa caixa de texto e separado por virgulas..

é usando CDONTS

fiz assim

path = split(destino,",")
for i = 0 to Ubound(path)
e_destino = path(i)

''FORMAR A SENHA
    randomize
    caracteres="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,que,R,S,T,U,V,W,X,Y,Z"
    matriz=split(caracteres,",")
    for x = 1 to 12
      valor = matriz(Ubound(matriz) * rnd)
      senha = senha & valor
    next
'FIM SENHA
''REALIZA AS AÇOES DE CADA MEMBRO
nome = Request.Form("nome")
    sql = "INSERT INTO cadastro (id,email,data)VALUES('"&senha&"','"&e_destino&"','"&data&"')"
    set rs = conexao.execute(sql)
    '---------------------------------------------------------
    'ENVIA O EMAIL
    '---------------------------------------------------------
    
    mensagem = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'><html><head><title>Convite de Cadastro</title><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'></head><body>"
    mensagem = mensagem & "<div align='justify'>"
    mensagem = mensagem & "Olá " & nome & "<br>"
    mensagem = mensagem & "<br>"
    mensagem = mensagem & "Você está recebendo um convite para se cadastrar na área restrita do site GRUPO 511."
    mensagem = mensagem & " Nele você terá acesso a um conteúdo especial sobre os nossos projetos, além de "
    mensagem = mensagem & "encontrar dicas e textos sobre Marketing Multi Nível. É muito importante "
    mensagem = mensagem & "se cadastrar no site, pois através dele poderemos aumentar a nossa comunicação e "
    mensagem = mensagem & "saberemos quem realmente está interessado e merece participar de nossa equipe."&"<br><br><br>"
    mensagem = mensagem & "Link para cadastro:"&"<br>"
    mensagem = mensagem & "http://"&dominio&"/cadsite.asp?id="&senha
    mensagem = mensagem & "<br>" & "<br>"
    mensagem = mensagem & "Você tem sete dias a partir do envio deste e-mail para se cadastrar ou este link "
    mensagem = mensagem & "se tornará automaticamente inválido, sendo necessário pedir novo convite a um dos Administradores."
    mensagem = mensagem & "<br>"&"<br>"&"<br>"
    mensagem = mensagem & "Aproveite o site! Ele foi construído para aumentar a integração entre o grupo e sua "
    mensagem = mensagem & "presença é fundamental para cumprirmos esse objetivo."
    mensagem = mensagem & "<br>" & "<br>"
    mensagem = mensagem & "Atenciosamente,"
    mensagem = mensagem & "<br>" & "<br>" & "<br>"
    mensagem = mensagem & "GRUPO 511"&"<br>"
    mensagem = mensagem & "http://"&dominio
    mensagem = mensagem & "</div>"
    mensagem = mensagem & "</body></html>"
    

Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = remetente_cad ' e-mail de quem esta enviando a mensagem
Mailer.Subject = "Convite de Cadastro"
Mailer.To = e_destino ' e-mail de quem vai receber a mensagem
Mailer.BodyFormat = 0 ' parametro de formatação
Mailer.Body = mensagem
Mailer.Send
Set Mailer = Nothing
senha = ""
e_destino = ""
next

so que se verem, é gerada uma senha automaticamente

só que assim, por exemplo, eu mando para dois emails, ele gera duas senhas diferentes

só que se eu saio e entro na pagina de novo, ele gera as mesmas senhas.

tipo, primeiro envio: senhas -> AAAB, AAAC

são diferentes, mas no segundo envio vai para cada email, pra um a senha AAAB, pro outro AAAC

que isso?

que eu faço pra arrumar?

.Andreia. · November 27, 2006

Se voce não grava a senha em nenhum lugar realmente ele não "guarda" essa memoria do que já foi gerado.

Tendo gravado a senha, pesquise se a senha gerada consta no banco e aí voce pode controlar a repetição

Henderson · November 27, 2006

mas nossa, ele gerar uma senha de 12 caracteres duas vezes iguais é estranho né!

parece que tem uma memoria no asp, sei lá!

.Andreia. · November 27, 2006

Voce não entendeu o que eu disse, a memoria seria no banco de dados. Gerar senhas iguais ocorre, é coincidencia, por isso que eu te disse pra validar no banco antes

Henderson · November 27, 2006

entendi sim o que voce disse

só disse que acho estranho ele gerar as mesmas senhas

são 12 caracteres, aleatorios e ele forma a mesma, mas tudo bem!

verificando no banco de dados eu faço assim né?

''FORMAR A SENHA
    randomize
    caracteres="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,que,R,S,T,U,V,W,X,Y,Z"
    matriz=split(caracteres,",")
    for x = 1 to 12
      valor = matriz(Ubound(matriz) * rnd)
      senha = senha & valor
    next
'FIM SENHA
sql = "SELECT * FROM cadastros WHERE senha = '"&senha&"'"
set rs = conexao.execute(sql)
if rs.eof then
 'GERA A SENHA DE NOVO (2)
end if

se eu fizer assim vai dar certo?

porque se no lugar onde eu coloquei o 2, ele gerar outra senha igual de novo, o asp não vai verificar no banco, não é?

e como eu tenho que fazer se a resposta for não?

um if dentro de um if, dentro de um if... infinitamente?

.Andreia. · November 27, 2006

Uma ideia, seria encaixar essa geração da senha numa function. então se a senha tiver no banco, voce mandar rodar a funcao de novo

Henderson · November 27, 2006

nãõ entendi direito

function gera()
'GERA A SENHA
sql = "SELECT * FROM cadastros WHERE senha = '"&senha&"'"
set rs = conexao.execute(sql)
if not rs.eof then
senha = ""
end if
end function

if gera() = "" then
senha = gera()
end if

isso?

nãõ né?

se não vai dá´na mesma!

.Andreia. · November 27, 2006

function gera()
''FORMAR A SENHA
    randomize
    caracteres="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,que,R,S,T,U,V,W,X,Y,Z"
    matriz=split(caracteres,",")
    for x = 1 to 12
      valor = matriz(Ubound(matriz) * rnd)
      senha = senha & valor
    next
'FIM SENHA
gera = senha
end function

gera()

sql = "SELECT senha FROM cadastros WHERE senha = '"& gera() &"'"
set tab = conexao.execute (sql)

if not tab.eof then
    response.write "senha já existe"
else
    gera()
end if

Veja se agora vai

Henderson · November 27, 2006

eu nem testei, mas ó, pela lógica

está gerando a senha...

ai busca no banco

se foi encontrada, gera de novo...

mas e se essa que for gerada já´existi no banco? nãõ tem nenhuma verificação!

se eu fizer assim, pode dar certo ó?

function gera()
'FORMAR A SENHA
    randomize
caracteres="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,que,R,S,T,U,V,W,X,Y,Z"
    matriz=split(caracteres,",")
    for x = 1 to 12
      valor = matriz(Ubound(matriz) * rnd)
      senha = senha & valor
    next
'FIM SENHA
sql = "SELECT * FROM cadastros WHERE senha = '"&senha&"'"
set rs = conexao.execute(sql)
   if not rs.eof then
   gera = ""
   else
   gera = senha
   end if
end function

while gera() = ""
senha = gera()
wend

isso funciona?

.Andreia. · November 27, 2006

uh é verdade, voce tem razao... então vamos la:

function gera()
''FORMAR A SENHA
    randomize
    caracteres="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,que,R,S,T,U,V,W,X,Y,Z"
    matriz=split(caracteres,",")
    for x = 1 to 12
      valor = matriz(Ubound(matriz) * rnd)
      senha = senha & valor
    next
'FIM SENHA
gera = senha
end function

nova_senha = gera()

sql = "SELECT senha FROM cadastros WHERE senha = '"& nova_senha &"'"
set tab = conexao.execute (sql)

if not tab.eof then
    response.write "senha já existe"
else
    response.write nova_senha
end if

Henderson · November 27, 2006

nãõ!

voce usou a mesma lógica, como pode funcionar?

porque tipo, eu não quero só saber se a senha existe ou não

uma pessoa vai digitar um email numa caixa de texto e vai clicar num botao

ao ser enviado, o sistema tem que gerar essa senha pra cadastrar no banco... não é´pra aparecer nada pro usuario e tal

então o sistema tem que tentar por ele mesmo encontrar uma senha que não exista

--edit---

consegui fazendo assim... tá maior zona, mas funciona!

e também acho que fiz umas verificaçoes com if, que dao segurança mas acho que seriam desnecessarias... mas tá aí

function gera()
'FORMAR A SENHA
    randomize
caracteres="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,que,R,S,T,U,V,W,X,Y,Z"
    matriz=split(caracteres,",")
    for x = 1 to 12
      valor = matriz(Ubound(matriz) * rnd)
      senha = senha & valor
    next
'FIM SENHA
sql = "SELECT * FROM cadastro WHERE id = '"&senha&"'"
set rs = conexao.execute(sql)
   if not rs.eof then
   gera = ""
   else
   gera = senha
   end if
end function
senha = ""
while len(senha) < 12
    if len(senha) < 12 then
    senha = gera()
    else
    senha = senha
    end if
wend

.Andreia. · November 27, 2006

Eu coloquei response.write como exemplo, dai voce poderia tentar adaptar ou então... esperar outra pessoa responder

Henderson · November 27, 2006

está, eu sei que você colocou como exemplo

mas é que aqele lá não funcionava mesmo!

é qe tipo, eu falei, porque tipo

parecia que você tinha entendido qe era só pra mostrar se a senha existia ou não

mas do jeito que eu coloquei ai funciona

não sei se está certo, mas fiz do jeito que achei qe ia da certo e funciono

Sign In

Email Em Massa

Question

Link to comment

Share on other sites

12 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Forum Statistics