Da uma olhadinha nesse envia email

cabral51 · Julho 7, 2006

e ae joacito ontem tive que ir pra casa pq o horario do trampo tinha acabado vamus la:qdo imprimo o lbound ates do for ele imprimi o numero 0qdo imprimo o ubound ele imprimi 1

joacatito · Julho 7, 2006

Então...

você só tem 1 email na sua variável condicao2.

Procura alguma coisa sobre SPLIT na net... Eu não manjo muito... Ou espera alguma outra resposta... Eu acho q está certo...

LBound e UBound acho q está OK... Tenho uma documentação q explica o SPLIT e diz exatamente isso q você está fazendo... Joga em um array, separando por posição de acordo com o delimitador...

Por via das dúvidas, tenta assim:

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

Por padrão, ele assume o -1, mas de qq jeito, deixa indicado... Sinceramente, não sei mais te ajudar... Se não funfar, espera outras respostas http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

cabral51 · Julho 7, 2006

joacito ams se ele imprimiu que no l bound eh 0 e no unbound eh um naum significa que tem dois emails??ja que o vetor começa na posiçao 0??eh realmente so esta enviando um ainda

joacatito · Julho 7, 2006

No For, coloca UBound(condicao2)+1

cabral51 · Julho 7, 2006

vai fikar assim:?

for i=lbound(condicao2) to ubound(condicao2)+1

se fikar assim da esse erro olha

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '2'

/select/enviaselectemail.asp, line 66

manu ele naum ta fazendo o incremento da variavel i acho que eh por isso que ta dando erro

Ratu · Julho 7, 2006

Caras eu naum li o topico inteiro, mas percebo que o problema eh no Split...

um exemplo:

-- Primeiro, eu verifico com o InsTr se há virgulas na variavel, caso haja, ae eu dou um split que separará por virgula, porque o usuario pode selecionar apenas um expositor(no meu caso), e caso isso aconteca naum pode dar o split, depois de dar o SPLIT eu tenho um array, e o comando UBOUND devolve a qtd de itens deste array, para acessar os valores do array, eh soh usar o indice variavel_array(indice), o qual comeca pelo 0, variavel_array(0).

if InStr(lista_expositores,",") > 0 then

id_lojista_relacionado = split(lista_expositores,",")

for i = 0 to UBound(id_lojista_relacionado)

sql = " INSERT INTO app_bfs_lojista_relacionamento (id_lojista, id_lojista_relacionado) VALUES (" & trim(id_lojista) & "," & int(id_lojista_relacionado(i)) & ")"

conn.Execute(sql)

sql = " INSERT INTO app_bfs_lojista_relacionamento (id_lojista, id_lojista_relacionado) VALUES (" & int(id_lojista) & "," & int(lista_expositores) & ")"

end if

BELE?! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

joacatito · Julho 7, 2006

"Suspeitei desde o princípio"...Kra... você tem certeza q os e-mails vem separado por vírgula?Onde você monta eles?Posta o código da outra página...

cabral51 · Julho 7, 2006

pagina onde eu monto eh num select:

<% @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,textopubli2 	 entid=trim(request.form("entid")) codigox=trim(request.form("codigox")) textopubli2=request.form("textopubli") call abre_banco %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Grupo Mercosul - Marcas e Patentes- Enviar para meus clientes</title><style type="text/css"><!--body {	background-image: url(file:///F|/atualizacao/bg.jpg);	margin-top: 0px;	background-color: #CCCCCC;}.style11 {	font-family: "Trebuchet MS";	font-size: 12px;}.style17 {	color: #FFFFFF;	font-family: "Trebuchet MS";	font-size: 11px;}a:link {	color: #000000;	text-decoration: none;}a:visited {	text-decoration: none;	color: #000000;}a:hover {	text-decoration: underline;	color: #990000;}a:active {	text-decoration: none;	color: #000000;}.style28 {	color: #000000;	font-weight: bold;	font-size: 24px;}.style29 {color: #000000}#corpo {	position:absolute;	left: 289px;	top: 180px;}--></style></head><body><table width="778" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td width="778"><img src="topo%20copy.jpg" alt="Página principal" width="777" height="100" border="0"></td>  </tr></table><table width="777" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td width="777" align="left" valign="top" bgcolor="#015792">	  <div align="justify"><a href="../indicacao.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../indicar.gif" width="152" height="35" border="0"></a> <a href="../lista_cliente.asp?listar=cliente&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../clientescomarca.gif" width="152" height="35" border="0"></a><a href="../orcamento.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../orçamento.gif" width="152" height="35" border="0"></a><a href="../lista_cliente.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="clientesemarca.gif" width="152" height="35" border="0"></a><a href="../form_buscamarca.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../buscainpi.gif" width="164" height="35" border="0"></a></div></td>  </tr></table>   <table width="778" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td width="776" bgcolor="#3777B0"> </td>  </tr></table><table width="760" height="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff" class="style11">  <tr> 	<td width="151" align="left" valign="top" bgcolor="#f3f3f3"><p> 		<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="151" height="266">		  <param name="movie" value="../menu-esquerdo.swf">		  <param name="quality" value="high">		  <embed src="../menu-esquerdo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="151" height="266"></embed> 		</object><br/>				</td>	  <td align="center">				<p align="center" class="style29">		Envie este texto para seus clientes, para que eles saibam da importância do registro de marca.<form name="textopubli">		<textarea name="textocli" cols="50" rows="5" readonly="readonly"  align="center"></textarea></form>				<%   			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= <% =tbbanco1("email")%>><% =tbbanco1("email")%></option>		<% 		tbbanco1.movenext		wend		tbBanco1.Close		set tbBanco1=Nothing%> 		</select>		<br><br><input name="enviacli" type="submit" id="enviacli" value="Enviar Email">	<input name="codigox" type="hidden" id="codigox" value="<%=codigox%>"><input name="entid" type="hidden" id="entid" value="<%=entid%>">		</form>		</p>			  </td>  </tr>  <tr>	<td align="left" valign="top" bgcolor="#f3f3f3"> </td>	<td align="left" valign="top" bgcolor="#FFFFFF"> </td>  </tr></table><table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#60676F">  <tr>	<td width="778" bgcolor="#60676F"><div align="center" class="style17">© 1995-2005 - Todos os direitos reservados </div></td>  </tr></table></body></html><%call fecha_banco%>

joacatito · Julho 7, 2006

Tenta fazer como o Ratu falou...O Select Multiple insere sozinho a vírgula entre os registros selecionados? Pq se não inserir, você não colocou em nenhum lugar...

cabral51 · Julho 7, 2006

Tenta fazer como o Ratu falou...O Select Multiple insere sozinho a vírgula entre os registros selecionados? Pq se não inserir, você não colocou em nenhum lugar...

joacito se vai fikar bravo se eu dizer que naum sei como fazer o q ele falou? HAeuah to meio perdido, a questaum eh o split, agente pode estar tirando virgulas que naum existe???

Ratu · Julho 7, 2006

Ele insere sozinho, todos os INPUTs e SELECTs multiple, se você colocar dois inputs com o mesmo nome e dar um request ele vira automaticamente separados por virgula, mas pode ocorrer de o usuario selecionar somente um item no select multiple... entaum por isso do InStr para ver se o usuario selecionou + de um item, pq se tiver a virgula ele selecionou...

joacatito · Julho 7, 2006

Fica mais ou menos assim:

if InStr(condicao,",") > 0 then	condicao2= split(condicao,",")	for i=0 to ubound(condicao2)'	response.write i & "<br>"			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	nextelse	condicao2 = condicao	set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2	email.To = "felipecabral1451@msn.com"	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothingend if

Vlw pela explicação Ratu!

cabral51 · Julho 7, 2006

vixi entaum vo ter que colokar o instr e o problema eh no split??como colokarei o instr?Obigado ratu

joacatito · Julho 7, 2006

if InStr(condicao,",") > 0 then	condicao2= split(condicao,",")	for i=0 to ubound(condicao2)'	response.write i & "<br>"			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	nextelse	condicao2 = condicao	set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2	email.To = "felipecabral1451@msn.com"	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothingend if

cabral51 · Julho 7, 2006

bom eu colokei e continua enviando um email, so o primeiro...

joacatito · Julho 7, 2006

if InStr(condicao,",") > 0 thenresponse.write "com vírgula"	condicao2= split(condicao,",")	for i=0 to ubound(condicao2)'	response.write i & "<br>"			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	nextelse response.write "sem vírgula"	condicao2 = condicao	set Email = server.createobject("CDONTS.NewMail")  	email.From = condicao2	email.To = "felipecabral1451@msn.com"	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothingend if

cabral51 · Julho 7, 2006

printo isso olha:com virgulacom virgula

joacatito · Julho 7, 2006

Sinceramente, não sei...Vamos esperar outro colega.

cabral51 · Julho 7, 2006

Sinceramente, não sei...Vamos esperar outro colega.

blza joacito obrigado, o probelma eh ngm le o tópico está muito grand nos teriamos que fazer outro, mais uam coisa vai paracer um problema nisso tudo ali no email.from vai ter que ser tbbanco1(e_mail)e no email to condicao2(i), eu vo ter que fazer uma consulta no banco que eh akela que esta como comentario, ae vai vir o while not tbbanco1.eof ae vai dar erro

Ratu · Julho 7, 2006

Cara, em q variavel você da o request ? ql eh o nome do seu select multiple ?faca assim na pagina de request:teste = Request("nomedoseuselect")Response.write testeResponse.Ende responda oq esta printando na tela, oq você seleciona esta aparecendo ? e esta sendo separado por virgula ?

Arquivado

Da uma olhadinha nesse envia email

Recommended Posts

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

joacatito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabral51 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0