Email Em Massa

Henderson · Novembro 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. · Novembro 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 · Novembro 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. · Novembro 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 · Novembro 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. · Novembro 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 · Novembro 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. · Novembro 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 · Novembro 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. · Novembro 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 · Novembro 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. · Novembro 27, 2006

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

Henderson · Novembro 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

Entrar

Email Em Massa

Pergunta

Link para o comentário

Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns