Jmail.asp
De TeHospedia
Exemplo de script do componente JMail:
<%session.LCID = 1046%>
<html>
<head>
<title>JMail</title>
</head>
<body>
<p align="center"><font face="Arial" size="5">Formulario de E-mail</font></p>
<font face="Arial">
<%
nome = Request.Form("nome")
sender = "suaconta@deemail.com"
cidade = Request.Form("cidade")
estado = Request.Form("estado")
from = Request.Form("from")
subject = "Setor: " & Request.Form("assunto")
recipient = "suaconta@deemail.com"
body = Request.Form("body")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.seudominio.com"
JMail.Sender = Sender
JMail.Subject = Subject
JMail.AddRecipient Recipient
data = Now()
JMail.Body = "IP de Origem: " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf&_
"Data: " & data & vbcrlf&_
"Nome: " & nome & vbcrlf&_
"Cidade: " & cidade & vbcrlf&_
"Estado: " & estado & vbcrlf&_
"E-mail: " & from & vbcrlf&_
"Mensagem: " & vbcrlf&_
body & vbcrlf
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Logging = True
JMail.Execute
%>
</font><center><font face="Arial" size="3">Seu e-mail foi enviado com sucesso<br>
</font></center>
<p align="center"><font face="Arial"><a href="formulario.asp">Retorne ao Formulario</a></font></p>
</body>
</html>
