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

posted on   腾云  阅读(2090)  评论(0编辑  收藏  举报

编辑推荐:
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
阅读排行:
· 本地部署 DeepSeek:小白也能轻松搞定!
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 从 Windows Forms 到微服务的经验教训
· 李飞飞的50美金比肩DeepSeek把CEO忽悠瘸了,倒霉的却是程序员
· 超详细,DeepSeek 接入PyCharm实现AI编程!(支持本地部署DeepSeek及官方Dee

导航

< 2013年1月 >
30 31 1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31 1 2
3 4 5 6 7 8 9

统计

点击右上角即可分享
微信分享提示