常用Email组件发送函数 - 古朴下载网-软件下载,注册码,破解版,系列号,ASP编码,PHP编码,ASP.net编码,最新版下载,技术文章等

首页 ┆ 新闻 ┆ 文章中心 ┆ 下载中心 ┆ 客户留言

您当前的位置：古朴下载网 → 文章中心 → 网页设计 → 文章内容

退出登录

用户管理

本类热门文章

相关下载

·常用Email组件发送函数

常用Email组件发送函数

作者：佚名来源：不详发布时间：2008-3-5 14:41:31

减小字体增大字体

给大家看一下常用Email组件发送函数

<%
sub Jmail(email)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub Cdonts(email)
dim　objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub aspemail(email)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")　
recipient=email
sender=SystemEmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>

[] [返回上一页] [打印]

上一篇文章：创建一个ASP通用分页类(一)
下一篇文章：如何使用ASP生成HTML文件

文章评论 （评论内容只代表网友观点，与本站立场无关！）

关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 管理登陆
友情连接及广告业务QQ：104261325（请注明来意）本网站日IP超五千,欢迎各位做广告及进行连接