JMail邮件组件的使用说明

'**************************************************
'函数名：SendMail
'作 用：用Jmail组件发送邮件
'参 数：MailtoAddress    -----收信人信箱
'         MailtoName        -----收信人姓名
'         Subject             -----主题
'         MailBody           -----信件内容
'         MailFrom           -----发信人信箱
'         FromName         -----发信人姓名
'         Priority               -----信件优先级
'         MailServerUser   -----登陆邮箱用户名
'         MailServerPass   -----登陆邮箱密码
'         MailDomain        -----邮箱域名
'         MailServer         -----发件SMTP服务器
'    makle整理于2007年8月29日 QQ:30892070
'**************************************************
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,MailFrom,FromName,MailServerUser,MailServerPass,MailDomain,MailServer)
' on error resume next
 Dim JMail,JMailstat
 Set JMail=Server.CreateObject("JMail.Message")
    if err then
       err.clear
       Response.Write "组件检测失败"
       JMail.close()
       Set JMail=nothing
       exit function
    end if
 JMail.Charset="gb2312"                       '邮件字符集
 JMail.silent=True                            '忽略错误
 JMail.ContentType = "text/html"              '邮件编码
 JMail.AddRecipient MailtoAddress,MailtoName  '收件人地址
 JMail.ReturnReceipt = True                   '是否收条（验证中）
 JMail.From = MailFrom                        '发件人邮箱
 JMail.MailDomain=MailDomain                  '邮箱所在域名（验证中）
 JMail.FromName = FromName                    '发件人姓名
 JMail.MailServerUserName=MailServerUser      '邮箱用户名
 JMail.MailServerPassWord=MailServerPass      '邮箱密码
 JMail.Subject=Subject                        '邮件主题
 JMail.Body=MailBody                          '邮件正文（纯文本格式）
 'JMail.HMTLBody=MailBody                     '邮件正文（HTML格式）
 JMail.Priority=1                             '邮件等级，1为加急，3为普通，5为低级
 JMailstat=JMail.Send(MailServer)
    If JMailstat then
       response.write "成功"
    else
       response.write "失败"
    end if
 JMail.close()
 Set JMail=nothing
End Function

说明：
    上述只是JMail4.5发邮件的一个实用实例，JMail4.5组件下载及中文操作手册下载请见PC诊所站内软件下载部分 http://www.pczs120.com/soft/softinfo40.htm