Excel追踪器VBA函数调用问题：单元格变更触发邮件发送

看起来你正在给自己的Excel追踪器做一个很实用的自动邮件提醒功能——当单元格更新为指定人员姓名时自动发邮件。我注意到你已经在ThisWorkbook里写了部分sendMail函数，不过有几个地方需要调整和补全，下面我一步步帮你搞定：

1. 补全sendMail函数并调整位置 #

你之前把sendMail写在Workbook_Open事件里是不对的，应该把它作为独立的公共函数。推荐放在标准模块里（右键VBA工程→插入→模块），这样整个工作簿都能调用：

Public Sub sendMail(strTo As String, _
 strSubject As String, _
 strBodyText As String, _
 Optional strCC As String = "", _
 Optional oAttachments As Collection = Nothing)
    ' 处理Outlook对象的核心逻辑
    Dim oOutlook As Object
    Dim oMailItem As Object ' 如果不想引用Outlook库，就用Object代替Outlook.MailItem
    Dim att As Variant
    
    ' 捕获Outlook实例，避免重复打开
    On Error Resume Next
    Set oOutlook = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Set oOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    
    ' 创建新邮件
    Set oMailItem = oOutlook.CreateItem(0) ' 0对应olMailItem常量
    
    With oMailItem
        .To = strTo
        .CC = strCC
        .Subject = strSubject
        .Body = strBodyText
        ' 批量添加附件（如果需要的话）
        If Not oAttachments Is Nothing Then
            For Each att In oAttachments
                .Attachments.Add att
            Next att
        End If
        ' 直接发送邮件（如果想先显示再发，改成.Display）
        .Send
    End With
    
    ' 释放内存
    Set oMailItem = Nothing
    Set oOutlook = Nothing
End Sub

2. 添加单元格变更监听事件 #

接下来要在目标工作表的模块里（比如你的追踪器所在的Sheet1）添加Worksheet_Change事件，用来监听单元格变化并触发邮件：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义你要监听的单元格范围，比如A列的A1到A100，自己按需修改
    Dim watchRange As Range
    Set watchRange = Me.Range("A1:A100")
    
    ' 检查修改的单元格是否在监听范围内
    If Not Intersect(Target, watchRange) Is Nothing Then
        ' 遍历所有被修改的单元格（防止批量粘贴触发的情况）
        Dim cell As Range
        For Each cell In Intersect(Target, watchRange)
            ' 这里添加你要触发邮件的人员姓名和对应邮箱
            Select Case cell.Value
                Case "张三"
                    sendMail strTo:="zhangsan@yourcompany.com", _
                            strSubject:="你的追踪任务已更新", _
                            strBodyText:="您好！Excel追踪器中涉及您的任务已发生变更，请及时查看。"
                Case "李四"
                    sendMail strTo:="lisi@yourcompany.com", _
                            strSubject:="你的追踪任务已更新", _
                            strBodyText:="您好！Excel追踪器中涉及您的任务已发生变更，请及时查看。"
                ' 可以继续添加更多人员的规则
            End Select
        Next cell
    End If
End Sub

3. 关键注意事项 #

• 宏权限与引用：确保你的Excel启用了宏，并且如果用了Outlook.MailItem这种类型，需要在VBA编辑器的「工具→引用」里勾选Microsoft Outlook XX.X Object Library（XX.X是你的Outlook版本）；如果不想加引用，就用我上面代码里的Object类型和数字0代替常量。
• 错误处理：如果担心邮件发送失败（比如Outlook没开、邮箱地址错误），可以给sendMail加个错误捕获，比如在函数开头加On Error GoTo MailError，然后在末尾加错误处理分支。
• 测试建议：测试的时候可以把.Send改成.Display，这样邮件会先弹出来让你确认，没问题再改回.Send。

内容的提问来源于stack exchange，提问作者Chelsie