Da uma olhadinha nesse envia email
Seguinte to abrindo este tópico pra facilitar a leitura e a ajuda já que o outro está com muitas informações...
Eu tenhu um formulário com um select de onde aparecem emails vindo do banco relacionado ao usuario e tb uma opção com todos, onde o usuário escolhe o email para qual deve ser enviado uma informação ou escolhe todos e o email será enviado para todos os emails relacionados a este usuário;.
Aqui o código do formulário:
<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexao.asp"--><% RESPONSE.BUFFER = TRUE session.LCID = 1046 Dim banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario,entid,codigox,empresa,wcor,listar,listar2,selectcampo,email,todos1,email1,email2,todos entid=trim(request.QueryString("entid")) codigox=trim(request.QueryString("codigox")) email2=trim(request.form("email1")) todos1=trim(request.form("todos")) call abre_banco %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""[http://www.w3.org/TR/html4/loose.dtd">http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title></head><body> <form action="envia_email.asp" method="get"> <select name="email" size="4" multiple> <option>selecione os campos para quem deseje enviar os emails</option> </br> <option selected>todos </option> <% StrSql="Select email from clientes" StrSql= StrSql & " where email is not null" StrSql= StrSql & " order by email" set tbBanco1=banco.Execute(strSQL) while not tbbanco1.eof %> <option value="email1"><% =tbbanco1("email")%></option> <% tbbanco1.movenext wend tbBanco1.Close set tbBanco1=Nothing%> </select> <input name="envia_email" type="submit" id="envia_email" value="Enviar Email"> </form> <p> </p></body></html><%call fecha_banco%>
e aki o código do envia email:
<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexao.asp"--><% RESPONSE.BUFFER = TRUE session.LCID = 1046' Banco de Dados e Tabelas' Variáveis Webbras Dim banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario Dim entid,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email1,email2,todos,i,x,j ' Dim para,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbbras1,telefone codigox=request.QueryString("codigox") entid=request.QueryString("entid") todos1=trim(request.form("todos")) todos1=replace(todos1,"'","´") call abre_banco for i=0 to 255 email2=trim(request.form("Email1")) email2=replace(email2,"'","´") if "email2"= "email1" then StrSql= "Select email from clientes where Email=" & email2 Set tbbanco1=banco.execute(strsql) end if Next if "todos1"= "todos" then x=0 Do until x=255 StrSql= "Select email from clientes" StrSql= StrSql & "where email is not null" ' StrSql= StrSql & "and codi.codicodi=cliente.codi" set tbBanco1=banco.Execute(strSQL) x=x+1 Loop while not tbbanco1.eof set Email = server.createobject("CDONTS.NewMail") email.From = "felipecabral1451@msn.com" email.To = "felipecabral1451@msn.com" email.Subject = Teste email.Body = "Teste de conteúdo" email.Send set Email = nothing tbbanco1.movenext wend tbBanco1.Close set tbBanco1=Nothing call fecha_bancoend if%>
ele não está enviando o email eu devo estar errando nos loops e com certeza na lógica, alguém pode ajudar???
Discussão (135)
Carregando comentários...