如何在网页中实现自动发送电子邮件功能

如何在网页中实现自动发送电子邮件功能

作者：周洁

重庆市总工会微机室

邮件列表（mailing list）是电子邮件的扩展应用之一，被广泛应用于用户的跟踪服务，发布产品信息，以及电子报刊等方面。用户可以向相应的邮件服务器发送一份订阅申请邮件，这样该用户就被加入到该邮件发送的列表中。其过程是：用户填写相关申请订阅信息，系统根据用户提供的邮箱地址发送一封确认邮件，并要求用户打开自己的邮箱，点击邮件相关确认部份将其的确认信息发送给网站的Webmaster，Webmaster在得到确认信息后向用户开通相关的服务。那么这种自动发送邮件的功能是怎样实现的，我们怎样在自己网站中实现该功能呢？下面将对此实现方法进行阐述。

软件厂商提供了方便、简易、与服务器无关且稳固的方法，使我们可以在页面上用一些ASP组件直接发送邮件。如：Microsoft提供的CDONTS及第三方组件Jmail、ASPFreeMail,FastMail,ASPEmail,ASPQEmail等。

1．CDONTS（collaboration Data Object for NT Server）

CDONTS与ADO类似，它们为用户提供了用任何程序和脚本语言访问操作系统复杂和稳固的功能集合的能力。编程人员通过以ActiveX封装Windows的本地消息服务来收发电子邮件。Windows2000中会默认安装SMTP服务，Windows NT中可用Windows NT4.0 option pack 4安装SMTP服务。安装后CDONTS.DLL存放在C:\Winnt\System32\目录下面。有了该组件我们还不能立即应用它，在对它进行使用之前我们必须先完成组件的注册，我们可以在MS-DOS方式下进入到CDONTS.DLL所在的目录C:\Winnt\System32\下输入：

　　c:\winnt\system32>regsvr32  cdonts.dll

（如果我们想将其御载可用指令： c:\winnt\system32>regsvr32/u cdonts.dll）

通过CDONTS发送电子邮件非常方便，仅需创建一个邮件对象并设置其几个相关属性便可实现。基本过程如下：

<%‘创建一个邮件对象

set NewMailObj=CreatObject(“CDONTS.NewMail”)

  NewMailObj.from=“源地址(发件人名)”

  NewMailObj.To=“目标地址（收件人名）”

  NewMailObj.Subject=”标题”

  NewMailObj.Body=“邮件内容”

  NewMailObj.AttachFile “filename”,"附件名"

设置优先级，0-不重要，1-一般，2-重要

  NewMailObj.Importance=2

  NewMailObj.Cc=”抄送地址”

NewMailObj.BCc=”密送地址”

NewMailObj.send  ‘邮件发送

  Set NewMailObj=Nothing  ‘释放对象实例

%>

下面以网络杂志订阅系统的订阅申请及确认实现部分为例具体说明怎样用CDONTS对象实现自动发送邮件的功能。