Ir para conteúdo

POWERED BY:

Arquivado

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

arldin

[Resolvido] E posivel as informação no email

Por , em ASP Clássico

Recommended Posts

arldin    1

arldin
Postado

O que eu estou querendo e o sequinte eu tenho o documento enviar1.asp para recer email no meu site,

Gostaria de saber 2 coisas

A primeira e se as palvaras podem vim com cor, e se tambem pode vir tipo tabela

O codico e este as palavras são a que estão em vermelho

 

<%

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.arldinartfest.com.br"

cdoConfig.Fields.Item(sch & "smtpserverport") = 25

cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30

cdoConfig.Fields.Item(sch & "sendusername") = "arldin@arldinartfest.com.br"

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

cdoConfig.fields.update

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

Set cdoMessage.Configuration = cdoConfig

 

cdoMessage.From = request.Form("responder")

cdoMessage.To = request.Form("destino")

cdoMessage.Subject = "Formulario de Pedido"

 

strBody = "Dados do Pedido" & vbCrLf & vbCrLf & _

"CÓD.001 HOMEM ARANHA PREÇO R$: "& Request("preco1") & vbCrLf & _

"QUANTIDADE: "& Request("quant1") & vbCrLf & _

"TOTAL R$: "& Request("total1") & vbCrLf & _

"CÓD.002 FLAMENGO PREÇO R$: "& Request("preco2") & vbCrLf & _

"QUANTIDADE: "& Request("quant2") & vbCrLf & _

"TOTAL R$: "& Request("total2") & vbCrLf & _

 

"TOTAL DO PEDIDO R$: "& Request("totalgeral") & vbCrLf & _

"NOME: "& Request("nome") & vbCrLf & _

"ENDEREÇO: "& Request("end") & vbCrLf & _

"NUMERO: "& Request("num") & vbCrLf & _

"CIDADE: "& Request("cid") & vbCrLf & _

"ESTADO: "& Request("estado") & vbCrLf & _

"CEP: "& Request("cep") & vbCrLf & _

"DDD: "& Request("ddd") & vbCrLf & _

"TELEFONE: "& Request("tel") & vbCrLf & _

"FAX: "& Request("fax") & vbCrLf & _

"E-MAIL: "& Request("responder") & vbCrLf & _

"FORMAS DE PAGAMENTO: "& Request("pag") & vbCrLf & _

"CHEQUE NUM: "& Request("numch") & vbCrLf & _

"BANCO NUM: "& Request("bcnum") & vbCrLf & _

"CONTA NUM: "& Request("cc") & vbCrLf & _

"BOM PARA: "& Request("dta") & vbCrLf & _

"COLOQUE OUTROS TEMAS QUE NÃO TENHA NESTE FORMULARIO "& Request("mensagem")

 

strBody = strBody & "."

cdoMessage.HTMLBody = strBody

 

cdoMessage.Send

 

Set cdoMessage = Nothing

Set cdoConfig = Nothing

 

response.write "O E-mail foi processado e enviado com sucesso"

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

pode sim. primeiro seu componente de envio tem que suportar conteúdo em HTML.. daí é só você concatenar seu código ASP com uma montagem HTML... um exemplo?

Mensagem = "<html><head><meta http-equiv=" & chr(34) & "Content-Type" & chr(34) & " content=" & chr(34) & "text/html; charset=UTF-8" & chr(34) & "></head>"
Mensagem = Mensagem & "<body><p style=" & chr(34) & "color:#FFCC00" & chr(34) & " size=2> "_
					& " Uma nova mensagem foi enviada para você!<br /><br /> "_
					& " -------------------------------------------------------------<br /> "_
					& " <strong>Nome: </strong>"&var_nome&"<br /> "_
					& " <strong>E-mail: </strong>"&var_email&"<br /> "_
					& " <strong>Telefone: </strong>"&var_telefone&"<br /> "_
					& " <strong>Cidade: </strong>"&var_cidade&"<br /> "_
					& " -------------------------------------------------------------<br /><br /> "_
					& ""&var_mensagem&"<br /> "_
					& " -------------------------------------------------------------<br /><br /> "_
					& " </p></body></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