Excel怎么自动发送邮件基于单元格内容触发Outlook【办公自动化】_网络技术

Excel怎么自动发送邮件基于单元格内容触发Outlook【办公自动化】

发布时间 - 2026-01-24 00:00:00 点击率：次

需用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