专用网络的ECS问题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 =subjectJMail.MailServerUserName = strMailUser' 身份验证的用户名JMail.MailServerPassword = strMailPass ' 身份验证的密码JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级JMail.AddRecipient(email)JMail.Body = contentJMail.Send(strMailAddress)End Sub
'调用此Sub的例子Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromerstrSubject ="网站1strContent = "网站1"&date()strSender = "网站1组 "strEmail = ""strMailAddress = "" strMailUser ="" strMailPass = "" Call SendAction (strSubject,strEmail,strSender,strContent)%>整个页面代码就这些,在ECS就会出错(JMail组件已安装),虚拟就可以正常使用.ECS测试网址
帐号,密码这些限制了,发不贴子,已经删掉