asp 使用 cdosys发送电子邮件

在 ASP（Active Server Pages）中，可以使用 CDOSYS 对象来发送电子邮件。CDOSYS 是一个内置的 COM 组件，可以用来通过 SMTP 服务器发送邮件。

以下是使用 CDOSYS 发送电子邮件的基本步骤：

### 1. 配置 SMTP 服务器
首先，确保你的服务器已经配置好了一个 SMTP 服务。如果你使用的是本地开发环境，通常需要安装一个 SMTP 服务器软件，比如 hMailServer 或者使用 IIS 自带的 SMTP 虚拟服务器。

### 2. 编写 ASP 代码

以下是一个简单的示例代码，展示如何使用 CDOSYS 发送电子邮件：

```asp
<%
' 定义变量
Dim objCDOSYSMail, objCDOSYSConf, strSubject, strBody, strFrom, strTo, strCC, strBCC

' 创建 CDOSYS 邮件对象
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

' 创建配置对象
Set objCDOSYSConf = Server.CreateObject("CDO.Configuration")

' 设置 SMTP 服务器和端口
objCDOSYSConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yourserver.com"
objCDOSYSConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' 使用网络发送
objCDOSYSConf.Fields.Update

' 设置邮件内容
strSubject = "测试邮件"
strBody = "这是一封测试邮件！"
strFrom = "sender@example.com"
strTo = "recipient@example.com"

' 将配置应用到邮件对象
Set objCDOSYSMail.Configuration = objCDOSYSConf

' 设置邮件属性
objCDOSYSMail.From = strFrom
objCDOSYSMail.To = strTo
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.TextBody = strBody

' 可选：设置抄送和密送
' objCDOSYSMail.Cc = "cc@example.com"
' objCDOSYSMail.Bcc = "bcc@example.com"

' 发送邮件
On Error Resume Next
objCDOSYSMail.Send
If Err.Number <> 0 Then
    Response.Write "发送邮件失败: " & Err.Description
Else
    Response.Write "邮件已成功发送！"
End If
Err.Clear
On Error GoTo 0

' 清理对象
Set objCDOSYSMail = Nothing
Set objCDOSYSConf = Nothing
%>
```

### 3. 代码说明

- `smtp.yourserver.com`：替换为你的 SMTP 服务器地址。
- `25`：SMTP 服务器的默认端口是 25，如果使用 SSL 或 TLS，请根据实际情况修改端口号。
- `sendusing`：设置为 `2` 表示使用网络发送邮件。
- `strFrom` 和 `strTo`：分别是发件人和收件人的邮箱地址。
- `TextBody`：邮件正文内容。
- `Send` 方法：用于发送邮件。

### 4. 注意事项

- 确保你的 SMTP 服务器允许外部连接，并且你有权限通过该服务器发送邮件。
- 如果你的 SMTP 服务器需要身份验证（例如用户名和密码），你需要在配置中添加这些信息：
  
  ```asp
  objCDOSYSConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' 基本身份验证
  objCDOSYSConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your_username"
  objCDOSYSConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password"
  ```

- 如果你需要发送 HTML 格式的邮件，可以将 `TextBody` 替换为 `HTMLBody`，并相应地设置邮件的内容类型。

### 5. 测试

在本地环境中运行此脚本，检查是否能够成功发送邮件。如果遇到问题，可以通过 `Response.Write` 输出错误信息进行调试。

希望这个示例对你有所帮助！