需用VBA调用Outlook发送邮件，或用Power Automate Desktop替代；均须配置安全工具绕过Outlook警告。
如果您希望在Excel中根据特定条件自动触发邮件发送，需借助VBA编程调用Outlook对象模型实现。以下是几种可行的实现方法：
一、使用VBA调用Outlook发送邮件（基础方法）
该方法通过Excel内置VBA编辑器编写脚本，在满足指定单元格条件（如某列值等于“已逾期”）时，自动生成并发送预设内容的邮件。要求本地安装Microsoft Outlook且配置了默认邮箱账户。
1、按Alt + F11打开VBA编辑器，右键“ThisWorkbook”，选择“插入”→“模块”。
2、粘贴以下代码：
Sub SendEmailIfConditionMet()
Dim OutlookApp As Object, OutlookMail As Object
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
If ws.Range("D2").Value = "已逾期" Then
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "recipient@example.com"
.CC = ""
.Subject = "【自动提醒】客户订单已逾期"
.Body = "客户：" & ws.Range("A2").Value & " 的订单已于" & ws.Range("C2").Value & "逾期。"
.Send
End With
End If
End Sub
二、绑定Worksheet_Change事件实时响应
此方法将VBA逻辑嵌入工作表事件，当用户修改指定单元格（如D列）时立即检测条件，符合条件即触发邮件发送，无需手动运行宏，适合高频监控场景。
1、在VBA编辑器中双击左侧工程资源管理器中的Sheet1（Sheet1），进入该工作表事件模块。
解析 MySQL 8.0 的 DDL 脚本，并将表结构导出为 Excel 格式。适用于用户需将 MySQL 的 `CREATE TABLE` 语句转换为结构化的 Excel 文件场景，导出内容包含字段名、数据类型、长度及精度等信息。支持多张表的批量处理，每张表对应 Excel 中的一个独立工作表。适用于数据库文档编写、数据字典生成及模式分析等任务。
2、在代码窗口中输入以下事件过程：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("D2:D100")) Is Nothing Then
If Target.Value = "已逾期" Then
Call SendEmailIfConditionMet
End If
End If
End Sub
3、确保前述SendEmailIfConditionMet子过程已在模块中定义且名称一致。
三、使用Power Automate Desktop替代VBA（免编程方案）
若企业环境禁用VBA或用户不具备编码能力，可采用Power Automate Desktop（PAD）作为外部自动化工具，通过图像识别与Excel/Outlook客户端交互完成条件判断与邮件发送，不依赖Office宏安全设置。
1、安装Power Automate Desktop并启动新建流程。
2、添加操作“Excel → 在工作表中读取单元格”，设置路径为当前Excel文件，读取范围为D2:D100。
3、添加“循环”操作遍历读取结果，内部嵌入“如果”条件：当单元格值等于已逾期时执行分支。
4、在分支中添加“Outlook → 创建新邮件”，填入收件人、主题、正文，并勾选发送邮件选项。
5、保存流程后，可设置为Excel保存后自动触发，或通过快捷键手动启动。
四、启用Outlook安全警告绕过方案（关键适配步骤）
Windows系统默认阻止外部程序自动发送邮件，会弹出“Microsoft Outlook 已阻止对电子邮件地址的访问”提示。必须提前配置信任机制，否则所有VBA或PAD方案均无法静默发送。
1、下载并安装Outlook Security Manager或ClickYes第三方工具（仅限可信来源）。
2、以管理员身份运行该工具，勾选允许程序自动发送邮件并设置超时时间为5秒。
3、重启Outlook与Excel，验证是否不再弹出安全提示框。
