ASP无法jmail发送邮件

Question

已经安装了jmail组件，但是无法发送邮件，代码如下:
<%
sys_mailuser="[email protected]"
sys_name="zc"
sys_mailtitle="test"
sys_mailuser="hwjzc14"
sys_mailpass="***"
user_mail="[email protected]"
content="test"
sys_mailserver="smtp.126.com"
set jmail=server.CreateObject ("jmail.message")
jmail.Silent=true
jmail.Charset="gb2312"
jmail.logging=true
JMail.ContentType = "text/html" '邮件格式 TEXT 或HTML
jmail.from=sys_mailuser '邮箱名
jmail.FromName=sys_name '发件人
JMail.Subject =sys_mailtitle '邮件标题
jmail.MailServerUserName =sys_mailuser '用户明
jmail.MailServerPassWord =sys_mailpass '密码
emailto = user_mail '收件人
JMail.AddRecipient emailto
JMail.Body = content '内容
jmail.Send(sys_mailserver) ’邮件服务器
%>
错误提示如下:
Microsoft VBScript 编译器错误 '800a0408'

无效字符

\jmail.asp, line 23

请问怎么解决
第23行是最后一行
jmail.Send(sys_mailserver)
我已经改了'了，页面没错了，但是还是收不到邮件，请问可能的原因

Answer 1

<%
function SendMail(ToAddress,subject,msg)
Dim Jmail
dim s1,s2,s3
'标题
s1=request("s1")
'EMAIL
s2=request("s2")
' 内容
s3=request("s3")

sender="" '发送邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "" '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject =s1
Jmail.AddRecipient s2
Jmail.Body=s3
Jmail.Send("smtp.126.com") 'SMTP服务器,需要根据实际修改
response.write "发送成功！"
Set Jmail=nothing
end function

MailBody=trim(Request("MailBody"))
ToAddress=trim(("Tomail"))
subject=trim(Request("subject"))
sender=trim(Request("sender"))

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\save.txt",8,true,0)
ff.writeline("收信人:"&ToAddress&"时间:"&date&" "&time&chr(13)+chr(10))
ff.writeline("信件内容:"&chr(13)&chr(10)&MailBody)
ff.close

mailbody=Mailbody&"发信时间:"&date&" "&time&chr(13)+chr(10)&"发信人ip地址:"&request.servervariables("REMOTE_HOST")&chr(10)+chr(10)+chr(10)&"感谢"
Call SendMail (ToAddress,Subject,MailBody)

%>本回答被提问者采纳