it167.com  设为主页
 收藏本站
 
  资讯：业界动态 | 软件动态 | 人物专栏 | 安全资讯 | 网络生活 | 电子商务 | 小游戏 | 视频 | 美女图片 | 音乐
  网络编程 | 网站运营 | 网页制作 | 图形图象 | 操作系统 | 媒体动画 | 软件教学 | 网络应用 | 邮件系统 | 网络安全 | 认证考试
asp | .net | php | jsp | Sql | java | Dreamweaver | FrontPages | Javascript | css | Coreldraw | photoshop | Flash | Coreldraw
当前位置: > 主页>网络编程>Asp >ASP实例教程>常用Email组件发送函数
最新新闻
·机会与整合 边缘化互联
·TOM-Skype新增三大本地
·雅虎抢闸邮箱竞赛 网易
·新浪抢攻北京奥运
·洞悉网络口碑的掘金机会
·拆解网络病毒黑金交易
·木马下载器近期出现新变
·《互联网周刊》第17期文
·Web2.0是否催生自吹自擂
·三张宝宝裸照招来MSN封
热门新闻
·ASP进阶教程Ⅲ：给留言
·ASP进阶教程Ⅳ：加入精
·ASP进阶教程Ⅴ：留言簿
·ASP进阶教程Ⅵ：留言簿
·ASP进阶教程Ⅶ：留言簿
·ASP进阶教程Ⅷ：数据库
·ASP进阶教程Ⅸ：留言查
·ASP进阶教程Ⅹ：留言簿
·堵住ASP漏洞
·Asp中如何设计跨越域的C
推荐新闻
 
 

常用Email组件发送函数 

作者:   来源:it167   点击:   日期:2007-08-24

给大家看一下常用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实现QQ在线查询
·创建一个ASP通用分页类(一) ·如何使用ASP制作类似安装向导的页面?
· 一个拷贝整个文件夹(包括子文件夹)的方 ·多个域名绑定一个空间互不影响

   文章评论:(0条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:it167  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。