Suporte
 
Painel de Controle Insite
ASP

Envio de e-mail utilizando o componente Jmail

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost:25"
JMail.Sender = "seuemail@seudominio"
JMail.SenderName = Nome
JMail.Subject = "Titulo do E-mail"
JMail.AddRecipient "emaildestinatario@dominio"
JMail.ContentType = "text/html"
JMail.body = "<center&gt<font face=arial size=3 color=#ff0000>Fale Conosco</font></center>"
JMail.AppendText("<table cellpadding=0 cellspacing=0 border=0 align=left><tr><td><b>Empresa: </b></td><td>" & nome & "</td></tr>")
JMail.AppendText("<tr><td><b>Contato:</b></td><td>" & nome & "</td></tr>")
JMail.AppendText("<tr><td><b>Email:</b></td><td>" & email & "</td></tr>")
JMail.AppendText("<tr><td><b>Empresa:</b></td><td>" & empresa & "</td></tr>")
JMail.AppendText("<tr><td><b>Endereço:</b></td><td>" & endereco & "</td></tr>")
JMail.AppendText("<tr><td><b>Cidade:</b></td><td>" & cidade & "</td></tr>")
JMail.AppendText("<tr><td><b>Estado:</b></td><td>" & estado & "   Cep: " & cep & "</td></tr>")
JMail.AppendText("<tr><td colspan=2><b>Como você chegou a nós ?</b></td></tr>")
JMail.AppendText("<tr><td colspan=2>" & chegar & "</td></tr>")
JMail.AppendText("<tr><td colspan=2><b>Comentários:</b></td></tr>")
JMail.AppendText("<tr><td colspan=2> " & comenta & "</td></tr>")
JMail.Execute
set JMail = nothing
%>