需启用开发者选项、配置outlook引用，编写worksheet_change事件监听单元格变化，调用sendalertmail发送邮件；可改用application.ontime定时检查，或通过cdo绕过安全警告实现自动发信。
如果您希望在Excel表格中，当某个单元格满足特定条件（例如数值超过阈值、日期临近或文本等于指定内容）时自动触发邮件发送，并通过VBA宏调用Outlook实现提醒，则需启用并编写可执行的宏代码。以下是实现该功能的具体步骤：
一、启用开发者选项并检查Outlook配置
此步骤确保Excel能识别VBA环境，并确认系统已安装且默认邮件客户端为Outlook。若Outlook未正确注册或处于关闭状态，后续宏将无法创建邮件对象。
1、点击“文件”→“选项”→“自定义功能区”，勾选“开发工具”并确定。
2、打开Outlook，确保其能正常启动并登录有效账户。
3、在Excel中按
二、编写触发条件判断的Worksheet_Change事件宏
该宏监听指定单元格区域的变化，仅当目标单元格内容符合预设条件（如D2>100）时才执行发信逻辑，避免无意义调用。
1、在VBA编辑器中，双击左侧工程资源管理器中的对应工作表（如Sheet1）。
2、粘贴以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("D2")) Is Nothing Then
If Target.Value > 100 Then
Call SendAlertMail
End If
End If
End Sub
3、保存工作簿为启用宏的格式（.xlsm）。
三、编写SendAlertMail子过程实现邮件构造与发送
该过程创建Outlook Application对象，新建MailItem，填充收件人、主题、正文，并调用Send方法发出邮件。所有字段均可根据实际需求动态赋值。
1、在VBA编辑器中插入新模块（右键工程→插入→模块）。
2、粘贴以下代码：
Sub SendAlertMail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "alert@company.com"
.CC = ""
.Subject = "【自动提醒】D2单元格数值超限"
.Body = "检测到Sheet1中D2单元格当前值为：" & Sheets("Sheet1").Range("D2").Value & vbCrLf & "请尽快核查。"
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
四、使用Application.OnTime替代实时监听以降低资源占用
对于不依赖即时响应的场景（如每日9点检查A1:A100内含“逾期”的单元格），可用OnTime定时触发检查，避免频繁占用CPU资源。
1、在模块中添加启动定时器的子过程：
Sub StartDailyCheck()
Application.OnTime TimeValue("09:00:00"), "CheckOverdueCells"
End Sub
2、编写CheckOverdueCells过程遍历区域并发送邮件：
Sub CheckOverdueCells()
Dim cell As Range
For Each cell In Sheets("Sheet1").Range("A1:A100")
If cell.Value = "逾期" Then
Call SendAlertMailForCell(cell.Address, cell.Value)
End If
Next cell
Application.OnTime TimeValue("09:00:00"), "CheckOverdueCells"
End Sub
3、另建SendAlertMailForCell过程，参数化收件人与正文内容。
五、处理Outlook安全警告与权限限制
Windows及Outlook默认阻止自动化邮件发送，会弹出“某某试图访问Outlook”的警告框，导致宏中断。需采用兼容方案绕过该拦截。
1、安装第三方工具Outlook Security Manager或ClickYes（需管理员权限部署）。
2、或改用CDO（Collaboration Data Objects）库发送SMTP邮件，无需Outlook客户端，但需配置SMTP服务器地址、端口、账号密码。
3、在VBA中替换对象创建方式：
Set OutApp = CreateObject("CDO.Message")
OutApp.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your_email@domain.com"
OutApp.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_app_password"
