Excel VBA按条件发邮件：无法指定收件人列K的技术问题

嘿，我明白你的问题啦——你主宏里能循环判断哪些行需要发邮件，但被调用的发件宏拿不到对应行的K列邮箱，对吧？这其实就是参数传递的问题，咱们把邮箱地址作为参数从主宏传给发件宏就行，具体这么改：

1. 修改你的主循环宏（agreement2） #

先补全你的循环逻辑，在判断A列为"YES"时，提取当前行K列的邮箱地址，再把它作为参数传给发送邮件的宏：

Sub agreement2()
    Dim startrow As Integer
    Dim mylastrow3 As Integer
    Dim i As Integer
    Dim targetEmail As String
    
    startrow = 9
    ' 获取数据最后一行（替换成你实际的工作表名称）
    mylastrow3 = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历指定行范围
    For i = startrow To mylastrow3
        ' 忽略大小写判断A列是否为"YES"
        If UCase(ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value) = "YES" Then
            ' 提取K列（第11列）的邮箱地址
            targetEmail = ThisWorkbook.Sheets("Sheet1").Cells(i, 11).Value
            
            ' 调用发送邮件的宏，把邮箱地址传过去
            ' 把SendEmailMacro替换成你实际的发送宏名称
            Call SendEmailMacro(targetEmail)
        End If
    Next i
End Sub

2. 修改被调用的发送邮件宏 #

让这个宏接收一个邮箱地址参数，直接用它设置收件人：

' 新增参数targetEmail，接收主宏传递的邮箱地址
Sub SendEmailMacro(targetEmail As String)
    Dim OutApp As Object
    Dim OutMail As Object
    
    ' 跳过空邮箱，避免发送报错
    If targetEmail = "" Then Exit Sub
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    On Error Resume Next ' 捕获发送过程中的错误
    With OutMail
        .To = targetEmail ' 直接使用传递过来的邮箱地址
        .Subject = "你的邮件主题"
        .Body = "你的邮件内容"
        ' 如果要用模板，替换成：.Template = "C:\你的模板路径.oft"
        .Send ' 直接发送，如需预览改成.Display
    End With
    On Error GoTo 0
    
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

额外小提示 #

• 如果K列有多个邮箱（用分号/逗号分隔），直接传递targetEmail即可，Outlook会自动识别多个收件人
• 可以在主宏里添加日志记录，比如把发送成功/失败的状态写到某一列，方便后续核对
• 若要兼容不同工作表，记得把代码里的Sheet1替换成你实际使用的工作表名称

内容的提问来源于stack exchange，提问作者Christopher Leandro Kwok