Ir para conteúdo

POWERED BY:

Arquivado

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

lizardbr

Formato HTML

Por , em ASP Clássico

Recommended Posts

lizardbr    0

lizardbr
Postado

pessoal, no formulário de contato, não esta chegando o email no formato HTML, o que pode ser? será a configuração do mail pra onde é enviado?'Corpo do EmailCorpo = "<html>"Corpo = Corpo & "<link href="& Local &"Includes/Styles.css rel=stylesheet type=text/css>"Corpo = Corpo & "<table cellspacing=10 width="&Chr(34)&"100%"&Chr(34)&">"acaba chegando assim:<html><link href=http://www.site.com.br/Includes/Styles.css rel=stylesheettype=text/css><table cellspacing=10 width="100%"><tr><td width="120"><spanclass="TextTahoma11CinzaBold">Data/Hora: tudo bagunçado, nao esta aceitando o html

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

Qual componente você esta usando?você precisa definir o TIPO DE CODIFICAÇÃO DA MENSAGEM, como sendo HTML.Dependendo de qual componente você esta usando, o parametro é diferente.Tendeu?T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

lizardbr    0

lizardbr
Postado

Qual componente você esta usando?você precisa definir o TIPO DE CODIFICAÇÃO DA MENSAGEM, como sendo HTML.Dependendo de qual componente você esta usando, o parametro é diferente.Tendeu?T+

estou usando CDO' Definindo uma variavel auxiliar sch = "http://schemas.microsoft.com/cdo/configuration/" ' Criando o objeto de configuração do CDO Set cdoConfig = Server.CreateObject("CDO.Configuration") ' Definindo as configurações cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.site.com.br" cdoConfig.Fields.Item(sch & "sendusername") = "we=site.com.br" cdoConfig.Fields.Item(sch & "sendpassword") = "*******" cdoConfig.fields.update ' Criando o objeto de msg do CDO Set cdoMessage = Server.CreateObject("CDO.Message") ' Associando as configurações ao obj Mensagem Set cdoMessage.Configuration = cdoConfig ' Definido variaveis da msg cdoMessage.From = "we@site.com.br" cdoMessage.To = EmailContato cdoMessage.Subject = VarAssunto & " - (" & NomedaLoja & ")" cdoMessage.TextBody = Corpo

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

Brother !!

 

Nao sou muito bom com CDOSYS, mas vamos lá:

Preste atenção na linha em vermelho:

 

' Definindo uma variavel auxiliar

sch = "http://schemas.microsoft.com/cdo/configuration/"

 

' Criando o objeto de configuração do CDO

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

 

' Definindo as configurações

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.site.com.br"

cdoConfig.Fields.Item(sch & "sendusername") = "we=site.com.br"

cdoConfig.Fields.Item(sch & "sendpassword") = "*******"

cdoConfig.fields.update

 

' Criando o objeto de msg do CDO

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

 

' Associando as configurações ao obj Mensagem

Set cdoMessage.Configuration = cdoConfig

 

' Definido variaveis da msg

cdoMessage.From = "we@site.com.br"

cdoMessage.To = EmailContato

cdoMessage.Subject = VarAssunto & " - (" & NomedaLoja & ")"

cdoMessage.HtmlBody = Corpo

Faça a alteração na linha em vermelho.. e teste!

 

Forte Abraç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