mail_inc_cdonts.asp

来自「１.功能强大的内容管理系统 2.无限二级栏目分类 3.新闻采集功能 4.管」· 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

%>