最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp发送邮件代码
时间：2022-07-02 22:43:16 编辑：袖梨 来源：一聚教程网
function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
if err then
SendMail= "
err.clear
exit function
end if
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=AddRecipient
JMail.Subject=Subject
JMail.Body=MailBody
JMail.Sender=Sender
JMail.From = MailFrom
JMail.Priority=1
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
相关文章
- qq邮箱网页版官方入口-QQ邮箱网页版详细登录教程 12-29
- 抖音充值抖币-官方正版入口 12-29
- 漫蛙2manwa2漫画官方最新版本下载-漫蛙漫画官方正版安装包免费下载 12-29
- 佣兵小镇怎么换区 换区方法介绍 12-29
- 佣兵小镇是哪个公司的游戏 开发与发行公司介绍 12-29
- QQ电脑版网页登录入口-QQ网页版电脑端一键登录 12-29