Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

cabral51

Pessoal, com envio de email

Por , em ASP Clássico

Recommended Posts

cabral51    0

cabral51
Postado

quando selecionei esses dois emails apareceu essa instrução:Select clientes.email,codi.e_mail from codi,clientes where clientes.email In ('ricardo@grupomercosul.com.br',' walmir@grupomercosul.com.br')quando selecionei todos apareceu isso:Select clientes.email,codi.e_mail from codi,clientes where codi.codicodi=47071 and clientes.codicli=47071 and clientes.email is not nulleh claro que ele naum envia pois no vetor esta para ele selecionar um email onde tenha, ricaro...e tb walmir, naum existe isso, ele teria que separa onde tem um ricardo e onde tem um walmir

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Oh naum ta dando mais o erro da clausa from se eu coloco para alguns emails, porem so chega um email que eh para o primeiro cara em ordem alfabetica, eu mudei o sql para:If condicao <> "todos" Then condicao = "'"&Replace(condicao, ",", "','")&"'" StrSql = "Select clientes.email,codi.e_mail" StrSql = StrSql & " from codi,clientes" StrSql = StrSql & " where clientes.email In (" & condicao &")" StrSql = StrSql & " and clientes.codicli=" & codigox StrSql = StrSql & " and clientes.email is not null " StrSql = StrSql & " and codi.codicodi=" & codigox

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Carlao axo q consegui resolver vo colcoar o codigo pra você:

<% Option Explicit %><!--#include file="bibconexao.asp"--><% RESPONSE.BUFFER = TRUE     session.LCID = 1046' Banco de Dados e Tabelas' Variáveis Webbras  	'Dim banco,tbBanco,,tbBanco2,msg,bancario  	Dim html,entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos	Dim i,x,j,condicao,condicao2	Dim corpo,imagem,para,tbBanco1,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbbras1,telefone	   codigox = trim(request.form("codigox"))   entid = trim(request.form("entid"))     condicao = Trim(request.form("selecione"))   imagem=trim(request.form("textopubli"))'Substitui no corpo condicao as virgulas por ponto e virgulacall abre_bancoIf condicao <> "todos" Then	condicao = "'"&Replace(condicao, ",", "','")&"'"	StrSql = "Select clientes.email,codi.e_mail"	StrSql = StrSql & " from codi,clientes"	StrSql = StrSql & " where clientes.email In " & condicao 	'StrSql = StrSql & " and clientes.codicli=" & codigox	'StrSql = StrSql & " and clientes.email is not null "	'StrSql = StrSql & " and codi.codicodi=" & codigoxElse	StrSql = "Select clientes.email,codi.e_mail"	StrSql = StrSql & " from codi,clientes"	StrSql = StrSql & " where codi.codicodi=" & codigox	StrSql = StrSql & " and clientes.codicli=" & codigox	StrSql = StrSql & " and clientes.email is not null "End IF'response.Write(strsql)'response.End()set tbbanco1=banco.execute(Strsql)While Not TbBanco1.EOF   HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<title>"HTML = HTML & "</title>"HTML = HTML & "<META http-equiv=Content-Type content=text/html; charset=iso-8859-1>"HTML = HTML & "<META content=MSHTML 6.00.2900.2912 name=GENERATOR>"HTML = HTML & "</head>"Html = Html & "<body>"HTML = HTML & "<IMG alt="" hspace=0 src='http://www.grupomercosul.com.br/parceiro/e-mailclicodi.jpg' align=baseline border=0>"HTML = HTML & "</body>"HTML = HTML & "</html>"set Email = server.createobject("CDONTS.NewMail")	email.BodyFormat=0	email.MailFormat=0	email.From = tbbanco1("e_mail")  	email.to = "comunicacao@grupomercosul.com.br"	email.bcc = tbbanco1("email")	email.Subject = "Conte Comigo" 	email.Body = html	  email.Send  	tbbanco1.movenext	wend	tbBanco1.Close	set tbBanco1=Nothing	set Email = nothing	 response.Redirect("enviadoselectemail.asp?codigox="&codigox&"&entid="&entid)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito