最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
CDONTS.NewMail发送邮件完整版
时间:2022-06-30 11:32:30 编辑:袖梨 来源:一聚教程网
<%
function SendMail(mailTo,mailFrom,title,content)
' on error resume next
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
With objCDOMail
.From =mailFrom
.To =mailTo
.Subject =title
.Body =content
.BodyFormat =0
.MailFormat =0
.Send
End With
Set objCDOMail = Nothing
if err then
SendMail=False
err.Clear
else
SendMail=True
end if
end function
if request.Form<>"" then
mailTo=trim(Request.form("mailTo"))
mailForm=trim(Request.form("email"))
title=trim(Request.form("title"))
content=""
for each mailKey in Request.form
content=content&"
" & mailKey & ":" & trim(Request.form(mailKey))
next
elseif request.QueryString<>"" then
mailTo=trim(Request.QueryString("mailTo"))
mailForm=trim(Request.QueryString("email"))
title=trim(Request.QueryString("title"))
content=""
for each mailKey in Request.QueryString
content=content&"
" & mailKey & ":" & trim(Request.QueryString(mailKey))
next
else
response.Write("")
response.end
end if
' response.Write(content)
' response.End()
pdSendMail=SendMail(mailTo,mailForm,title,content)
if not pdSendMail then
response.Write("")
else
response.Write("")
end if
%>
|
相关文章
- 崩坏星穹铁道开服直播兑换码详情 04-25
- 三国诛将录马战玩法要怎么玩 04-25
- 塞尔达传说王国之泪依盖队套装升级四星所需材料分享 04-25
- 原神为书所爱的人成就怎么达成 原神八处魔导书和书柜全收集攻略 04-24
- 王者荣耀貂蝉荧星流火皮肤怎么样 王者荣耀貂蝉荧星流火星元皮肤介绍 04-24
- 原神仆人阿蕾奇诺抽几命最好 原神仆人阿蕾奇诺命座抽取建议 04-24