Da uma olhadinha nesse envia email

[joacatito 0]

Vai na pasta c:\inetpub e dá uma olhadinha nas pastas de mailroot, principalmente badmail e queue para ver se tem alguma coisa.Já q não dá erro, é estranho...Não querendo ser chato d+, mas você não pode utilizar outro componente?

[cabral51 0]

joacitto ate posso, mas nem to rolando local mais to rolando no servidor, o todos ta certo ele ta enviando, o problema é na condicao 2 ali nem printa na tela ele printa eu ponho o response.write e nada, mas no meu emiail naum chega nada, mais uam coisa que vai da pra problema quando eu colocar ali email.to= tbbanco("email") ele naum vai nem f******, naums ei pq tb mas por enquanto to fazendo o teste pra ver se ele manda para os emails selecionado mas ta osso

[joacatito 0]

Qdo você imprime do banco o campo email (tbbanco1("email")) ele imprime pelo menos o primeiro?você deu uma olhada nas pastas do mailroot pra ver se tem mail parado?

[cabral51 0]

bom, naum tem email parado naum, tao todas vazia, nem to mais rodando o código localmente so no servidor, e ele naum ta printando o registro do banco naum, naum to entendendo negocio loko

[joacatito 0]

Desde qdo você postou, não entendo o q esse trecho faz:

 

if condicao="tbbanco1(email)" then  condicao2= split(condicao,",")					for I= lbound(condicao2) to UBound(condicao2)		set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2(i)	email.To = "felipecabral1451@msn.com"	email.Subject = "Atualize seu cadastro"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothing	next	end if

[cabral51 0]

seguinte eskeçe akele if tira esse if ae, de resto o luxas que me falou eh o seguinte o condicao2 eh um vetor que recebe os dados da variavel cond~çao separando eles por virgula, e o for eh do começo do vetor que contem os dados condicao 2 ate o fim ele vai enviando os emails para akeles que estao no vetor

[joacatito 0]

Kra ainda não estou entendendo essa lógica... Se em condicao vem "todos", como você vai dar um SPLIT?

Não teria q ser assim?

 

<% @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"))	condicao=replace(condicao,"'","´")		  		if condicao="todos" then	  	   StrSql= " Select clientes.email,codi.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)	  'response.Write(strsql)'response.End()	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  call fecha_bancoelse  '  if condicao="tbbanco1(email)" then  condicao2= split(condicao,",")					for I= lbound(condicao2) to UBound(condicao2)		set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2(i)	email.To = "felipecabral1451@msn.com"	email.Subject = "Atualize seu cadastro"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothing	next	end if		'response.Redirect("enviado.asp")		%>

[cabral51 0]

joacito olha como ta o código agora:

else   	' condicao2= split(condicao,",") 	 'for I= lbound(condicao2) to UBound(condicao2)	   	StrSql= " Select email,e_mail"	Strsql= StrSql & " from codi,clientes"	Strsql= StrSql & " where codi.codicodi=" & codigox	Strsql= StrSql & " and 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  	'nextend if	'response.Redirect("enviado.asp")call fecha_banco		%>

ta dando esse erro:

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

 

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'codi.codicodi=40 and email=anarosa1874@uol.com.br'.

 

/select/enviaselectemail.asp, line 51

[joacatito 0]

O pior de tudo é q o erro é besta e não vi antes...

 

StrSql= " Select email,e_mail"	Strsql= StrSql & " from codi,clientes"	Strsql= StrSql & " where codi.codicodi=" & codigox	Strsql= StrSql & " and email='" & condicao & "'"   ' Strsql= StrSql & " and codi.codicodi=clientes.codicli"

[cabral51 0]

joacitto arrumei mas por enquanto os emails naum chegaram HAUEhaue, e eu arrumei como você falou ali q era um erro besta mas acho q sou tao burro que ainda naum entendi o que significa essa parteStrsql= StrSql & " and email='" & condicao & "'"

[joacatito 0]

joacitto arrumei mas por enquanto os emails naum chegaram HAUEhaue, e eu arrumei como você falou ali q era um erro besta mas acho q sou tao burro que ainda naum entendi o que significa essa parteStrsql= StrSql & " and email='" & condicao & "'"

É q você deve estar aprendendo, então fica um pouco mais complicado de visualizar alguns erros... Daki a pouco você tá craque http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif No Banco de Dados, os campos do tipo texto tem q ser enviados entre apóstrofo (')... Era isso q tava faltando...Os campos do tipo número (int, float, double...) não precisam e não devem ter apóstrofo...Agora qto não chegar os e-mails tá estranho...

[cabral51 0]

manu agora me confundi todo aki olha meu ultimo codigo e tente postar como fikaria

 

bom entendi oq você disse sobre o erro, todos campos do banco que forem enviados por email que sejam do tipo texto deve estar entre '??

e vo posta o código pra você como fikou ao final acho q ta tudo certo

brigado ja pela ajuda, e espero fikar crack pq to longe disso ainda hUAEhAE!

<% @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 clientes.email,codi.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    else   	 'condicao2= split(condicao,",") 	 'for I= lbound(condicao2) to UBound(condicao2)	   	StrSql= " Select email,e_mail"	Strsql= StrSql & " from codi,clientes"	Strsql= StrSql & " where codi.codicodi=" & codigox	Strsql= StrSql & " and 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  	'nextend if	'response.Redirect("enviado.asp")call fecha_banco		%>

repare que o for saiu neh??esta como comentario agora

[joacatito 0]

Não vejo onde mudar...

 

<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexao.asp"--><% RESPONSE.BUFFER = TRUE     session.LCID = 1046' Banco de Dados e Tabelas' Variáveis Webbras  ' Banco de Dados e Tabelas' Variáveis WebbrasDim banco, tbBanco, tbBanco1, tbBanco2, msg, bancarioDim entid, codigox, empresa, wcor, listar, listar2, selectcampo, todos1, email2, todos, i, x, j, condicao, condicao2Dim para, assunto, nome, mensagem, email, id_loja, de, nome_loja, strsql, emails, tbbras1, telefoneCall abre_bancocodigox = Trim(request.Form("codigox"))entid = Trim(request.Form("entid"))condicao = Trim(request.Form("selecione"))				If condicao = "todos" Then	strsql = " Select clientes.email,codi.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"'		email.To = tbbanco1("e_mail)		email.Subject = "Atualize seu cadastro"		email.Body = "Teste de conteúdo"		email.Send			email.Close		Set email = Nothing				tbBanco1.MoveNext		Wend		tbBanco1.Close	Set tbBanco1 = Nothing  Else  	condicao2 = Split(condicao, ",")		For i = LBound(condicao2) To UBound(condicao2)	  		strsql = " Select email,e_mail"		strsql = strsql & " from codi,clientes"		strsql = strsql & " where codi.codicodi=" & codigox		strsql = strsql & " and 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						email.Close			Set email = Nothing						tbBanco1.MoveNext				Wend		tbBanco1.Close		Set tbBanco1 = Nothing	NextEnd If	'response.Redirect("enviado.asp")Call fecha_banco	%>

Seleciona alguns e-mails, imprime na tela a variável condição e posta só para dar uma olhada...

De qq jeito, vamos esperar outros colegas, pq não vejo solução.

[cabral51 0]

entaum fiz o que você falou

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  	email.close	set Email = nothing 	tbbanco1.movenext		wend	response.Write(condicao2(i))	response.End()	tbBanco1.Close	set tbBanco1=Nothing  	nextend if	'response.Redirect("enviado.asp")call fecha_banco		%>

ele so ta imprimindo o primeiro email que eu selecionei

[joacatito 0]

Bele...Agora imprime a variavel condicao (não a condicao2)

[cabral51 0]

Bele...Agora imprime a variavel condicao (não a condicao2)

ae joacito, testei e ta dando certo com a condicoa ta imprimindo todos, agora quanto a enviar aho q tem algum erros nos loop pq num eh possivel tinha q enviar

[joacatito 0]

Mas e qdo não tem todos? O q imprime?

[cabral51 0]

entaum manu, qdo você seleciona todos ele imprimi todos, quando você seleciona todos ele envia o email inclusive envia um com o from de todos naum sei pq ja qdo você seleciona algum email ele naum envia.

[cabral51 0]

to sem ideia do que fazer

[cabral51 0]

galera alguem posta uma solucao por favor??