开发者社区> 问答> 正文

ECS的邮件发送不了,出现代码500错误,

<%
Sub SendAction(subject, email, sender, content)
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
JMail.From = strMailUser ' 发送者地址
JMail.FromName = sender' 发送者姓名
JMail.Subject =subject
JMail.MailServerUserName = strMailUser' 身份验证的用户名
JMail.MailServerPassword = strMailPass ' 身份验证的密码
JMail.Priority = 3 '邮件等级,1为加急,3为普通,5为低级
JMail.AddRecipient(email)
JMail.Body = content
JMail.Send(strMailAddress)
End Sub

'调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject ="网站www.spingled.com"
strContent = "网站www.spingled.com"&date()
strSender = "网站1组 "
strEmail = "233678323@qq.com"'这是收信的地址,可以改为其它的邮箱
strMailAddress = "smtp.mxhichina.com" '我司企业邮局地址,请使用 mail.163.com您的域名
strMailUser ="admin@diiss.net" '我司企业邮局用户名,如630@163.com
strMailPass = "3222Cc" '邮局用户密码
Call SendAction (strSubject,strEmail,strSender,strContent)
%>
整个页面代码就这些,在ECS就会出错(JMail组件已安装),虚拟就可以正常使用.
ECS测试网址http://zhitedz.com/admin/1.asp

展开
收起
呢嗯 2017-08-01 16:52:36 3437 0
2 条回答
写回答
取消 提交回答
问答排行榜
最热
最新

相关电子书

更多
如何运维千台以上游戏云服务器 立即下载
网站/服务器取证 实践与挑战 立即下载
ECS快储存加密技术 立即下载