Ir para conteúdo

POWERED BY:

Arquivado

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

Denison Lopes

[Resolvido] Envio de e-mail formatado em HTML

Por , em ASP Clássico

Recommended Posts

Denison Lopes    0

Denison Lopes
Postado

Olá a todos!

Seguinte: Estou tentando enviar um e-mail formatado em html utilizando o componente asp CDOSYS. No entanto, quando eu abro o e-mail enviado no meu webmail, abre normal, tudo formatado, beleza. Quando eu abro no Outlook ou mando para o Gmail por exemplo, aparece todo o código html!

Eis o código da página completo abaixo:

 

 

<%

vNome = Request.Form("nome")
vEmail = Request.Form("email")

corpo = "<html><table width='100%'><tr><td><font face='verdana' size='2' color='#000000'>Olá, " & vNome & "!<br><br>"
 
corpo = corpo & "Seja bem vindo!<br><br>"

corpo = corpo & "Esta mensagem foi enviada automaticamente.<br><br>"

corpo = corpo & "Caso tenha alguma dúvida não responta este e-mail.<br><br>"

corpo = corpo & "Ligue para um de nossos telefones."

corpo = corpo & "Obrigado pelo seu contato.<br><br>"

corpo = corpo & "Estamos ao seu dispor.</font></td></tr>"

corpo = corpo & "<tr><td>"

corpo = corpo & "</td></tr></table></body></html>"

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

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@dominio.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields.update 

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "email@dominio.com.br"
objCDOSYSMail.To = "email2@dominio.com.br"
objCDOSYSMail.Subject = "Contato do site"
objCDOSYSMail.TextBody = corpo
objCDOSYSMail.Send

set objCDOSYSMail = nothing
set objCDOSYSCon = nothing

%>

No outlook esse e-mail é visualizado assim:

<html><table width='100%'><tr><td><font face='verdana' size='2' color='#000000'>Olá, Nome!<br><br>
Seja bem vindo!<br><br>Esta mensagem foi enviada automaticamente.<br><br>Caso tenha alguma dúvida não responta este e-mail.<br><br>Ligue para um de nossos telefones.Obrigado pelo seu contato.<br><br>Estamos ao seu dispor.</font></td></tr><tr><td></td></tr></table></body></html>

Agradeço a todos pela colaboração.

Compartilhar este post

Link para o post
Compartilhar em outros sites

augustoclaro    2

augustoclaro
Postado

Olá amigo!

 

Tente procurar antes de postar dúvidas aqui.

 

Use isso:

 

objCDOSYSMail.BodyFormat = 1 (HTML) ou 0 (texto)

Procurei por cdosys html message e axei a resposta no segundo link ;)

 

EDIT:

 

Pelo que vi você também pode usar assim:

 

objCDOSYSMail.HTMLBody = corpo

fonte: http://support.microsoft.com/kb/286431/pt-br (primeiro link da mesma busca)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Denison Lopes    0

Denison Lopes
Postado

Ei Augusto!

Muito obrigado pela ajuda. Sinceramente não sou de postar antes de procurar muito. Como sou iniciante em programação ASP, minha busca não foi bem sucedida. Eu até cheguei a visualizar a página indicada em uma das minhas buscas, mas como disse minha falta de conhecimento não permitiu que eu visualizasse a solução. Consegui resolver substituindo "objCDOSYSMail.TextBody = corpo" por "objCDOSYSMail.HTMLBody = corpo". Conforme você explicou.

 

Mais uma vez agradeço sua atenção.

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