在动态网站开发中,邮件发送功能是提升用户体验和实现业务交互的重要环节，ASP（Active Server Pages）作为一种经典的服务器端脚本技术，提供了多种方式实现邮件发送，无论是用户注册确认、表单提交反馈，还是系统通知推送，都能通过邮件功能高效完成，本文将详细介绍ASP邮件发送的核心原理、常用组件、实现步骤及常见问题解决方案，帮助开发者快速掌握这一实用技能。
ASP邮件发送的核心组件
ASP本身不具备直接发送邮件的能力,需依赖第三方组件或Windows内置组件实现，目前主流的邮件发送组件包括以下几类：
CDONTS.NewMail（经典但已过时）
CDONTS（Collaboration Data Objects for Windows NT Server）是Windows NT和2000系统内置的组件，通过IIS的SMTP服务实现邮件发送，其优点是无需额外安装，直接调用即可，但缺点也十分明显：仅支持IIS 5.0及以下版本，功能单一（如不支持HTML邮件、附件较少），且安全性较低，现已逐渐被淘汰。
CDO.Message（推荐使用）
CDO（Collaboration Data Objects）是微软推出的新一代组件，支持IIS 6.0及以上版本，功能更全面，可发送纯文本、HTML格式邮件，支持多附件、SSL加密、SMTP认证等，是目前ASP邮件发送的首选方案，C.Message分为两种模式：通过本地SMTP服务发送或直接连接远程SMTP服务器，灵活性更高。
第三方组件（如ASPEmail、Jmail）
第三方组件通常功能更强大,支持更多高级特性（如邮件队列、模板变量、批量发送等），但需要额外购买或授权，且部分组件可能存在兼容性问题，对于中小型项目，CDO.Message已能满足需求，无需引入第三方组件增加复杂度。
使用CDO.Message实现邮件发送的步骤
以下以CDO.Message为例，详细介绍ASP邮件发送的具体实现步骤，涵盖基础配置、代码编写及参数说明。
确认SMTP服务器配置
邮件发送需依赖SMTP（Simple Mail Transfer Protocol）服务器，可以是本地IIS内置的SMTP服务，也可以是外部服务商提供的SMTP服务器（如QQ邮箱、163邮箱的SMTP服务器），若使用本地SMTP服务，需在IIS中启用“SMTP虚拟服务器”并配置中继选项；若使用外部SMTP服务器，需获取服务器地址（如smtp.qq.com）、端口号（默认25，SSL加密端口465或587）及认证信息（邮箱账号、授权码）。
创建邮件对象并设置基本属性
通过Server.CreateObject方法创建CDO.Message对象，然后设置邮件的核心属性，包括发件人、收件人、主题、邮件正文等，以下为关键属性说明：
From：发件人邮箱地址，需与SMTP认证账号一致（若使用外部SMTP服务器）。To：收件人邮箱地址，多个收件人用分号分隔。Subject：邮件主题，建议使用UTF-8编码避免乱码（如Subject = "=?utf-8?B?" & Base64Encode("注册成功通知") & "?="）。HTMLBody或TextBody：邮件正文，HTMLBody支持富文本（如加粗、图片），TextBody为纯文本格式。
配置SMTP服务器参数
CDO.Message需通过Configuration集合设置SMTP服务器的连接参数，这是邮件发送成功的关键，常用参数包括：
http://schemas.microsoft.com/cdo/configuration/smtpserver：SMTP服务器地址（如"localhost"或"smtp.qq.com"）。http://schemas.microsoft.com/cdo/configuration/smtpserverport：SMTP服务器端口号（如25或465）。http://schemas.microsoft.com/cdo/configuration/smtpauthenticate：认证方式，0表示匿名，1表示基本认证（需用户名密码）。http://schemas.microsoft.com/cdo/configuration/sendusername：SMTP认证用户名（通常为邮箱地址）。http://schemas.microsoft.com/cdo/configuration/sendpassword：SMTP认证密码（部分邮箱需使用授权码而非登录密码）。http://schemas.microsoft.com/cdo/configuration/smtpusessl：是否启用SSL加密，True或False（如QQ邮箱需启用）。
添加附件（可选）
若需发送附件,可使用AddAttachment方法，参数为附件的本地路径或网络路径。
objMail.AddAttachment "C:reportssales.pdf"
注意：附件路径需确保IIS用户有读取权限，且附件大小不宜过大（避免因SMTP服务器限制发送失败）。
发送邮件并释放对象
完成所有配置后,调用Send方法发送邮件，最后使用Set语句释放对象，避免内存泄漏。
objMail.Send Set objMail = Nothing
完整代码示例（HTML邮件+SSL认证）
以下是一个使用CDO.Message通过QQ SMTP服务器发送HTML格式邮件的完整示例，包含附件路径配置和UTF-8编码处理：
<%@ Language=VBScript %>
<%
' 创建邮件对象
Set objMail = Server.CreateObject("CDO.Message")
' 设置邮件基本属性
objMail.From = "your_email@qq.com"
objMail.To = "recipient@example.com"
objMail.Subject = "=?utf-8?B?" & Base64Encode("网站注册成功通知") & "?="
' 设置HTML邮件正文（支持图片、链接等）
objMail.HTMLBody = "<html><body><h1>欢迎注册！</h1><p>您的账号已激活，点击<a href='https://www.example.com'>登录</a>开始使用。</p><img src='cid:logo'></body></html>"
' 添加内嵌图片（需通过AddRelatedBodyPart设置Content-ID）
' objMail.AddRelatedBodyPart "C:imageslogo.png", "logo", "image/png"
' 添加附件
objMail.AddAttachment "C:documentsuser_guide.pdf"
' 配置SMTP服务器参数（QQ邮箱SMTP）
Set objConfig = Server.CreateObject("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.qq.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your_email@qq.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_authorization_code" ' 需在QQ邮箱设置中获取授权码
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' 2表示通过端口发送
objConfig.Fields.Update
' 关联配置对象与邮件对象
Set objMail.Configuration = objConfig
' 发送邮件
On Error Resume Next ' 捕获发送过程中的错误
objMail.Send
If Err.Number <> 0 Then
Response.Write "邮件发送失败：" & Err.Description
Else
Response.Write "邮件发送成功！"
End If
On Error GoTo 0
' 释放对象
Set objMail = Nothing
Set objConfig = Nothing
' Base64编码函数（用于主题处理）
Function Base64Encode(str)
Set objEncode = Server.CreateObject("MSXML2.DOMDocument")
Set node = objEncode.createElement("base64")
node.DataType = "bin.base64"
node.Text = str
Base64Encode = node.Text
Set node = Nothing
Set objEncode = Nothing
End Function
%>
常见问题及解决方案
邮件发送失败，提示“未找到服务器”或“连接超时”
原因：SMTP服务器地址或端口号错误，或本地防火墙阻止了端口连接。
解决方案：
- 确认SMTP服务器地址是否正确（如QQ邮箱为
smtp.qq.com，163邮箱为smtp.163.com）。 - 检查端口号：默认25端口，若启用SSL加密，需使用465（SMTPS）或587（STARTTLS）。
- 若使用本地SMTP服务,确保IIS中SMTP虚拟服务已启动，且“中继限制”允许本地服务器连接。
乱码（主题或正文显示为问号或乱码）
原因：未正确设置邮件字符编码，或收件人客户端不支持编码格式。
解决方案：
- 主题使用Base64编码（如
Subject = "=?utf-8?B?" & Base64Encode("主题") & "?="）。 通过<meta charset="UTF-8">声明HTML编码，或设置objMail.BodyPart.Charset = "utf-8"。 中使用特殊字符（如&、<、>），需转义为&、<、>。
相关问答FAQs
Q1：ASP中如何发送带附件的邮件？附件大小有限制吗？
A：使用CDO.Message的AddAttachment方法添加附件，语法为objMail.AddAttachment "附件路径"，附件大小受SMTP服务器限制，如QQ邮箱单个附件不超过50MB，总附件大小不超过100MB；若需发送大附件，可建议通过云盘链接发送，并在邮件正文中附上下载地址。
Q2：为什么使用CDO.Message发送邮件时提示“权限被拒绝”？
A：通常由两个原因导致：一是SMTP服务器开启了“身份验证”但未提供正确的用户名/密码（如QQ邮箱需使用授权码而非登录密码）；二是IIS用户（如IIS_IUSRS）对附件路径或邮件临时目录无读取/写入权限，解决方案：确认SMTP认证信息正确，并检查附件路径的NTFS权限，确保IIS用户有“读取”和“写入”权限。
原创文章，发布者：酷番叔，转转请注明出处：https://cloud.kd.cn/ask/51485.html
