如何修改Excel VBA邮件发送宏：I列非空时不生成邮件

需求说明 #

• 截止日期过后，自动生成邮件提醒同事，替代受限的HYPERLINK函数
• 特殊规则：当I列（标注“Extenuating circumstances（特殊情况）”）对应单元格非空时，跳过该条邮件提醒

现有代码问题 #

你原本想插入的Exit Sub语句会直接终止整个宏程序，而不是跳过当前有特殊情况的行，这不符合需求。正确的做法是跳过当前行，继续处理下一行数据。

修改后的完整代码 #

Sub Send_Email_to_List()
Dim OL As Object, MailSendItem As Object
Dim user_msg As String
Dim MsgTxt As String
Dim xCell As Range ' 显式声明变量，提升代码规范性

Set OL = CreateObject("Outlook.Application")

' 遍历H列从H4开始的所有非空单元格
For Each xCell In ActiveSheet.Range(Range("H4"), Range("H" & Rows.Count).End(xlUp))
    ' 检查I列（第9列）是否有特殊情况标注，非空则跳过当前行
    If Not IsEmpty(Cells(xCell.Row, 9)) Then
        GoTo NextLoop
    End If
    
    ' 保留原逻辑：L列（第12列）为空则终止宏
    If Cells(xCell.Row, 12).Value = "" Then
        Exit Sub
    End If

    Body_1 = Cells(xCell.Row, 12).Value
    Body_2 = Cells(xCell.Row, 13).Value

    user_email = xCell.Value
    user_subject = Cells(xCell.Row, 11).Value
    user_msg = Body_1 & Body_2

    Set MailSendItem = OL.CreateItem(olMailItem)

    With MailSendItem
        .Subject = user_subject
        .Body = user_msg
        .To = user_email
        .Display ' 若需自动发送，可替换为.Send
    End With

NextLoop: ' 循环跳转标记，用于跳过当前行
Next xCell

' 释放对象，避免内存占用
Set MailSendItem = Nothing
Set OL = Nothing
End Sub

核心修改点 #

1. 特殊情况判断逻辑：用If Not IsEmpty(Cells(xCell.Row, 9)) Then GoTo NextLoop实现跳过当前行，而非终止整个宏
2. 变量规范：显式声明xCell为Range类型，避免变体类型带来的潜在问题
3. 对象释放：增加Set MailSendItem = Nothing，完善内存管理

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