'函数名：sendmail[br]'作 用：用jmail组件发送邮件[br]'参 数：mailtoaddress -----收信人信箱[br]' mailtoname -----收信人姓名[br]' subject -----主题[br]' mailbody -----信件内容[br]' mailfrom -----发信人信箱[br]' fromname -----发信人姓名[br]' priority -----信件优先级[br]' mailserveruser -----登陆邮箱用户名[br]' mailserverpass -----登陆邮箱密码[br]' maildomain -----邮箱域名[br]' mailserver -----发件smtp服务器[br]' makle整理于2007年8月29日 qq:30892070[br]'**************************************************[br]function sendmail(mailtoaddress,mailtoname,subject,mailbody,mailfrom,fromname,mailserveruser,mailserverpass,maildomain,mailserver)[br]' on error resume next[br]dim jmail,jmailstat[br]set jmail=server.createobject("jmail.message")[br] if err then[br] err.clear[br] response.write "组件检测失败"[br] jmail.close()[br] set jmail=nothing[br] exit function[br] end if[br]jmail.charset="gb2312" '邮件字符集[br]jmail.silent=true '忽略错误[br]jmail.contenttype = "text/html" '邮件编码[br]jmail.addrecipient mailtoaddress,mailtoname '收件人地址[br]jmail.returnreceipt = true '是否收条（验证中）[br]jmail.from = mailfrom '发件人邮箱[br]jmail.maildomain=maildomain '邮箱所在域名（验证中）[br]jmail.fromname = fromname '发件人姓名[br]jmail.mailserverusername=mailserveruser '邮箱用户名[br]jmail.mailserverpassword=mailserverpass '邮箱密码[br]jmail.subject=subject '邮件主题[br]jmail.body=mailbody '邮件正文（纯文本格式）[br]'jmail.hmtlbody=mailbody '邮件正文（html格式）[br]jmail.priority=1 '邮件等级，1为加急，3为普通，5为低级[br]jmailstat=jmail.send(mailserver)[br] if jmailstat then[br] response.write "成功"[br] else[br] response.write "失败"[br] end if[br]jmail.close()[br]set jmail=nothing[br]end function