jmail asp 发送邮件 绝对好用
'sendMail"99669806@qq.com","QQ","aaaa","bb"
'收件人邮箱,发件人姓名,标题,内容
Function sendMail(email,sendname,zhuti,mailbody)
Server.ScriptTimeOut=5000
If Not isInstallObj("JMail.Message") Then exit function
dim jmail : set jmail=Server.CreateObject("JMail.Message")
If jmail is nothing then exit function
set jmail= server.CreateObject ("Jmail.message") '调用Jmail组件
jmail.Silent = true
jmail.Charset = "utf-8"
JMail.ContentType = "text/html"
'调用变量内容
'=================================
'发件人邮箱
jmail.From = smtp_usermail
'发件人姓名
jmail.FromName = sendname
'收件人邮箱
jmail.ReplyTo = email
'邮件标题
jmail.Subject = zhuti
dim aryEmail,i
if Instr(email,",")>0 then
aryEmail = split(email, ",")
for i=0 to UBound(aryEmail)
if aryEmail(i)<>"" then JMail.AddRecipient Trim(aryEmail(i))''收件人郵箱地址,收件人姓名
next
else
'收件人邮箱
jmail.AddRecipient email
End if
'邮件内容
jmail.Body = mailbody
'用户名
jmail.MailServerUserName = smtp_user
'密码
jmail.MailServerPassWord = smtp_password
'发送邮件
sendMail=jmail.Send(smtp_server)
jmail.close : set jmail = nothing
End Function
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
· 本地部署 DeepSeek:小白也能轻松搞定!
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 从 Windows Forms 到微服务的经验教训
· 李飞飞的50美金比肩DeepSeek把CEO忽悠瘸了,倒霉的却是程序员
· 超详细,DeepSeek 接入PyCharm实现AI编程!(支持本地部署DeepSeek及官方Dee