Ir para conteúdo

POWERED BY:

Arquivado

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

bruno_takeo

erro nas mensagens criadas via asp

Por , em ASP Clássico

Recommended Posts

bruno_takeo    0

bruno_takeo
Postado

Boa tarde!

Estou com um problema froids...

Crio um e-mail pelo asp usando o componente abaixo:

 

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

 

Porem ele envia normal, mas no outlook quando o email é recebido, aparece uns espaços em branco no corpo da mensagem. Percebi que esses espaços aparecem apenas quando abro o email no outlook.

 

Alguem sabe o que pode ser?

 

Obrigado.

 

Bruno

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

poste como esta o trecho do code que contém o corpo do email, e verifique se o CDOSYS esta configurado para email em HTMLa

Compartilhar este post

Link para o post
Compartilhar em outros sites

bruno_takeo    0

bruno_takeo
Postado

O corpo do email contem tags html.

 

       Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "aviso@centraldecontabilidade.com.br"
objCDOSYSMail.To = "" & email_destinatario
objCDOSYSMail.ReplyTo = "aviso@centraldecontabilidade.com.br"

objCDOSYSMail.Subject = "assunto teste"
objCDOSYSMail.HtmlBody = mensagem
objCDOSYSMail.fields.update

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

asp_monta_email = "<html>"
						asp_monta_email = asp_monta_email & "<body>"
						asp_monta_email = asp_monta_email & "<table border=0>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td>"
						asp_monta_email = asp_monta_email & "*************** Favor não responder esse e-mail. ***************"
						asp_monta_email = asp_monta_email & "		</td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td height=40></td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td>"
						asp_monta_email = asp_monta_email & nome
						asp_monta_email = asp_monta_email & "		</td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td height=10></td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td>"
						asp_monta_email = asp_monta_email & "Existem impostos da competência " & mid(Session("AnoMes"),6,2) & "/" & mid(Session("AnoMes"),1,4) & " disponíveis."
						asp_monta_email = asp_monta_email & "		</td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td>"
						asp_monta_email = asp_monta_email & "Para visualizar, clique nos impostos abaixo:"
						asp_monta_email = asp_monta_email & "		</td>"
						asp_monta_email = asp_monta_email & "	</tr>"



for i=0 to asp_num_imp6
							a=trim(mImp6(1,i)) 'tipo
							b=trim(mImp6(2,i)) 'id_empresa
							c=trim(mImp6(3,i)) 'ano_mes
							d=trim(mImp6(4,i)) 'id_darf
							e=""

							asp_desc_compl = ""
							if trim(mImp6(7,i)) <> "" then
								asp_desc_compl = " (pago em " & trim(mImp6(7,i)) & ")"
							elseif trim(mImp6(6,i)) <> "" then
								asp_desc_compl = " (visualizado em " & trim(mImp6(6,i))& ")"
							end if

							if trim(asp_desc_compl) <> "" then
								dc_imposto = trim(ucase(trim(mImp6(5,i)))) & asp_desc_compl
							else
								dc_imposto = trim(ucase(trim(mImp6(5,i))))
							end if

							link = "http://www.dominio.com.br/pasta/pagina_asp.asp?a=" & a & "&b=" & b & "&c=" & c & "&d=" & d & "&e=" & e & "&f=" & id_usuario & "&g=" & permissao
							asp_monta_email = asp_monta_email & "	<tr>"
							asp_monta_email = asp_monta_email & "		<td>"
							asp_monta_email = asp_monta_email & "<font size=2 color=steelblue><b><a href='" & link & "'>- " & dc_imposto & "</a></b></font>"
							asp_monta_email = asp_monta_email & "		</td>"
							asp_monta_email = asp_monta_email & "	</tr>"	
						next


asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td height=10></td>"
						asp_monta_email = asp_monta_email & "	</tr>"

						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td>"
						asp_monta_email = asp_monta_email & "Observação: caso não esteja conseguindo visualizar o imposto, entre no site <a href='http://" & replace(site_escritorio,"http://","") & "'>" & site_escritorio & "</a> e acesse com seus dados de login e senha."
						asp_monta_email = asp_monta_email & "		</td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td height=10></td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td>"
						asp_monta_email = asp_monta_email & "Atenciosamente,"
						asp_monta_email = asp_monta_email & "		</td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "	<tr>"
						asp_monta_email = asp_monta_email & "		<td>"
						asp_monta_email = asp_monta_email & trim(session("razao_escritorio")) & ""
						asp_monta_email = asp_monta_email & "		</td>"
						asp_monta_email = asp_monta_email & "	</tr>"
						asp_monta_email = asp_monta_email & "</table>"



						asp_monta_email = asp_monta_email & "</body>"
						asp_monta_email = asp_monta_email & "</html>"

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