jmail.asp

采用ASP。NET做的网上游戏交易平台

<%
function SendMail(MailtoName,mailto,titlestr,tmphtml)
dim JMail,msg,BodyText
set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312" '编码
JMail.silent=true '设置为true,JMail不会抛出例外错误.
JMail.ContentType = "text/html" '邮件正文格式

JMail.MailServerUserName = "ychjasp" '登录用户名
JMail.MailServerPassWord = "201314" '登录密码
'JMail.MailDomain = "126.com" '域名（如果用“[e-mail]”这样的用户名登录时，请指明domain.com
JMail.AddRecipient mailto,MailtoName '收信人
JMail.Subject = titlestr '主题
JMail.Body = tmphtml '邮件正文（纯文本格式）
JMail.FromName = MailtoName '发信人姓名
JMail.From = "[e-mail]" '发信人Email
JMail.Priority = 1 '邮件等级12345
msg = JMail.Send("smtp.126.com")
JMail.Close
set JMail = nothing
SendMail = msg
end function
'---------------------------------------------------------
%>