UC知道谁帮我看看这个Jmail的设置？
来源：百度知道 编辑：UC知道 时间：2024/05/23 00:55:47
<%
function SendMail(mailto,subject,msg)
dim JMail
'on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/plain"
JMail.Sender = "XX@163.com"
JMail.ReplyTo = "XX@163.com"
JMail.SenderName = "我的名字"
JMail.Subject = subject
JMail.SimpleLayout = true
JMail.Body = msg
JMail.Priority = 1
JMail.AppendBodyFromFile(Server.MapPath("Inc/Mailend.txt"))
JMail.AddRecipient mailto
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
SendMail = JMail.Execute()
JMail.Close
set JMail=nothing
call RecordLog(mailto,subject,msg)
end function
function NeedMail(MType,ToID,subject,msg)
dim Rs,sql,Rss
set Rs=server.createobject("ad
function SendMail(mailto,subject,msg)
dim JMail
'on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/plain"
JMail.Sender = "XX@163.com"
JMail.ReplyTo = "XX@163.com"
JMail.SenderName = "我的名字"
JMail.Subject = subject
JMail.SimpleLayout = true
JMail.Body = msg
JMail.Priority = 1
JMail.AppendBodyFromFile(Server.MapPath("Inc/Mailend.txt"))
JMail.AddRecipient mailto
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
SendMail = JMail.Execute()
JMail.Close
set JMail=nothing
call RecordLog(mailto,subject,msg)
end function
function NeedMail(MType,ToID,subject,msg)
dim Rs,sql,Rss
set Rs=server.createobject("ad
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>表单提交至邮箱(非Mailto,不弹出Outlook)</title>
</head>
<body>
<h4>表单提交至邮箱(非Mailto,不弹出Outlook)</h4>
如发送失败请先检查程序常量设置，服务器是否安装了Jmail4.3以上版本。<br>
Jmail组件下载：http://www.skycn.com/soft/5555.html<br>
如果返回“The message was undeliverable. All servers failed to receive the message”说明服务器或服务器所在的网络有防火墙，不允许IIS进程发送邮件。
<form name="form1" method="post">
邮件标题：
<input type="text" name="tit" id="tit">
<br>
邮件正文（支持HTML）：<br>
<textarea name="con" id="con" cols="45" rows="5"><b>J