mail_inc_cdonts.asp

来自「忆风主机管理系统 忆风主机管理系统 忆风主机管理系统」· ASP 代码 · 共 24 行

<%
on error resume next
function SendMail(mailto,subject,msg)

sender=page_email

Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = sender
objMail.Subject = subject
objMail.To = mailto
objMail.Body = msg
objmail.bodyformat=0
objmail.mailformat=0
objMail.Send
set objMail = nothing

end function

%>