Jump to content
Fórum Script Brasil
  • 0

Email Em Massa


Henderson
 Share

Question

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?

Link to comment
Share on other sites

12 answers to this question

Recommended Posts

  • 0

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?

Link to comment
Share on other sites

  • 0

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!

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0

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?

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...