需用VBA编写Worksheet_Change事件监听D2单元格，匹配“发送邮件”后调用Outlook发送邮件，须启用开发工具、信任宏、安装配置Outlook并保存为.xlsm格式。
如果希望在Excel中根据特定单元格内容变化自动触发Outlook发送邮件，需借助VBA编写事件驱动代码。以下是实现该功能的具体步骤：
一、启用开发者选项并插入VBA模块
Excel默认不显示“开发工具”选项卡，需先手动启用，才能访问VBA编辑器并编写自动化脚本。启用后可创建工作簿级事件响应逻辑。
1、点击“文件”→“选项”→“自定义功能区”→勾选“开发工具”→点击“确定”。
2、在“开发工具”选项卡中，点击“Visual Basic”打开VBA编辑器。
3、在左侧工程资源管理器中，双击对应工作表（如Sheet1），进入该工作表的代码窗口。
4、将后续事件代码粘贴至该窗口，确保使用Worksheet_Change事件而非普通模块中的Sub过程。
二、编写Worksheet_Change事件代码监听单元格
该事件会在用户修改单元格后立即触发，适合用于检测指定区域（如D2）是否输入了预设关键词（如“发送邮件”），从而启动邮件发送流程。
1、在工作表代码窗口中，输入以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("D2")) Is Nothing Then
If Target.Value = "发送邮件" Then
Call SendEmailViaOutlook
End If
End If
End Sub
2、在同一个VBA编辑器中，右键工程资源管理器→“插入”→“模块”，新建标准模块。
3、在新模块中粘贴SendEmailViaOutlook子过程，包含邮件主题、收件人、正文等基础字段定义。
三、配置Outlook邮件发送子过程
该子过程调用Outlook Application对象创建并发送邮件，要求本地已安装并配置好Microsoft Outlook客户端，且账户已登录。
1、在标准模块中输入以下代码：
Sub SendEmailViaOutlook()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "example@company.com"
.CC = ""
.BCC = ""
.Subject = "来自Excel的自动通知"
.Body = "检测到单元格D2被标记为发送邮件，请查收。" & vbCrLf & vbCrLf & "当前时间：" & Now
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
2、将.To行中的邮箱地址替换为实际收件人地址，确保格式为纯文本邮箱字符串。
3、保存工作簿为启用宏的格式（.xlsm），否则VBA代码无法运行。
四、设置信任中心启用宏和自动化权限
Excel默认禁用所有宏及外部应用调用，必须手动调整安全设置，否则Worksheet_Change不会执行，Outlook对象也无法创建。
1、点击“文件”→“选项”→“信任中心”→“信任中心设置”→“宏设置”。
2、选择“启用所有宏（不推荐；可能会运行有潜在危险的代码）”或“启用VBA宏，但提示用户”。
3、返回“信任中心设置”→“受信任位置”，点击“添加新位置”，将当前工作簿所在文件夹设为受信任位置。
4、再次点击“受信任位置”→勾选“子文件夹也受信任”→点击“确定”。
五、测试触发条件与调试错误
触发行为依赖于精确匹配目标单元格内容，任何空格、大小写差异或不可见字符都会导致事件失效，需通过MsgBox或Debug.Print验证执行路径。
1、在Worksheet_Change事件中Target.Value判断前插入：
MsgBox "检测到变更：单元格" & Target.Address & "，值为：" & Target.Value
2、在SendEmailViaOutlook开头插入：
MsgBox "正在尝试连接Outlook..."
3、若出现“运行时错误429：ActiveX组件不能创建对象”，说明Outlook未运行或未正确安装，需手动启动Outlook并登录账户。
4、若邮件未发出但无报错，检查Outlook的安全设置——可能弹出权限提示被后台隐藏，需在任务栏右下角查找Outlook图标并确认授权。
