Excel VBA自动邮件发送功能问题咨询：满足Q列条件时需匹配同行C列代理邮箱，当前仅发送至C5单元格邮箱

你遇到的问题根源很明确：你的邮件发送子过程里硬编码了Range("C5").Value作为收件人，不管哪一行的Q列触发了条件，都会固定发送到C5的邮箱。要实现对应行的C列邮箱发送，需要把触发单元格的行号传递给邮件发送函数，动态获取对应行的收件人地址。

以下是修改后的完整代码，我会标注关键改动点：

Dim xRg As Range
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    ' 检查是否是Q5:Q1000范围内的单元格变动
    Set xRg = Intersect(Range("Q5:Q1000"), Target)
    If xRg Is Nothing Then Exit Sub
    ' 验证数值是否大于2
    If IsNumeric(Target.Value) And Target.Value > 2 Then
        ' 关键改动1：把触发单元格的行号传递给邮件发送子过程
        Call Mail_small_Text_Outlook(Target.Row)
    End If
End Sub

' 关键改动2：添加参数targetRow接收触发的行号
Sub Mail_small_Text_Outlook(ByVal targetRow As Long)
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Dim sendTo As Variant
    
    ' 关键改动3：根据传入的行号动态获取对应行的C列邮箱
    sendTo = Range("C" & targetRow).Value
    
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    
    xMailBody = "Hi" & vbNewLine & vbNewLine & _
                "This is a reminder that you have one past due Quotation Request " & vbNewLine & _
                "its details as per the following, please take an instant action:"
    
    On Error Resume Next
    With xOutMail
        .To = sendTo
        .Subject = "Past Due Quotation Request Reminder"
        .Body = xMailBody
        .Display ' 测试时用Display，确认没问题后改成.Send
    End With
    On Error GoTo 0
    
    ' 释放对象
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

关键改动说明： #

1. 传递行号：在Worksheet_Change事件中调用Mail_small_Text_Outlook时，把Target.Row（触发变动的单元格所在行）作为参数传进去，让邮件过程知道要处理哪一行的数据。
2. 动态获取收件人：在邮件子过程中，通过Range("C" & targetRow)来获取对应行的C列邮箱地址，替代原来固定的C5，实现了行与行的对应。
3. 优化主题与文本：调整了邮件主题和正文的小细节，让内容更通顺专业，方便收件人快速识别邮件用途。

额外注意事项： #

• 确保你的Excel启用了宏功能，并且Outlook允许VBA访问（首次运行可能会弹出权限提示，需要手动允许）。
• 测试阶段建议保持.Display而不是.Send，先确认收件人、邮件内容都正确后，再改成自动发送。
• 如果Q列的数值是通过公式计算得到的，Worksheet_Change事件不会触发，这时候需要改用Worksheet_Calculate事件（如果是这种情况，可以再留言调整代码）。

内容的提问来源于stack exchange，提问作者Ahmed Thakaa Al-Mubarak