Ir para conteúdo

POWERED BY:

Arquivado

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

cabral51

Problemas com envio de email usando cdonts

Por , em ASP Clássico

Recommended Posts

cabral51    0

cabral51
Postado

E a galera, tenho o seguinte cógido que o salgado, joselito me ajudaram a fazer:

Bom pessoal a variavel condicao faz um request numa lista de menu, onde tem a opcao todos e a opcao por email, so que o email naum chega, todos emails do select estao na condicao ja separados por virgula, e quando eu coloco no campo email.bcc= condicao o email naum chega, apenas chega para o parceiro@grupomercosul.com.br.

Alguem pode ajudar??

<% 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 = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"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= "felipecabral1451@gmail.com"	'email.bcc=  email.to= "parceiro@grupomercosul.com.br" ' email.bcc = corpo	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= tbbanco   email.to= "parceiro@grupomercosul.com.br"   email.bcc = tbbanco1("email")		'email.bcc = "felipecabral1451@gmail.com"	email.Subject = "Conte Comigo"    	email.Body = html	email.Send  	set Email = nothing		tbbanco1.movenext	wend	tbBanco1.Close	set tbBanco1=NothingEnd If		end if	 response.Redirect("enviadoselectemail.asp?codigox="&codigox&"&entid="&entid)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

micox    2

micox
Postado

Talvez este link te ajude. Ele serve pra enviar email independente do server usar Cdonts ou CDOSys:

Envia e-mail formato Html - Script funcional para CDONTS e CDOSys

 

Tem também este tutorial do Lucas: http://forum.iMasters.com.br/index.php?showtopic=120

 

Editado: IIii foi malz, lí direito o post agora.

 

 

Seu problema é que alguns emails não chegam né?

Bom, quando voce manda email dessa forma, alguns servidores costumam considerar isto SPAM e jogam os emails na caixa de spam ou lixeira.

Dá uma olhada nestas pastas e vê se tá lá.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Talvez este link te ajude. Ele serve pra enviar email independente do server usar Cdonts ou CDOSys: Envia e-mail formato Html - Script funcional para CDONTS e CDOSysTem também este tutorial do Lucas: http://forum.iMasters.com.br/index.php?showtopic=120Editado: IIii foi malz, lí direito o post agora.Seu problema é que alguns emails não chegam né?Bom, quando voce manda email dessa forma, alguns servidores costumam considerar isto SPAM e jogam os emails na caixa de spam ou lixeira.Dá uma olhada nestas pastas e vê se tá lá.

Cara na verdade o problema esta no email.bcc se naum tiver copia oculta ele envia o email sim mas quando eh copia oculta ele naum envia naum sei pq

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