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

Pessoal tenhu duas paginas um enviaselectemail1.asp e outra selectemail2.asp, a primeira envia para todos clientes do banco, ja a segunda somente pra um, mas como se os dois codigos sao praticamente iguais so muda a imagem???

Deem uma olhada nos dois:

 

Selectemail.asp

<% 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	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)   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 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 = condicao   	email.Subject = "Conte Comigo" 	email.Body = html	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.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		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 "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	   End If		end if	 response.Redirect("enviadoselectemail.asp?codigox="&codigox&"&entid="&entid)%>
Selectemail2.asp

<% 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	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)   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 hspace=0 src='http://www.grupomercosul.com.br/parceiro/e-mailclicodi2.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 = condicao   	email.Subject = "Conte Comigo" 	email.Body = html	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.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-mailclicodi2.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		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 "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-mailclicodi2.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	   End If		end if	 response.Redirect("enviadoselectemail.asp?codigox="&codigox&"&entid="&entid)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos_Seiji    0

Carlos_Seiji
Postado

tem uma pagina anterior a essa neh??dei uma lida por cima e na verdade você nao precisa do Selectemail2.asp pq o que define se vai ser todo o banco ou nao é o input "selecione".e dependendo deste input ele monta o select que vai puxar os dados a serem enviados inclusive o e-mai

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

tem uma pagina anterior a essa neh??dei uma lida por cima e na verdade você nao precisa do Selectemail2.asp pq o que define se vai ser todo o banco ou nao é o input "selecione".e dependendo deste input ele monta o select que vai puxar os dados a serem enviados inclusive o e-mai

Entaum cara precisa sim, vou te explicar:Tenhu 2 textos publicitarios no site, onde um cara escolhe o que quer enviar para seus clientes entendeu???Portanto precisa de dois selectemail, um par aum texto e outro para o outro texto, mas o problema ali eh o seguint, quando eu escolho la no menu enviar este texto para todos ele envia para todos, ja no segundo ele so envia para o primeiro email do banco!!O ques esta errado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos_Seiji    0

Carlos_Seiji
Postado

cara, não ta dando erro neste codigo nao???tem "end if" a mais e dois "else" p/ um "if" so.e se puder de uma breve explicacao de como funciona o criterio de escolha de e-mails a serem enviados pq ambos os selects (todos e selecionados) sao iguais.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

manu um end if eh ara o if condicao<> "todos, o ouro eh para o else if, o else naum precisa certo????Bom funciona da seguinte maneira o select eh um menu onde sao listados os emails do cliente dakele usuario vindos do banco,

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos_Seiji    0

Carlos_Seiji
Postado

tente o código abaixo.

so um alerta, conforme for aumentando o numero de e-mails cadastrados vai chegar uma hora que vai dar erro de time out, faca uma "paginação" ....exemplo envie de 5 em 5 e-mails

 

<% 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	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 "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 IFset 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

cabral51    0

cabral51
Postado

tem um erro ae cara, suponhamos que ele selecione todos ai sim esta correto enviara para todos, porem se ele escolher 3 emails, tera que enviar a variavel condiçao...Condicao=request.form.....(suponhamos que ele selecione felipe, marcelo e retanato - a variavel condicao fica desta forma condicao=felipe,marcelo,renato)enatum eh so por a condicao ali no email.tomas flato essa parte

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

vo colocar aqui:

<% @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") if ((codigox="") and (entid="")) then 	 codigox=request.querystring("codigox")	 ENTID=request.querystring("ENTID")	 end if 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</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="lista_cliente.asp?listar=cliente&codigox=<%=codigox%>&entid=<%=entid%>"><img src="clientescomarca.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="indicacao.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="indicar.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><a href="orcamento.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="orçamento.gif" width="152" 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="778" 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> 	   </td>	<td align="center"><br><br>			  <p align="center" class="style29">		Veja abaixo como enviar este texto para seus clientes.								<p align="center" class="style29">Avisando-os da importância do registro de marca.				<form name="textopubli">		<img src="e-mailclicodi.jpg"></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 quem 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 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 colspan="2" align="left" valign="top" bgcolor="#f3f3f3"><p align="center" style="color:#666666"><strong> <a href="http://www.grupomercosul.com.br/index.htm" target="_blank">»Grupo Mercosul«</a>  <a href="http://www.grupomercosul.com.br/marcas.htm" target="_blank">»Marcas«</a> <a href="http://www.grupomercosul.com.br/patentes.htm" target="_blank">»Patentes«</a> <a href="http://www.grupomercosul.com.br/direitos.htm" target="_blank">»Direitos Autorais«</a> <a href="http://www.grupomercosul.com.br/software.htm" target="_blank">»Registro de Software«</a> <a href="http://www.grupomercosul.com.br/dominios.htm" target="_blank">»Registro de Domínio«</a> <a href="http://www.grupomercosul.com.br/comercio.htm" target="_blank">»Comércio de Marcas«</a> <a href="http://www.grupomercosul.com.br/licenciamento.htm" target="_blank">»Licenciamento de Marcas«</a> <a href="http://www.grupomercosul.com.br/contratos.htm" target="_blank">»Registro de Contratos«</a> <a href="http://www.grupomercosul.com.br/escritorios.htm" target="_blank">»Escritórios de Contabilidade«</a> <a href="http://www.grupomercosul.com.br/noticias.htm" target="_blank">»Notícias«</a></strong></p></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%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos_Seiji    0

Carlos_Seiji
Postado

ehehe...tive de ir almocar..eeheh

e estudar seu codigo

tenta o código abaixo:

<% 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 &")"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 IFset 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

cabral51    0

cabral51
Postado

Cara quando seleciono todos ele envia mas naum chega no email..Ja quando seleciono os emails separadamente ele aparece este erro:Microsoft VBScript runtime error '800a000d' Type mismatch: 'From' /parceiro/enviaselectemail.asp, line 51

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos_Seiji    0

Carlos_Seiji
Postado

faz o seguinte deixa a linha "email.Send" como comentario e adicione "Response.Write tbbanco1("e_mail")&" mms<br>""e verifique se não existe algum em branco.outra sugestão não deixe o campo "de ou from" como um e-mail que nao seja do seu servidor, pois mais para frente você pode ter problemas no recebimento de algumas mensagens.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos_Seiji    0

Carlos_Seiji
Postado

qual replace?o response.write é para verificar o conteudo dos e-mails para ver se esta puxando certo por isso tem o caracter mms se tiver algum em branco, ou seja, so com mms escrito quer dizer que esta puxando errado.coloque a linha do from tbm como mentario

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

eu puis como cometario o frm e o sendo e puis assim Response.Write tbbanco1("e_mail")&" mms<br>"""agora quando eu colcoo pra enviar o email ele fika pensando e naum envia

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