Ir para conteúdo

POWERED BY:

Arquivado

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

talita.jehle

Erro na hora de enviar uma proposta por email

Por , em ASP Clássico

Recommended Posts

talita.jehle    0

talita.jehle
Postado

Olá pessoal! Alguem pode me ajudar, quando cliente solicita uma proposta eu tenho uma opção de enviar por email que são os campos PARA e C/C, porem eu só consigo enviar para no maximo 3 emails, se eu tentar mandar para 4 emails o seguinte erro ocorre:Falha no envio do e-mail..Erro - 503 No recipient(s)..alguem pode me dar uma ajudinha!!!obrigada

Compartilhar este post

Link para o post
Compartilhar em outros sites

talita.jehle    0

talita.jehle
Postado

Esse é o comando para enviar o email...

 

Obrigada pela ajuda...!!!!

<%option explicit%><!-- #include file="../conexao.asp" --><!-- #include file="sessao_verificar.asp"--><%Dim sql, rsConsPropostas, rsItensPropostas, codigoClienteAFV, codigoClienteJDE, nomeCliente, codigoEquipamentoDim TotOuro, totPlatina, totPrata, totBronze, codPropGarantia, nomeContato, telefone, destino, descDestinoDim parcelas, atendente, descontoPlatina, DescontoOuro, DescontoPrata, DescontoBronze, ObservacaoDim emailpara, emailCopia, msg, mailer, msgResultadocodigoClienteAFV	= session("codigoClienteAFV")codigoClienteJDE	= session("codigoClienteJDE")nomeCliente			= session("nomeCliente")codigoEquipamento 	= Request("equipamento")codPropGarantia 	= Request("codpropgarantia")destino				= request("destino")emailpara 			= request("emailpara")emailcopia 			= request("emailcopia")Select Case destino	Case "propadesao"		descDestino = "Adesão"	Case "propupgrade"		descDestino = "Upgrade"		End Selectsql = "SELECT * FROM VW_PROPOSTAS WHERE CodPropGarantia = " & codPropGarantiaSet rsConsPropostas = DataConn.Execute(sql)'Recupera os Itens desta propostasql = "SELECT * FROM VW_ITENS_PROPOSTAS WHERE CodPropGarantia = " & codPropGarantiaSet rsItensPropostas = DataConn.Execute(sql)nomeContato			= rsConsPropostas("contato")telefone			= rsConsPropostas("telefone")parcelas			= rsConsPropostas("parcelas")atendente			= rsConsPropostas("atendente")descontoPlatina	= rsConsPropostas("DescontoPlatina")DescontoOuro 	= rsConsPropostas("DescontoOuro")DescontoPrata 	= rsConsPropostas("DescontoPrata")DescontoBronze 	= rsConsPropostas("DescontoBronze")Observacao 	= rsConsPropostas("Observacao")If isNull(descontoPlatina) or descontoPlatina = "" Then	descontoPlatina = "N.D."Else	descontoPlatina = formatCurrency(descontoPlatina )End IfIf isNull(descontoOuro) or descontoOuro = "" Then	descontoOuro = "N.D."Else	descontoOuro = formatCurrency(descontoOuro )End IfIf isNull(descontoPrata) or descontoPrata = "" Then	descontoPrata = "N.D."Else	descontoPrata = formatCurrency(descontoPrata )End IfIf isNull(descontoBronze) or descontoBronze = "" Then	descontoBronze = "N.D."Else	descontoBronze = formatCurrency(descontoBronze )End Ifmsg = msg & "<html>"msg = msg & "<head>"msg = msg & "<title>Untitled Document</title>"msg = msg & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"msg = msg & "<style type='text/css'>"msg = msg & "<!--"msg = msg & ".tabela{"msg = msg & "	color:#000000;"msg = msg & "	font-size:12px;"msg = msg & "	font-family:Arial, Helvetica, sans-serif;"msg = msg & "}"msg = msg & ".titulo{"msg = msg & "	font-family: Arial, Helvetica, sans-serif;"msg = msg & "	font-size: 13px;"msg = msg & "	color: #FFFFFF;"msg = msg & "	font-weight: bold;"msg = msg & "	background-color: #006699;"msg = msg & "	padding-right: 2px;"msg = msg & "	padding-left: 2px;"msg = msg & "}"msg = msg & ".negritoazul {"msg = msg & "	font-family: Arial, Helvetica, sans-serif;"msg = msg & "	font-size: 12px;"msg = msg & "	font-weight: bold;"msg = msg & "	color: #003D58;"msg = msg & "}"msg = msg & "-->"msg = msg & "</style>"msg = msg & "</head>"msg = msg & "<body background='../img/fundo.jpg' topmargin='0' marginheight='0' Bgproperties=fixed>"msg = msg & "		<table width='500' border='0' align='center' cellpadding='0' cellspacing='0'>"msg = msg & "		  <tr>"msg = msg & "			<td><br>"msg = msg & "			<table width='100%' border='0' border='0' cellpadding='0' cellspacing='0' class='tabela'>"msg = msg & "				<tr><td align='center'><img src='http://www.essilor.com.br/img/solutions_email.jpg'></td></tr>"msg = msg & "			</table>"msg = msg & "				<br><br>"msg = msg & "				  <table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' class='tabela'>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='2' width='643'>Rio de Janeiro, " & Day(Date) & " de " & monthname(month(date())) & " de "& Year(Date) & "</td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='69'> </td>"msg = msg & "					  <td width='572'> </td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='69'>À</td>"msg = msg & "					  <td width='572'>"&nomeCliente&"</td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='2' width='643'></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='69'>A/C.:</td>"msg = msg & "					  <td width='572'>"&nomeContato&"</td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='2' width='643'></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='69'>Telefone:</td>"msg = msg & "					  <td width='572'>"&telefone&"</td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='2' width='643'></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='2' width='643'> </td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='2' width='643'>"msg = msg & "						<div align='left'>Segue proposta para contratação de Garantia Especial para seus Sistemas de montagem ESSILOR.</div></td>"msg = msg & "					</tr>"msg = msg & "					<tr>"msg = msg & "					  <td colspan='2' width='643'></td>"msg = msg & "					</tr>"msg = msg & "				</table>"msg = msg & "				  <br>"msg = msg & "					<table width='100%' border='0' align='center' cellpadding='1' cellspacing='0' class='tabela'>"msg = msg & "					<tr>"msg = msg & "					  <td colspan='2'> </td>"msg = msg & "					  <td colspan='4' bgcolor='#CCCCCC'>"msg = msg & "						<div align='center'>Garantias especiais ("&parcelas&" pagamentos)</div></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='titulo'>"msg = msg & "					  <td width='302' >Equipamento</td>"msg = msg & "					  <td width='53' >"msg = msg & "						<p>Série</p></td>"msg = msg & "					  <td width='100'  align='center'><div align='right'>Platina</div></td>"msg = msg & "					  <td width='101'  align='center'><div align='right'>Ouro</div></td>"msg = msg & "					  <td width='103'  align='center'><div align='right'>Prata</div></td>"msg = msg & "					  <td width='101'  align='center'><div align='right'>Bronze</div></td>"msg = msg & "					</tr>"While Not rsItensPropostas.Eofmsg = msg & "		  <tr> "msg = msg & "			<td width='302'>"&rsItensPropostas("DescModelo")&"</td>"msg = msg & "			<td width='53'>"&rsItensPropostas("NumSerie")&"</td>"msg = msg & "			<td width='100' align='right'>"&FormatCurrency(rsItensPropostas("ValorPlatina"))&"</td>"msg = msg & "			<td width='101' align='right'>"&FormatCurrency(rsItensPropostas("ValorOuro"))&"</td>"msg = msg & "			<td width='103' align='right'>"&FormatCurrency(rsItensPropostas("ValorPrata"))&"</td>"msg = msg & "			<td width='101' align='right'>"&FormatCurrency(rsItensPropostas("ValorBronze"))&"</td>"msg = msg & "		  </tr>"'Recebe os valores para gerar total		   totPlatina = totPlatina + rsItensPropostas("ValorPlatina")		   totOuro	= totOuro	+ rsItensPropostas("ValorOuro")		   totPrata   = totPrata   + rsItensPropostas("ValorPrata")		   totBronze  = totBronze  + rsItensPropostas("ValorBronze")		 rsItensPropostas.MoveNext Wendmsg = msg & "				   <tr>"msg = msg & "					  <td colspan='6'></td>"msg = msg & "					</tr>"msg = msg & "				  <tr> "msg = msg & "					<td width='302' class='negritoazul'>TOTAL</td>"msg = msg & "					<td width='53'> </td>"msg = msg & "					<td width='100' ><div align='right'>"&FormatCurrency(totPlatina)&"</div></td>"msg = msg & "					<td width='101' ><div align='right'>"&FormatCurrency(totOuro)&"</div></td>"msg = msg & "					<td width='103'><div align='right'>"&FormatCurrency(totPrata)&"</div></td>"msg = msg & "					<td width='101' a><div align='right'>"&FormatCurrency(totBronze)&"</div></td>"msg = msg & "				  </tr>"msg = msg & "				  <tr class='negritoazul'>"msg = msg & "					<td width='302'>Valor total com desconto</td>"msg = msg & "					<td width='53'> </td>"msg = msg & "					<td width='100'><div align='right'>"&DescontoPlatina&"</div></td>"msg = msg & "					<td width='101' ><div align='right'>"&DescontoOuro&"</div></td>"msg = msg & "					<td width='103' ><div align='right'>"&DescontoPrata&"</div></td>"msg = msg & "					<td width='101' ><div align='right'>"&DescontoBronze&"</div></td>"msg = msg & "				  </tr>"msg = msg & "					<tr>"msg = msg & "					  <td width='302'> </td>"msg = msg & "					  <td width='53'></td>"msg = msg & "					  <td width='100' align='right'> </td>"msg = msg & "					  <td width='101' align='right'> </td>"msg = msg & "					  <td width='103' align='right'> </td>"msg = msg & "					  <td width='101' align='right'> </td>"msg = msg & "					</tr>"msg = msg & "					<tr>"msg = msg & "					  <td width='302'> </td>"msg = msg & "					  <td width='53'></td>"msg = msg & "					  <td width='100' align='right'> </td>"msg = msg & "					  <td width='101' align='right'> </td>"msg = msg & "					  <td width='103' align='right'> </td>"msg = msg & "					  <td width='101' align='right'> </td>"msg = msg & "					</tr>"msg = msg & "					<tr >"msg = msg & "					  <td colspan='6'><font class='negritoazul'>Observação:</font>" & iif(observacao="", "-", observacao) & "</td>"msg = msg & "					</tr>"msg = msg & "				  <tr>"msg = msg & "					  <td width='302'> </td>"msg = msg & "					  <td width='53'></td>"msg = msg & "					  <td width='100' align='right'> </td>"msg = msg & "					  <td width='101' align='right'> </td>"msg = msg & "					  <td width='103' align='right'> </td>"msg = msg & "					  <td width='101' align='right'> </td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='6'>"msg = msg & "						<div align='left'>Nosso intuito é preservar o bom funcionamento do equipamento e a continuidade da sua produção.</div></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='6'>"msg = msg & "						<div align='left'>Agradecemos a confiança e no caso de dúvidas, favor entrar em contato pelo seguinte telefone: 0800 882 4000.</div></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='302'> </td>"msg = msg & "					  <td width='53'> </td>"msg = msg & "					  <td width='100'> </td>"msg = msg & "					  <td width='101'> </td>"msg = msg & "					  <td width='103'> </td>"msg = msg & "					  <td width='101'> </td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td colspan='6'></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='302'> </td>"msg = msg & "					  <td width='53'> </td>"msg = msg & "					  <td width='100'> </td>"msg = msg & "					  <td width='101'> </td>"msg = msg & "					  <td width='103'> </td>"msg = msg & "					  <td width='101'> </td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='302'> <br>"msg = msg & "					  </td>"msg = msg & "					  <td width='53'> </td>"msg = msg & "					  <td width='100'> </td>"msg = msg & "					  <td width='101'> </td>"msg = msg & "					  <td colspan='2'>"msg = msg & "						<div align='center'>Atenciosamente,</div></td>"msg = msg & "					</tr>"msg = msg & "					<tr class='negritoazul'>"msg = msg & "					  <td width='302'> </td>"msg = msg & "					  <td width='53'> </td>"msg = msg & "					  <td width='100'> </td>"msg = msg & "					  <td width='101'> </td>"msg = msg & "					  <td colspan='2'>"msg = msg & "						<div align='center'>"&atendente&"<br>ESSILOR SOLUTIONS</div></td>"msg = msg & "					</tr>"msg = msg & "					<tr>"msg = msg & "					  <td> </td>"msg = msg & "					  <td> </td>"msg = msg & "					  <td> </td>"msg = msg & "					  <td> </td>"msg = msg & "					  <td> </td>"msg = msg & "					  <td> </td>"msg = msg & "					</tr>"msg = msg & "				</table>			</td></tr>"msg = msg & "		</table>"msg = msg & " </body>"msg = msg & " </html>"'TRECHO QUE ENVIA O E-MAIL'Envia e-mail para o ClienteSet Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.ContentType = "text/html"Mailer.FromName = "Essilor Solutions"Mailer.FromAddress = "instrumentos@essilor.com.br"Mailer.RemoteHost  = "leblon.br.essilor.com"Mailer.AddRecipient emailPara,emailParaIf Len(emailCopia) > 5 Then   Mailer.AddCC	emailCopia,emailCopiaEnd If   Mailer.Priority	= 1Mailer.Subject	 = "Proposta de Extensão de Garantia - " & descdestinoMailer.BodyText	= msgIf Mailer.SendMail then	msgResultado = "Proposta Enviada pelo e-mail com sucesso."Else	msgResultado = "Falha no envio do e-mail.."  	msgResultado = msgResultado & "<br>Erro - " & Mailer.Response & ".<br>"End If'TRECHO QUE ENVIA O E-MAIL%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="css/pc.css" rel="stylesheet" type="text/css"><script src="js/lib_janela.js" type="text/javascript"></script></head><body background="../img/fundo.jpg" topmargin="0" marginheight="0" Bgproperties=fixed><table width="760" border="0" align="center" cellpadding="1" cellspacing="1">  <tr height="5">	<td></td>  </tr>  <tr class="titulo">	<td>Cliente: <font color="#ffff00" size"2" face="Verdana"><%=nomeCliente%></font></td>  </tr>  <tr class="titulo">	<td>Cliente > Atender > Propostas > Extensão Garantia > Enviar e-mail </td>  </tr></table><br><table width="760" border="0" align="center" cellpadding="0" cellspacing="0">		<tr>		  <td>			<table width="90%" border="0" align="center" cellpadding="0" cellspacing="3" class="tabela">			  <tr>				<td width="76%" class="mensagem"><div align="center"><%=msgResultado%></div></td>			  </tr>			</table>		  </td>		</tr></table><%'Fecha conexãorsConsPropostas.ClosersItensPropostas.CloseDataConn.Closeset dataConn = nothing%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

talita.jehle    0

talita.jehle
Postado

Oi gente alguem não consegue me ajudar!!Preciso que este comando abaixo permita que envie uma proposta para mais de tres pessoas, mas ele não deixa e da erro.'Envia e-mail para o ClienteSet Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.ContentType = "text/html"Mailer.FromName = "Essilor Solutions"Mailer.FromAddress = "instrumentos@essilor.com.br"Mailer.RemoteHost = "leblon.br.essilor.com"Mailer.AddRecipient emailPara,emailParaIf Len(emailCopia) > 5 ThenMailer.AddCC emailCopia,emailCopiaEnd If Mailer.Priority = 1Mailer.Subject = "Proposta de Extensão de Garantia - " & descdestinoMailer.BodyText = msgIf Mailer.SendMail thenmsgResultado = "Proposta Enviada pelo e-mail com sucesso."ElsemsgResultado = "Falha no envio do e-mail.." msgResultado = msgResultado & "<br>Erro - " & Mailer.Response & ".<br>"End If%>Poxa...me ajudem ai...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Como assim? Retire aquele If Len(emailCopia) > 5 Then e testa. Não reparei onde você armazena mais de um e-mail. Ou o problema é o envio de e-mails consecutivo?

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