Ir para conteúdo

POWERED BY:

Arquivado

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

Breno Luiz Braga

Email CDONTs + HTML

Por , em ASP Clássico

Recommended Posts

Breno Luiz Braga    0

Breno Luiz Braga
Postado

Seguinte galera, estou tentando enviar um email com conteudo HTML.

 

<%dim corpo, Mailercorpo = "<html xmlns='http://www.w3.org/1999/xhtml'><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>Untitled Document</title></head><body>aaa<b>a</b>aaa</body></html>" Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "email"Mailer.To = "email"Mailer.BodyFormat = 0 Mailer.MailFormat = 0  Mailer.Subject = "Teste" Mailer.Body = corpo Mailer.Send Set Mailer = Nothing %>

Acontece o seguinte, ele manda o email normalmente, mas em vez de aparecer o html aparece só o codigo:

 

"<html xmlns='http://www.w3.org/1999/xhtml'><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>Untitled Document</title></head><body>aaa<b>a</b>aaa</body></html>"

 

Obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

CaBo GeL    0

CaBo GeL
Postado

Usa esse ai e bom:

 

<%EmailContato=Replace(Request.Form("EmailContato"), "'", "''")VarCadastroBusca="Confirmação bem sucedida! <br> Aguarde que entraremos em contato o mais breve possível! <br><br> Atenciosamente:<br><b>Developer Center</b><br><a href='www.developercenter.com.br'><font size='1' color='#666666'>www.developercenter.com.br</a>"Sch = "www.schemas.microsoft.com/cdo/configuration/"	   Set TedkConfig = Server.CreateObject("CDO.Configuration")	TedkConfig.Fields.Item(Sch & "sendusing") = 2	TedkConfig.Fields.Item(Sch & "smtpauthenticate") = 1	TedkConfig.Fields.Item(Sch & "smtpserver") = "smtp.seusite.com.br"	TedkConfig.Fields.Item(Sch & "sendusername") = "contato=seusite.com.br"	TedkConfig.Fields.Item(Sch & "sendpassword") = "suasenha"	TedkConfig.Fields.Update		Set TedkMessage = Server.CreateObject("CDO.Message")		Set TedkMessage.Configuration = TedkConfig	TedkMessage.From = "contato@seusite.com.br"	TedkMessage.To = ""&EmailContato&""	TedkMessage.Subject = "Confirmação || de seu Site!"	TedkMessage.HTMLBody = VarCadastroBusca		If MsgHtml <> "" Then			TedkMessage.AutoGenerateTextBody = False			TedkMessage.TextBody = VarCadastroBusca		End If	Erro = ""	Sucesso = False	On Error Resume Next		TedkMessage.Send		Set TedkMessage = Nothing		Set TedkConfig = Nothing		If Err <> 0 Then			Erro = Err.Description		Else			Sucesso = True			'Response.Write("Enviado com Sucesso!")		End If	Set Mail = Nothing%>

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