jmail：这代码发送一次后要重启电脑才行？
Function SendMail(toEmail,subject,content)
smtp=EmailSMTP
from=EmailLoginName
user=EmailLoginName
pwd=EmailPass
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
'jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
'jmail.ContentType = "text/plain" '邮件的格式为HTML格式
jmail.AddRecipient toEmail '邮件收件人的地址
jmail.From = from '发件人的E-MAIL地址
jmail.MailServerUserName = user '登录邮件服务器所需的用户名
jmail.MailServerPassword = pwd '登录邮件服务器所需的密码
jmail.Subject = subject '邮件的标题
jmail.Body = body '邮件的内容
jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
'jmail.Send(smtp) '执行邮件发送（通过邮件服务器地址）
issended=jmail.Send(smtp)
jmail.close
Set jmail = nothing
End Function
