添加时间: 2006-5-4 3:43:15  作者: ASP教程  阅读次数:46   来源: http://d9soft.com

         

给大家看一下常用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.NET教程
• PHP教程
• JSP教程
• C/C++教程
• VB & VB.NET教程
• VC教程
• Delphi教程
• BCB教程
• VFP教程
• PB教程
• JAVA教程
• XML教程
• C#教程
• CGI教程

本类经典文章推荐

• 九阳神功 ASP.NET技术的学习顺序
• 在ASP与ASP.NET之间共享对话状态(...
• 17种正则表达式
• 关闭窗口时保存数据的办法
• 一个新的JMail（4.3版本）发送代码
• 一个很简单的验证码程序
• 用正则解析图片地址,并利用XMLHTT...
• 利用ASP+JMAIL进行邮件群发的新思...
• ASP操作Excel技术总结
• MD5算法研究(2)

ASP & ASP.NET教程阅读排行

• 用纯ASP代码实现图片上传
• ASP数据库简单操作教程
• aspjpeg组件高级使用方法介绍
• 一个拷贝整个文件夹(包括子文件夹...
• 利用ASP技术实现文件直接上传功能
• 几例在ASP存储过程的使用方法
• 一个很简单的验证码程序
• 创建一个ASP通用分页类(一)
• ASP操作Excel技术总结
• 一个新的JMail（4.3版本）发送代码

编程技术阅读总排行

• VB入门教程之一
• Java连接数据库实例
• 第二章 PowerBuilder 入门之创建新...
• VC++之List Box/Check List Box控...
• 第一章 什么是PowerBuilder
• VC++ List Ctrl控件
• VC++ Combo Box/Combo Box Ex控件
• 学C++不得不看的一篇文章
• VB入门教程之二
• VC++之Button控件

广告位置