Ir para conteúdo
Fórum Script Brasil
  • 0

Email Em Massa


Henderson

Pergunta

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 para o comentário
Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...