用Jmail写一个发信程序,提示：非法赋值: 'jmail'

[yanweidong1030]

错误提示：
Microsoft VBScript 运行时错误 错误 '800a01f5'

非法赋值: 'jmail'

/mail.asp，行 8

Set jmail = Server.CreateObject("JMAIL.Message")
这句话没有写错吧。


说明：Jmail 4.3


程序如下：
<%
'本文件是测试邮件发送功能

call jmail("[e-mail]","test","<b></b>")
'call cmail("[e-mail]","test","<b></b>")

Sub Jmail(tomail,mailtitle,mailbody)
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient tomail '邮件收件人的地址
jmail.From = "[e-mail]" '发件人的E-MAIL地址
' jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
' jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = mailtitle '邮件的标题
jmail.Body = mailbody '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("202.103.9.82") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
End Sub

[51windows]

function Jmail
....
end function

[51windows]

Sub Jmail

Set jmail

两个不能一样，换一个！！

[yanweidong1030]

哦明白了我去试一下

[heheyiyi]

up.。○