Ir para conteúdo

POWERED BY:

Arquivado

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

cabral51

Da uma olhadinha nesse envia email

Por , em ASP Clássico

Recommended Posts

Salgado    4

Salgado
Postado 
<% Option Explicit %>
<!--#include file="bibconexao.asp"-->
<% RESPONSE.BUFFER = TRUE  
  session.LCID = 1046
' Banco de Dados e Tabelas
' Variáveis Webbras  

Dim entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos,
i,x,j,condicao,condicao2
Dim para,tbBanco1,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbb
,ras1,telefone

  codigox = trim(request("codigox"))
  entid = trim(request("entid"))  
  condicao = Trim(request("selecione"))

Response.Write "CodigoX = "& codigox &"<br>"
Response.Write "Entid = "& entid &"<br>"
Response.Write "Condição = "& condicao &"<br>"

Teste com esse, e veja se está recuperando corretamente os dados.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dessas 03 variáveis qual pode vir mais de 1 registro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ok

<% Option Explicit %>
<!--#include file="bibconexao.asp"-->
<% RESPONSE.BUFFER = TRUE  
  session.LCID = 1046
' Banco de Dados e Tabelas
' Variáveis Webbras  

Dim entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos,

i,x,j,condicao,condicao2
Dim para,tbBanco1,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbb

,ras1,telefone

  codigox = trim(request("codigox"))
  entid = trim(request("entid"))  
  condicao = Trim(request("selecione"))

Response.Write "CodigoX = "& codigox &"<br>"
Response.Write "Entid = "& entid &"<br>"
If InStr(condicao,",") > 0 Then
Condicao = Split(condicao,",")
For x = 0 To UBound(condicao)
Response.Write "Condição("& x &") = "& condicao(x) &"<br>"
Else
Response.Write "Condição = "& condicao &"<br>"
End If

Veja se está rolando OK.

 

Não precisa ficar mandando MP.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

so eskeçemos do next agora mas ja ta arrumado, se selecionar os dois emails que tem ele imprimi isso:CodigoX = 42Condição(0) = tca@latinotca.com.brCondição(1) = pappalardo@uol.com.brse selecionar 1 :CodigoX = 42Condição = tca@latinotca.com.brdesculpe pela mp salgado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Acho que não vamos precisar do Split, vamos fazer um teste:

<% Option Explicit %>
<!--#include file="bibconexao.asp"-->
<% RESPONSE.BUFFER = TRUE  
  session.LCID = 1046
' Banco de Dados e Tabelas
' Variáveis Webbras  

Dim entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos,
i,x,j,condicao,condicao2
Dim para,tbBanco1,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbb
,ras1,telefone

  codigox = trim(request("codigox"))
  entid = trim(request("entid"))  
  condicao = Trim(request("selecione"))

Response.Write "CodigoX = "& codigox &"<br>"
Response.Write "Entid = "& entid &"<br>"
Response.Write "Condição = "& condicao &"<br>"

call abre_banco
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 clientes.email='" & condicao2(i) & "'"
StrSql = StrSql & " and clientes.codicli=" & codigox
StrSql = StrSql & " and clientes.email is not null "
Else
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
set tbbanco1=banco.execute(Strsql)
While Not TbBanco1.EOF
Response.Write "Clientes.Email = "& TbBanco1("email") &"<br>"
Response.Write "Codi.E_Mail = "& TbBanco1("e_mail") &"<br>"
TbBanco1.MoveNext
Wend

Veja se vem corretamente os e-mails.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

salgado no coódigo acima você passou na consulta a variavel condicao2 que no código naum existe e ta flatando um if se eu estiver errado desculpequando escolho a opçao todos ele imprimi isto:CodigoX = 42Entid = 1Condição = todosClientes.Email = tca@latinotca.com.brCodi.E_Mail = carmachado@sti.com.brClientes.Email = pappalardo@uol.com.brCodi.E_Mail = carmachado@sti.com.brobserve duas vezes o emailaki esta correto qdo seleciona todosCodigoX = 42Entid = 1Condição = tca@latinotca.com.brMicrosoft VBScript runtime error '800a000d' Type mismatch /select/enviaselectemail.asp, line 25 qdo escolhi os dois:CodigoX = 42Entid = 1Condição = tca@latinotca.com.br, pappalardo@uol.com.brMicrosoft VBScript runtime error '800a000d' Type mismatch /select/enviaselectemail.asp, line 25

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Realmente tem alguns errinhos:

<% Option Explicit %>
<!--#include file="bibconexao.asp"-->
<% RESPONSE.BUFFER = TRUE  
  session.LCID = 1046
' Banco de Dados e Tabelas
' Variáveis Webbras  

Dim entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos,
i,x,j,condicao,condicao2
Dim para,tbBanco1,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbb
,ras1,telefone

  codigox = trim(request("codigox"))
  entid = trim(request("entid"))  
  condicao = Trim(request("selecione"))

Response.Write "CodigoX = "& codigox &"<br>"
Response.Write "Entid = "& entid &"<br>"
Response.Write "Condição = "& condicao &"<br>"

call abre_banco
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 clientes.email IN ('"& condicao &"')"
StrSql = StrSql & " And clientes.codicli = " & codigox
StrSql = StrSql & " And clientes.email is not null "
Else
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
set tbbanco1=banco.execute(Strsql)
While Not TbBanco1.EOF
Response.Write "Clientes.Email = "& TbBanco1("email") &"<br>"
Response.Write "Codi.E_Mail = "& TbBanco1("e_mail") &"<br>"
TbBanco1.MoveNext
Wend

Teste agora se vem corretamente os e-mails.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

qdo seleciono os dois emails:CodigoX = 42Entid = 1Condição = tca@latinotca.com.br, pappalardo@uol.com.brqqdo seleciono todos:CodigoX = 42Entid = 1Condição = todosClientes.Email = tca@latinotca.com.brCodi.E_Mail = carmachado@sti.com.brClientes.Email = pappalardo@uol.com.brCodi.E_Mail = carmachado@sti.com.bre qdo seleciono um email:CodigoX = 42Entid = 1Condição = pappalardo@uol.com.brClientes.Email = pappalardo@uol.com.brCodi.E_Mail = carmachado@sti.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Troque essa linha:

StrSql = StrSql & " And clientes.email IN ('"& condicao &"')"

Por:

StrSql = StrSql & " And clientes.email IN ('"& Replace(condicao,",","','") &"')"

E teste novamente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

E ae salgado desculpe pela ausencia tive que viajar, vamus la continuar?? depois desta instrução o q eu faço???eu pensei no seguinte, como email vem separado por virgulas pq naum dar um request.form ali no email.from????

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado 
<% 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 entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos	Dim i,x,j,condicao,condicao2	Dim para,tbBanco1,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbbras1,telefone   codigox = trim(request("codigox"))   entid = trim(request("entid"))    ' condicao = Trim(request("selecione"))'Response.Write "CodigoX = "& codigox &"<br>"'Response.Write "Entid = "& entid &"<br>"'Response.Write "Condição = "& condicao &"<br>"call abre_bancoIf condicao <> "todos" Then	StrSql = " Select clientes.email,codi.e_mail"	StrSql = StrSql & " from codi,clientes"	StrSql = StrSql & " where codi.codicodi=" & codigox	StrSql = StrSql & " And clientes.email IN ('"& condicao &"')"	StrSql = StrSql & " and clientes.codicli=" & codigox	StrSql = StrSql & " and clientes.email is not null "	set tbbanco1=banco.execute(Strsql)	'While Not TbBanco1.EOF 	set Email = server.createobject("CDONTS.NewMail")  	email.From = request("selecione")	email.To = "felipecabral1451@msn.com" 	'email.from= tbbanco1("e_mail")	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothing 	'tbbanco1.movenext	'wend	tbBanco1.Close	set tbBanco1=NothingElse	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 "set tbbanco1=banco.execute(Strsql)While Not TbBanco1.EOFset Email = server.createobject("CDONTS.NewMail")  	email.From = tbbanco1("email")  	email.To = "felipecabral1451@msn.com" 	'email1.To = tbbanco1("e_mail)	email.Subject = "Registre sua marca"  	email.Body = "Grupo mercosul----Teste de email, Registre sua marca........................................................................."	email.Send  	set Email = nothing		tbbanco1.movenext	wend	tbBanco1.Close	set tbBanco1=NothingEnd If   	 'Response.Write "Clientes.Email = "& TbBanco1("email") &"<br>"'Response.Write "Codi.E_Mail = "& TbBanco1("e_mail") &"<br>"%>
ta assim, naum seria mais facil essa lógica?? ele so não esta enviando hehe, quer dizer contianua enviando so com o primeiro email selecionado e o todos ele naum envia!

Compartilhar este post

Link para o post
Compartilhar em outros sites

benyhapper    0

benyhapper
Postado

Acho melhor refazer o código ou pegar um pronto, ficar tentando remendar um código exige muita experiência na liguagem e em logica, pois o ideal é debugar linha por linha.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

ae galera ja resolvi vou postar o código aki para vcs:

<% 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 entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos	Dim i,x,j,condicao,condicao2	Dim 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"))'Response.Write "CodigoX = "& codigox &"<br>"'Response.Write "Entid = "& entid &"<br>"'Response.Write "Condição = "& condicao &"<br>"call abre_bancoIf condicao <> "todos" Then	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 "	set tbbanco1=banco.execute(Strsql)	set Email = server.createobject("CDONTS.NewMail")  	email.From = tbbanco1("e_mail")	email.To = condicao 	'email.from= tbbanco1("e_mail")	email.Subject = "deu certo?"  	email.Body = "Teste de conteúdo"	email.Send  	set Email = nothing 	tbBanco1.Close	set tbBanco1=NothingElse	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 clientes.codicli=" & codigox	StrSql = StrSql & " and clientes.email is not null "set tbbanco1=banco.execute(Strsql)While Not TbBanco1.EOFset Email = server.createobject("CDONTS.NewMail")  	email.From = tbbanco1("e_mail")  	email.To = tbbanco1("email") 	'email1.To = tbbanco1("e_mail)	email.Subject = "Registre sua marca"  	email.Body = "Grupo mercosul----Teste de email, Registre sua marca........................................................................."	email.Send  	set Email = nothing		tbbanco1.movenext	wend	tbBanco1.Close	set tbBanco1=NothingEnd If   	 end if	 response.Redirect("enviadoselectemail.asp")%>

ta ae galera para tirar a dúvida de todos, agradeço a todos qu me ajudaram e visualizaram, principalmente, joacitto, lucasbr, ratu, salgado!!!

Obrigadaum

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