如何实现ASP无组件的邮件发送功能？

在ASP开发中，邮件发送功能是常见需求，但受限于服务器环境（如无法安装第三方组件或禁用组件注册），无组件发邮件成为重要解决方案，所谓“无组件”，并非完全无需组件，而是利用Windows系统自带或IIS内置的组件（如CDONTS、CDO）实现邮件发送，无需额外安装第三方库，本文将详细介绍ASP无组件发邮件的实现方法、注意事项及代码示例。

实现原理与核心组件

ASP无组件发邮件主要依赖Windows系统提供的两个组件：CDONTS（Collaboration Data Objects for NTS）和CDO（Collaboration Data Objects for Windows 2000），CDONTS是早期IIS版本（如IIS 5.0）内置的组件，配置简单但功能有限；CDO则是IIS 6.0及后续版本推荐的组件，功能更强大（如支持HTML邮件、多附件、SSL加密等），但配置稍复杂，两者均通过SMTP（简单邮件传输协议）服务器发送邮件，需确保服务器已启用SMTP服务（Windows Server自带，可通过“服务器管理器”安装）。

CDONTS实现方法（适用于IIS 5.0及以下）

CDONTS使用较为直接，核心是通过CDONTS.NewMail对象设置邮件属性并发送,以下为关键代码示例：

<%
' 创建CDONTS.NewMail对象
Set objMail = Server.CreateObject("CDONTS.NewMail")
' 设置邮件属性
objMail.To = "recipient@example.com"       ' 收件人邮箱
objMail.From = "sender@example.com"        ' 发件人邮箱（需与SMTP服务器授权一致）
objMail.Subject = "测试邮件主题"           ' 邮件主题
objMail.Body = "这是一封通过CDONTS发送的测试邮件。" ' 邮件正文（纯文本）
objMail.MailFormat = 0                     ' 邮件格式：0=HTML，1=纯文本
objMail.Importance = 1                     ' 优先级：0=低，1=普通，2=高
' 发送邮件（参数分别为收件人、抄送、密送，此处仅收件人）
objMail.Send
' 释放对象
Set objMail = Nothing
%>

注意事项：

1. CDONTS要求SMTP服务已启动，且发件人邮箱需为SMTP服务器允许的域名（如本地SMTP服务器可使用任意本地域名，远程SMTP需授权）。
2. 含中文，需确保文件编码为ANSI（否则可能出现乱码），或在Body中用Server.HTMLEncode编码。

CDO实现方法（推荐，适用于IIS 6.0及以上）

CDO通过配置SMTP服务器参数实现，灵活性更高，核心是先创建CDO.Configuration对象设置SMTP属性，再创建CDO.Message对象发送邮件,代码示例如下：

<%
' 创建配置对象
Set objConfig = Server.CreateObject("CDO.Configuration")
' 设置SMTP服务器参数（需根据实际环境修改）
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' SMTP服务器地址
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25       ' SMTP端口（默认25，SSL需465或587）
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2           ' 发送方式：2=SMTP服务器
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1    ' 身份验证：1=需验证，0=无需
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username" ' SMTP用户名
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" ' SMTP密码
objConfig.Fields.Update ' 更新配置
' 创建邮件对象并关联配置
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = objConfig
' 设置邮件属性
objMail.To = "recipient@example.com"
objMail.From = "sender@example.com"
objMail.Subject = "测试邮件主题（CDO）"
objMail.HtmlBody = "<h1>HTML邮件</h1><p>这是一封通过CDO发送的HTML格式测试邮件。</p>" ' 支持HTML
' 发送邮件
objMail.Send
' 释放对象
Set objMail = Nothing
Set objConfig = Nothing
%>

注意事项：

1. 若SMTP服务器需SSL加密（如Gmail、企业邮箱），需添加objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True，并将端口改为465（SSL）或587（TLS）。 支持HTML，可直接用HtmlBody属性设置，方便格式化内容。

CDONTS与CDO对比

特性	CDONTS	CDO
适用IIS版本	0及以下	0及以上（推荐）
配置复杂度	简单（无需设置SMTP参数）	较复杂（需配置SMTP服务器、认证等）
功能支持	纯文本/HTML邮件，基础优先级设置	支持HTML、附件、SSL加密、多收件人等
兼容性	旧系统（Windows 2000）	新系统（Windows Server 2003及以上）

常见问题处理

1. 邮件发送失败：检查SMTP服务是否启动（“服务”中找到“Simple Mail Transfer Protocol”并启动）、发件人域名是否在SMTP服务器白名单、防火墙是否阻止25端口。
2. 乱码问题：确保文件编码与邮件内容编码一致（如UTF-8文件需在邮件头添加<meta charset="UTF-8">，或用Charset属性设置）。

相关问答FAQs

问题1：为什么使用CDONTS发送邮件时提示“拒绝访问”？
解答：通常是因为SMTP服务未启动，或当前用户（如IIS匿名用户）没有访问SMTP服务的权限，可检查“服务”中SMTP服务状态，或在SMTP虚拟目录的“访问”选项卡中添加用户权限。

问题2：CDO发送邮件时如何添加附件？
解答：通过CDO.Message对象的AddAttachment方法添加，objMail.AddAttachment "C:test.txt"，注意路径需为服务器绝对路径，且文件需存在，若附件名为中文，建议用Server.HTMLEncode处理路径,避免编码问题。