Enviar.ASP

[Kodhi 0]

Galera, estou tentando fazer um formulário do site chegar ao meu e-mail..

Ele está chegando, mais o problema é que, ele chega com a fonta minuscula, quase não consigo ler.

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.xxx@xxx.com.br"
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = "xxx@xxx.com.br" 'conta@seu_dominio
cdoConfig.Fields.Item(sch & "sendpassword") = "xxx@xxx"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = "xxx@xxx.com.br" 'ENDEREÇO DE E-MAIL QUE SERÁ EXIBIDO NO FROM DA MENSAGEM
cdoMessage.To = "xxx@xxx.com.br" 'ex: conta@seu_dominio, conta@uol.com.br, conta@hotmail
cdoMessage.Subject = "Formulario de Contato"
cdoMessage.ReplyTo = Request("emailrem")

strBody = "<b>Dados</b><br> <br>" & _
"<b>Nome:</b>"& Request("nome")& _
"<b> Idade:</b>"& Request("idade")& "<font size = '4'>" & _
"<b>EstadoCivil:</b>"& Request("estadocivil")& _
"<b> Filhos:</b>"& Request("filhos")& "<br>" & _
"<b>Endereco:</b>"& Request("endereco")& _
"<b> Bairro:</b>"& Request("bairro")& _
"<b> Numero:</b>"& Request("numero")& "<br>" & _
"<b>Cidade:</b>"& Request("cidade")& _ 
"<b> Telefone:</b>"& Request("telefone")& _
"<b> Celular:</b>"& Request("celular")& "</font>" & _
"<b>Apresentacao:</b>"& Request("apresentacao")


strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

Response.redirect "index.html" 
%>

Já tentei..

 

strBody = "<font size= '4'><b>Dados</b></font><br> <br>" & _

 

Mais ele não aumenta, troca de cor e tudo, mais a fonte não aumenta..

Queria aumentar tb o tamanho no qual o cliente vai receber os campos, tipo o apresentação e etc.

 

Tentei insirir o código aqui, mais sem sucesso tb.

"<b>Apresentacao:</b>"& Request("<font size= '4'><b>apresentacao</b></font>")

 

Quem puder ajudar, obrigado.

[Pachevisk 3]

Olá Kodhi, vou tentar te ajudar...

 

Substitui esta parte:

 

strBody = "<h4>Dados</h4><br /><br />" & _
"<strong>Nome:</strong>"& Request("nome") &"<br />" & _
"<strong> Idade:</strong>"& Request("idade")& "<br />" & _
"<strong>EstadoCivil:</strong>"& Request("estadocivil") & "<br />" & _
"<strong> Filhos:</strong>"& Request("filhos") & "<br />" & _
"<strong>Endereco:</strong>"& Request("endereco")& "<br />" & _
"<strong> Bairro:</strong>"& Request("bairro")& "<br />" & _
"<strong> Numero:</strong>"& Request("numero")& "<br />" & _
"<strong>Cidade:</strong>"& Request("cidade")& "<br />" & _
"<strong> Telefone:</strong>"& Request("telefone")& "<br />" & _
"<strong> Celular:</strong>"& Request("celular")& "<br />" & _
"<strong>Apresentacao:</strong>"& Request("apresentacao")

E veja se deu certo...

[xanburzum 169]

você pode fazer o corpo do email usando tag HTML e usa o <font size=

[Kodhi 0]

não mudou nada no e-mail galera.

pache =//

 

msm assim valeu pela ajuda, o e-mail é da UOL

se alguem souber mais infos avisem ai.

[xanburzum 169]

como esta o corpo do email , da sua variavel strBody

use, a tag <font size=3....

dentro de sua mensagem,para enviar mensagens no formato HTML, altere o TextBody para HtmlBody,

 

objCDOSYSMail.TextBody = sua_Mensagem

 

exemplo:

 

' Enviado o Corpo da Mensagem   
	   Msg_HTML = "<table width='279′ border='0′ cellspacing='2′ cellpadding='0′><tr>"  
		Msg_HTML = Msg_HTML& "<td width='87′>Nome:</td><td width='186′>"&Request.Form("Nome")&"</td>"  
		Msg_HTML = Msg_HTML& "</tr><tr><td>E-Mail:</td><td>"&Request.Form("EMail")&"</td></tr><tr><td valign='top'>Mensagem:</td>"  
		Msg_HTML = Msg_HTML& "<td valign='top'>"&Request.Form("Mensagem")&"</td></tr></table>"  
  
   Message.HTMLBody = Msg_HTML