引言：VBScript在邮件自动化中的核心价值
在企业环境中，VBScript作为一种轻量级的脚本语言，长期以来被广泛用于自动化任务，尤其是邮件发送和Outlook操作。它不需要复杂的开发环境，只需Windows系统自带的脚本宿主（WSH）即可运行，这使得它成为IT管理员和办公自动化爱好者的首选工具。想象一下，你每天需要手动发送数百封报告邮件，或者在特定时间触发邮件通知——VBScript可以轻松实现这些，而无需依赖第三方工具。
然而，VBScript的邮件自动化并非一帆风顺。常见问题包括Outlook安全警告、配置错误、权限不足等，这些往往导致脚本失败。本文将深入探讨VBScript发送邮件的两种主要方式：通过CDO（Collaboration Data Objects）直接发送SMTP邮件，以及通过Outlook Automation（自动化）操作Outlook客户端。我们将提供详尽的代码示例、配置步骤、常见错误排查方法，并分享最佳实践，帮助你从入门到实战，彻底解决配置难题。
文章基于Windows 10/11环境和Outlook 2016/2019/365编写，适用于企业办公场景。如果你是初学者，别担心，我们会一步步解释；如果你是资深用户，也能找到高级技巧。
第一部分：VBScript发送邮件的基础知识
VBScript与邮件自动化的概述
VBScript（Visual Basic Script）是Microsoft的脚本语言，基于VB6，运行在Windows Script Host（WSH）中。它支持COM（Component Object Model）对象模型，这使得它可以调用各种Windows组件，包括邮件相关的库。
发送邮件主要有两种路径：
CDO方式
：使用
CDO.Message
对象，通过SMTP服务器直接发送。优点是独立于Outlook客户端，无需安装Office；缺点是需要配置SMTP服务器细节，且可能被防火墙阻挡。
Outlook Automation方式
：通过
Outlook.Application
对象操作已安装的Outlook。优点是利用现有Outlook配置，支持附件、HTML格式等高级功能；缺点是依赖Outlook，且可能触发安全警告。
选择哪种？如果脚本在服务器上运行或无Outlook，用CDO；如果在用户桌面且需集成Outlook功能，用Automation。
环境准备
系统要求
：Windows 7+，确保WSH启用（默认开启）。
权限
：脚本需以管理员或当前用户权限运行。CDO可能需调整防火墙允许SMTP端口（默认25或587）。
测试环境
：建议先在虚拟机测试，避免影响生产环境。
调试工具
：使用
cscript.exe
运行VBScript（命令行模式），便于查看输出；或用Notepad++编辑。
第二部分：使用CDO发送邮件
CDO是VBScript中最直接的邮件发送方式，它封装了SMTP协议。无需Outlook，只需知道SMTP服务器细节（如Gmail、企业Exchange）。
配置CDO的步骤
获取SMTP服务器信息
：
对于Gmail：smtp.gmail.com，端口587，需启用“应用专用密码”或允许“不太安全的应用”（但Google已弃用后者，推荐OAuth，但VBScript不支持，需用CDO的认证）。
对于企业Exchange：通常使用内部SMTP服务器，如smtp.company.com，端口25，无需认证或使用域凭据。
注意：许多现代SMTP（如Office 365）要求TLS加密，CDO支持但需额外配置。
基本代码示例
：发送一封简单文本邮件。
下面是一个完整的VBScript文件（保存为
send_email_cdo.vbs
）。代码详细注释每个步骤。
‘ send_email_cdo.vbs – 使用CDO发送邮件的示例
Option Explicit

‘ 创建CDO.Message对象
Dim objMessage
Set objMessage = CreateObject(“CDO.Message”)

‘ 配置邮件内容
With objMessage
.Subject = “测试邮件 – VBScript CDO” ‘ 邮件主题
.From = “your_email@gmail.com” ‘ 发件人邮箱
.To = “recipient@example.com” ‘ 收件人邮箱（可多个，用分号分隔）
.TextBody = “这是一封通过VBScript CDO发送的测试邮件。” & vbCrLf & “发送时间: ” & Now() ‘ 纯文本正文
‘ 如果需要HTML正文，使用 .HTMLBody = “

测试

”
End With

‘ 配置SMTP服务器（关键步骤）
Dim objConfig
Set objConfig = objMessage.Configuration

With objConfig.Fields
‘ SMTP服务器地址和端口
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.gmail.com”
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 587

‘ 认证类型：0=无认证，1=基本认证（明文，不安全），2=NTLM（Windows域）
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2 ‘ 2=使用SMTP发送
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1 ‘ 基本认证

‘ 用户名和密码（敏感信息，建议从环境变量读取）
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = “your_email@gmail.com”
.Item(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = “your_app_password” ‘ Gmail用应用专用密码

‘ TLS加密（Gmail必需）
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = True

‘ 超时设置（秒）
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 30

‘ 更新配置
.Update
End With

‘ 发送邮件
On Error Resume Next ‘ 错误处理
objMessage.Send
If Err.Number <> 0 Then
WScript.Echo “发送失败: ” & Err.Description
Else
WScript.Echo “邮件发送成功！”
End If
On Error GoTo 0

‘ 清理对象
Set objConfig = Nothing
Set objMessage = Nothing
代码解释
：
创建对象
：
CreateObject(“CDO.Message”)
实例化邮件对象。
邮件内容
：使用
With
块设置主题、发件人、收件人和正文。支持
TextBody
（纯文本）或
HTMLBody
（富文本）。
SMTP配置
：通过
Configuration.Fields
集合设置。每个字段是键值对，键是命名空间URL。
Update
方法应用更改。
认证
：对于Gmail，必须使用应用专用密码（在Google账户设置中生成）。企业环境可能用NTLM（设置
smtpauthenticate=2
）。
发送
：
Send
方法执行发送。
On Error Resume Next
捕获错误。
运行
：在命令行输入
cscript send_email_cdo.vbs
。如果成功，你会看到”邮件发送成功！”。
高级CDO示例：添加附件和抄送
扩展上面的代码，添加附件和抄送。附件使用
.AddAttachment
方法。
‘ 在邮件内容部分添加
With objMessage
.Subject = “带附件的测试邮件”
.From = “your_email@gmail.com”
.To = “recipient@example.com”
.CC = “cc@example.com” ‘ 抄送
.BCC = “bcc@example.com” ‘ 密送
.TextBody = “邮件正文。”
.AddAttachment “C:\path\to\file.txt” ‘ 添加附件，路径需存在
End With

‘ 发送部分不变
注意
：附件路径必须是绝对路径，且脚本有读取权限。如果附件过大，SMTP可能拒绝（Gmail限25MB）。
CDO配置难题与解决
难题1：认证失败
。错误：”认证失败”。解决：检查用户名/密码；对于Gmail，启用2FA并生成应用密码；企业环境，确保脚本运行在域用户下。
难题2：TLS/SSL错误
。错误：”无法建立连接”。解决：设置
smtpusessl=True
；如果服务器不支持TLS，设为False；检查端口（587 for TLS, 465 for SSL, 25 for plain）。
难题3：防火墙/代理阻挡
。解决：允许端口25/587；如果在代理后，配置CDO的代理字段：
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverproxy”) = “proxy:port”
。
难题4：中文乱码
。解决：设置
.Item(“http://schemas.microsoft.com/cdo/configuration/sendcharset”) = “utf-8”
，并在正文使用Unicode。
第三部分：Outlook Automation发送邮件
Outlook Automation允许VBScript像用户一样操作Outlook，利用其配置文件。适合需要集成日历、任务或避免SMTP限制的场景。
配置Outlook Automation的步骤
前提
：安装Outlook，并配置好账户（文件 > 账户设置）。
安全警告
：Outlook 2010+有“程序访问Outlook”警告。解决：运行脚本前，手动打开Outlook一次；或调整注册表（见错误排查部分）。
基本代码示例：发送简单邮件
保存为
send_email_outlook.vbs
。
‘ send_email_outlook.vbs – 使用Outlook Automation发送邮件
Option Explicit

‘ 创建Outlook Application对象
Dim objOutlook, objMail
Set objOutlook = CreateObject(“Outlook.Application”)

‘ 创建新邮件项
Set objMail = objOutlook.CreateItem(0) ‘ 0=邮件项

‘ 配置邮件内容
With objMail
.Subject = “测试邮件 – Outlook Automation”
.To = “recipient@example.com”
.CC = “cc@example.com”
.Body = “这是一封通过VBScript Outlook Automation发送的测试邮件。” & vbCrLf & “发送时间: ” & Now()
‘ .HTMLBody = “

测试

” ‘ 可选HTML
.Attachments.Add “C:\path\to\file.txt” ‘ 添加附件
End With

‘ 发送邮件（不显示Outlook窗口）
On Error Resume Next
objMail.Send
If Err.Number <> 0 Then
WScript.Echo “发送失败: ” & Err.Description
Else
WScript.Echo “邮件发送成功！”
End If
On Error GoTo 0

‘ 清理
Set objMail = Nothing
Set objOutlook = Nothing
代码解释
：
创建对象
：
Outlook.Application
是根对象；
CreateItem(0)
创建新邮件。
邮件配置
：
.To
、
.CC
、
.Body
等属性简单直观。
.Send
直接发送，无需SMTP细节。
显示 vs 发送
：用
.Display
代替
.Send
可预览邮件（调试用）。
运行
：
cscript send_email_outlook.vbs
。首次运行可能弹出安全警告。
高级示例：HTML格式和延迟发送
‘ 在邮件配置部分
With objMail
.Subject = “HTML格式邮件”
.To = “recipient@example.com”
.HTMLBody = “

欢迎

这是粗体文本。

”
.SendUsingAccount = objOutlook.Session.Accounts.Item(1) ‘ 指定账户（如果有多个）
.DeferredDeliveryTime = Now + TimeSerial(1, 0, 0) ‘ 延迟1小时发送
End With
解释
：
.HTMLBody
支持富文本；
.SendUsingAccount
选择账户；
.DeferredDeliveryTime
用于定时发送。
配置难题与解决
难题1：安全警告
。错误：”Outlook正在尝试发送电子邮件…“。解决：
方法1：运行脚本前，手动启动Outlook。
方法2：注册表调整（谨慎操作）。打开
regedit
，导航到
HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security
（Office版本不同，路径变），创建DWORD值
PromptSimpleMAPISend
= 0（禁用警告）。重启Outlook。
方法3：使用第三方工具如”Outlook Redemption”绕过，但VBScript不支持，需COM库。
难题2：多账户配置
。如果Outlook有多个账户，脚本默认用第一个。解决：遍历
objOutlook.Session.Accounts
选择。
难题3：权限问题
。脚本以不同用户运行时失败。解决：确保脚本运行在配置Outlook的用户下；或用
RunAs
命令。
第四部分：常见错误排查与调试技巧
通用错误处理
在所有代码中，使用
On Error Resume Next
和
Err.Number
检查错误。示例：
On Error Resume Next
‘ 你的代码
If Err.Number <> 0 Then
WScript.Echo “错误代码: ” & Err.Number & vbCrLf & “描述: ” & Err.Description & vbCrLf & “来源: ” & Err.Source
Err.Clear
End If
On Error GoTo 0
常见错误列表
错误80040211 (CDO)
：SMTP连接失败。
原因：服务器不可达或端口错误。
排查：用
ping smtp.server.com
测试连接；检查防火墙；验证端口（telnet smtp.server.com 587）。
错误800401FD (Outlook)
：Outlook未安装或版本不匹配。
原因：Office未安装或64/32位不兼容。
排查：运行
regsvr32 msoutl.olb
注册类型库；检查Office版本。
错误80040154 (COM对象)
：无法创建对象。
原因：权限或组件缺失。
排查：以管理员运行；检查Windows Features启用”COM+“。
错误800401F3 (Outlook)
：无效配置文件。
原因：Outlook无默认配置文件。
排查：打开Outlook设置默认配置文件；脚本中指定：
Set objOutlook = CreateObject(“Outlook.Application”); objOutlook.GetNamespace(“MAPI”).Logon “ProfileName”
。
中文/特殊字符错误
：乱码或发送失败。
排查：CDO设置charset；Outlook用
.BodyFormat = 2
（HTML）。
调试技巧
日志记录
：用
FileSystemObject
写日志。
Dim fso, logFile
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set logFile = fso.OpenTextFile(“C:\log.txt”, 8, True) ‘ 8=追加
logFile.WriteLine Now & “: 发送尝试”
‘ … 代码 …
If Err.Number <> 0 Then logFile.WriteLine “错误: ” & Err.Description
logFile.Close
逐步测试
：先用
.Display
显示邮件，检查内容；再用
.Send
。
网络工具
：用Wireshark捕获SMTP流量（高级）；或Outlook的”测试账户设置”验证配置。
第五部分：最佳实践与高级技巧
安全最佳实践
避免硬编码密码
：从环境变量读取，如
objConfig.Fields.Item(“sendpassword”) = Environ(“SMTP_PASSWORD”)
。
加密脚本
：用.vbs加密工具，或转换为.exe（但VBScript不推荐）。
合规
：企业中，确保脚本符合数据保护政策，避免发送敏感信息。
性能优化
批量发送
：循环发送时，重用对象，避免重复创建。
Dim recipients, i
recipients = Array(“user1@ex.com”, “user2@ex.com”)
For i = 0 To UBound(recipients)
objMail.To = recipients(i)
objMail.Send
Next
错误重试
：添加循环重试逻辑。
Dim retryCount
For retryCount = 1 To 3
objMessage.Send
If Err.Number = 0 Then Exit For
WScript.Sleep 5000 ‘ 等待5秒
Next
与现代工具集成
PowerShell替代
：VBScript老旧，考虑迁移到PowerShell（
Send-MailMessage
cmdlet更简单）。
任务调度
：用Windows任务计划器运行脚本，触发器设为定时或事件。
实战案例：自动化报告邮件
假设每天发送销售报告：
生成报告（用Excel COM自动化）。
保存为PDF。
用CDO或Outlook发送，带附件。
完整脚本太长，但核心是组合上述代码。
结语
VBScript发送邮件和Outlook自动化是强大的工具，能显著提升效率，但配置和错误排查是关键。通过本文的代码示例和步骤，你应该能解决90%的问题。记住，测试是王道——从小规模开始，逐步扩展。如果遇到特定错误，欢迎提供更多细节，我可以进一步指导。保持脚本简洁、安全，你的自动化之旅将一帆风顺！