VBA批量发邮件代码疑问：收件人列表来源排查与修改指导

关于c1的含义 #

c1是代码循环中的临时变量，代表Range("RecipientEmails")区域内的每一个单元格对象。原代码未显式声明其类型，默认是Variant类型，实际运行时它会指向遍历到的单个单元格。

关于Range("RecipientEmails")的来源 #

Range("RecipientEmails")不是工作表名称，而是Excel命名区域——前员工可能把存放邮箱的单元格范围定义了这个名称，但该命名区域现在可能已被删除、失效，或者指向位置与实际邮箱列表不符。

你提到邮箱列表在命令按钮所在工作表的T列，直接修改代码指向该列即可，无需纠结原命名区域。

修改后的代码 #

Sub esendemail()
    Dim outlook As Object
    Dim newEmail As Object
    Dim xInspect As Object
    Dim pageEditor As Object
    Dim c1 As Range ' 显式声明变量类型
    Dim bc_r As String
    Dim ws As Worksheet
    
    ' 替换为命令按钮所在的工作表名称
    Set ws = ThisWorkbook.Worksheets("按钮所在工作表名")
    
    Set outlook = CreateObject("Outlook.Application")
    Set newEmail = outlook.CreateItem(0)

    bc_r = ""
    ' 遍历T列所有非空单元格（从T1到最后一行非空单元格）
    For Each c1 In ws.Range("T1:T" & ws.Cells(ws.Rows.Count, "T").End(xlUp).Row)
        If Trim(c1.Value) <> "" Then ' 跳过空单元格，避免无效收件人
            bc_r = bc_r & ";" & c1.Value
        End If
    Next c1
    
    ' 移除BCC字符串开头多余的分号
    If Left(bc_r, 1) = ";" Then bc_r = Mid(bc_r, 2)
    
    With newEmail
        .To = ""
        .BCC = bc_r
        .Subject = "Welcome to the team!"
        .Body = "[Greetings]" & vbCrLf & " " & vbCrLf & "Practice Name:"
        .Display
        Set xInspect = newEmail.GetInspector
        Set pageEditor = xInspect.WordEditor

        Set pageEditor = Nothing
    End With

    ' 释放对象资源
    Set newEmail = Nothing
    Set outlook = Nothing
    Set ws = Nothing
End Sub

修改说明 #

• 显式声明所有变量，避免隐式类型转换引发的潜在问题
• 明确指定邮箱所在工作表，防止当前激活工作表变化导致的错误
• 仅遍历T列非空单元格，避免BCC栏出现无效的空收件人项
• 移除BCC字符串开头多余的分号，确保Outlook能正确识别收件人

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