Da uma olhadinha nesse envia email

[cabral51 0]

Ae galera to desesperado preciso entregar isso logo, tem 2 problemas quando seleciona todos, ele envia o email para todos mas tb envia um email com o remetente de todos o outro eh que quando eu seleciono os emails na qual desejo enviar ele envia o email mas naum chega, ta ae o código.

<% @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,bancario  	Dim entid,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos,i,x,j,condicao,condicao2 	Dim para,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbbras1,telefone   call abre_banco   codigox=trim(request.form("codigox"))   entid=trim(request.form("entid"))      condicao=trim(request.form("selecione"))					if condicao="todos" then	   	   StrSql= " Select email,e_mail"	   Strsql= StrSql & " from codi,clientes"	   Strsql= StrSql & " where codi.codicodi=" & codigox	   Strsql= StrSql & " and codi.codicodi=clientes.codicli"	  ' Strsql= StrSql & " order by email"	   Set tbbanco1=banco.execute(Strsql)	   	while not  tbbanco1.eof	set Email = server.createobject("CDONTS.NewMail")  	email.From = tbbanco1("e_mail")  	email.To = "felipecabral1451@msn.com" 	'email1.To = tbbanco1("e_mail)	email.Subject = "Atualize seu cadastro"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothing		tbbanco1.movenext	wend	tbBanco1.Close	set tbBanco1=Nothing      elseif condicao="email" then  	 	   	StrSql= " Select email,e_mail"	Strsql= StrSql & " from codi,clientes"	Strsql= StrSql & " where codi.codicodi=" & codigox	Strsql= StrSql & " and clientes.email='" & condicao & "'"	Strsql= StrSql & " and codi.codicodi=clientes.codicli"	Set tbbanco1=banco.execute(Strsql)	while not tbbanco1.eof			set Email = server.createobject("CDONTS.NewMail")  	email.From = tbbanco1("email")	email.To = "felipecabral1451@msn.com" 	email.Subject = "Atualize seu cadastro"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothing 	tbbanco1.movenext	wend	tbBanco1.Close	set tbBanco1=Nothing  	end if	'response.Redirect("enviado.asp")call fecha_banco		%>

[joacatito 0]

email.From = CStr(tbbanco1("email"))Sei lá... Vou começar a chutar feio... :DE entre o email.send e set email=nothing, insere um email.close.Antes de destruir, é bom fechar o objeto.(Pelo menos foi isso q aprendi)

[cabral51 0]

ae joacitto axei um erro feio HAeuAHEuae, bem de principiante(como eu sou) se liga no select email tava listando todos emails ate sem ser dakele cara agora olha como fikou:

<%   			StrSql="Select email from clientes"		StrSql= StrSql & " where clientes.email <> null"  		StrSql= StrSql & " and clientes.codicli=" & codigox		'StrSql= StrSql & " order by clientes.email"		'response.Write(strsql)		'response.End()		set tbBanco1=banco.Execute(strSQL)					%>						 Selecione os e-mails para quen deseja enviar o texto.<br>	  OBS: Segure a tecla Ctrl para selecionar mais de um e-mail.	  	  <form action="enviaselectemail.asp" method="post">				<select name="selecione" size="4" multiple>			</br>		  				<option selected value="todos">todos </option>		<%while not tbbanco1.eof%>		<option value= "email"><% =tbbanco1("email")%></option>		<% 		tbbanco1.movenext		wend		tbBanco1.Close		set tbBanco1=Nothing%> 		</select>

 

agora preciso fazer para de mandar mais de 2 mil emails HAUEHAUEHAE

[joacatito 0]

beleza.Se precisar de mais alguma coisa, avisa.

[cabral51 0]

aproveitando sua boa vontade hehe,

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

 

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'codi.codicodi=42 and clientes.email=tca@latinotca.com.br and clientes.codicli=42 and clientes.email is not null null and codi.e_mail is not null null'.

 

/select/enviaselectemail.asp, line 57

condicao2= split(condicao,",")	for i=lbound(condicao2) to ubound(condicao2)		call abre_banco		StrSql= " Select clientes.email,codi.e_mail"	Strsql= StrSql & " from codi,clientes"	Strsql= StrSql & " where codi.codicodi=" & codigox 	Strsql= StrSql & " and clientes.email=" & condicao2(i)    	Strsql= StrSql & " and clientes.codicli=" & codigox	Strsql= StrSql & " and clientes.email is not null null"	Strsql= StrSql & " and codi.e_mail is not null null"		set tbbanco1=banco.execute(Strsql)	response.Write(strsql)			response.End()	'while not tbbanco1.eof		set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2(i)	email.To = "felipecabral1451@msn.com" 	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothing 	next	'tbbanco1.movenext	'wend 'tbBanco1.Close ' set tbBanco1=Nothing   	call fecha_banco

[joacatito 0]

O mesmo erro daquela hora...

Strsql= StrSql & " and clientes.email='" & condicao2(i) & "'"Strsql= StrSql & " and clientes.codicli=" & codigoxStrsql= StrSql & " and clientes.email is not null"Strsql= StrSql & " and codi.e_mail is not null"

E se não me engano não existem esses dois nulls adicionais...

[cabral51 0]

ae mal ae jaocito, era akele erro so que acontece uma coisa, ele so envia o primeiro, suponhamos que eu selecionei 3 emails, e so envia para o primeiro

[joacatito 0]

condicao2= split(condicao,",")'call abre_banco	for i=lbound(condicao2) to ubound(condicao2)	   response.write i & "<br>"	'	StrSql= " Select clientes.email,codi.e_mail"'	Strsql= StrSql & " from codi,clientes"'	Strsql= StrSql & " where codi.codicodi=" & codigox'	Strsql= StrSql & " and clientes.email='" & condicao2(i) & "'"'	Strsql= StrSql & " and clientes.codicli=" & codigox'	Strsql= StrSql & " and clientes.email is not null"'	Strsql= StrSql & " and codi.e_mail is not null"	'	set tbbanco1=banco.execute(Strsql)'	response.Write(strsql)'	response.End()'	while not tbbanco1.eof		set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2(i)	email.To = "felipecabral1451@msn.com"	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  	email.close	set Email = nothing	Strsql = ""	next	'	tbbanco1.movenext'	wend'   tbBanco1.Close'   set tbBanco1=Nothing  '	call fecha_banco

[cabral51 0]

ADODB.Recordset error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /select/enviaselectemail.asp, line 72 e tb deu o erro que naum suporta o .close01ADODB.Recordset error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /select/enviaselectemail.asp, line 74

[joacatito 0]

condicao2= split(condicao,",")'call abre_banco	for i=lbound(condicao2) to ubound(condicao2)	   response.write i & "<br>"	'	StrSql= " Select clientes.email,codi.e_mail"'	Strsql= StrSql & " from codi,clientes"'	Strsql= StrSql & " where codi.codicodi=" & codigox'	Strsql= StrSql & " and clientes.email='" & condicao2(i) & "'"'	Strsql= StrSql & " and clientes.codicli=" & codigox'	Strsql= StrSql & " and clientes.email is not null"'	Strsql= StrSql & " and codi.e_mail is not null"	'	set tbbanco1=banco.execute(Strsql)'	response.Write(strsql)'	response.End()'	while not tbbanco1.eof		set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2(i)	email.To = "felipecabral1451@msn.com"	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  '	email.close	set Email = nothing	Strsql = ""	next	'	tbbanco1.movenext'	wend'   tbBanco1.Close'   set tbBanco1=Nothing  '	call fecha_banco

[cabral51 0]

nada de erro01qdo seleciono masi de um ele contua enviando um so, o primeiro

[joacatito 0]

Enviou os e-mails?

[cabral51 0]

sim mas somente par ao primeiro que for selecionado se você seleciona 3 ele so envia para o primeiro e quanto akela parte sql="" o que significa?

[joacatito 0]

Não é nada... Pode tirar...Tira tb o response.write do iO problema tá na sua variável condicao2.Ela só tem 1 e-mail...Dá um response.write na variavel condicao para ver quantos e-mails ela tá trazendo e se estão mesmo vindo separados por vírgula.

[cabral51 0]

eu vou ter q faze a consulta ao banco de dados pq no email from vai assim tbbanco1("e_mail")ja no to vai o condicao2

[joacatito 0]

Se precisar de ajuda, poste.

[cabral51 0]

colokei o response antes do split e os emails tao vindo corretos e separados por virgula

[joacatito 0]

condicao2= split(condicao,",",-1)

[cabral51 0]

continua enviando somente o primeiro

[joacatito 0]

Antes do for, imprime na tela o lbound(condicao2) e o ubound(condicao2)