Jmail的使用,可以发送给多人

关注

原创最新推荐文章于 2026-03-28 09:25:36 发布 1.9k 阅读 AI 写同款· GEO 优化 ›

BQ35100电量计芯片在锂原电池监测中的低功耗设计与I2C通信实战在嵌入式系统与物联网设备中，精确的电池电量监测是保障设备长期可靠运行的核心技术。其原理在于通过高精度库仑计数、电压与温度采样，结合电池化学模型算法，实现对电池健康状态（SOH）和剩余容量的动态估算。这项技术的核心价值在于，它解决了锂亚硫酰氯等电压平台平坦电池无法通过简单电压测量判断电量的行业难题，为超低功耗、长寿命设备提供了关键的电源管理依据。其典型应用场景包括智能水表、烟雾报警器、便携医疗设备等依赖一次性电池供电的节点。本文聚焦于TI的BQ35100专用电量计芯片，深入剖析其如何通过极低功耗的库仑计数与智阅读详情

'使用时候直接CALL就可以了

function sendmail
'==================================================
' 参数设置开始，请修改相应参数
smtpserver = "smtp.163.com" '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改
smtpuser = "" '与SMTP服务器对应的邮箱用户名，请修改
smtppwd = "" '与SMTP服务器对应的邮箱密码，请修改
'如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码
'与相应SMTP服务器对应的邮件地址
'注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地
'址，比如163.com的SMTP服务器在检查发信人邮件地址是不是以163.com
'结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的
'smtpemail = "" 'SMTP服务器发信邮箱，请修改
' 参数设置结束
'==================================================

aryEmail = split("123@123.com;345@345.com", ";")'可以填写多个邮箱,用分号隔开
username = request("name")
tel = request("tel")
kehumail = request("email")
feedtitle = request("title")
feedcontent =request("content")
senddata = now()
username = Request.form("Somane")
'这里用来调用提交表单的值，然后可以在mail的body中返回这些值
content = trim(Request("content"))

myemail=myemail &"""" '用来接收邮件的邮箱，请修改,可以与SMTP服务器发信邮箱不同
mailbody=mailbody &"<style>A:visited {TEXT-DECORATION: none}"
mailbody=mailbody &"A:active {TEXT-DECORATION: none}"
mailbody=mailbody &"A:hover   {TEXT-DECORATION: underline}"
mailbody=mailbody &"A:link   {text-decoration: none;}"
mailbody=mailbody &"BODY   {FONT-FAMILY: arial; FONT-SIZE: 9pt;}"
mailbody=mailbody &"TD   {FONT-FAMILY: arial; FONT-SIZE: 9pt}</style>"
mailbody=mailbody &"<TABLE border=0 width='800' align=center><TBODY><TR><TD>"
mailbody=mailbody &"<br/><br/>"
mailbody=mailbody &"<br/>"
mailbody=mailbody &"你收到以下这个反馈表单<br/><br/>"
mailbody=mailbody &"反馈时间为 "&senddata&"<br/>"
mailbody=mailbody &"反馈人为:"&username &"<br/>"
mailbody=mailbody &"<br/>"
mailbody=mailbody &"电话:"&tel&"<br/>"
mailbody=mailbody &"传真:"&fax&"<br/>"
mailbody=mailbody &"Email："&kehumail&"<br/>"
mailbody=mailbody &"<div>"&content&"</div>"
mailbody=mailbody &"</TD></TR></TBODY></TABLE>"

set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"

jmail.From = "" '发件人email,与SMTP服务器对应的邮箱用户名，请修改
jmail.FromName =""同上
jmail.ReplyTo =email
jmail.Subject ="客户反馈,详细"'邮件主题
for i=0 to UBound(aryEmail)
JMail.AddRecipient Trim(aryEmail(i))
next '给多人发送就是这里的FOR循环.
jmail.Body = mailbody
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd

isgo = jmail.Send(smtpserver)

jmail.Close
set jmail = nothing
if err.number<>0 then
response.write "send failed"
else
response.write "send succeed."
end if
end function
%>