VBA如何用命名区域填充Outlook邮件.To字段且不使用活动工作表

需要通过VBA调用Outlook生成邮件时，使用工作簿内的命名区域填充.To收件人字段，全程不依赖活动工作表，初始编写的代码存在多处语法、逻辑问题，无法正常运行。

• 仅声明了Outlook邮件项对象EItem，未通过CreateItem方法创建实际的邮件实例，直接操作会触发「对象变量或With块变量未设置」错误
• 给Range类型对象变量ODLEmail赋值时缺少Set关键字，VBA中所有对象类型的变量赋值必须显式使用Set
• 直接将Range对象赋值给邮件的.To属性不符合规则：.To属性接收的是分号分隔的邮箱地址字符串，如果命名区域是多单元格分别存储不同邮箱，需要先把单元格内容拼接为符合要求的字符串
• 工作表引用写法不规范，未明确指定命名区域所在的工作簿、工作表，容易受活动工作表切换影响。

Public Sub cmdEmailODL_Click()
    Dim EApp As Object
    Dim EItem As Object
    Dim ODLEmail As Range
    Dim emailArr As Variant
    Dim emailStr As String
    Dim i As Long
    
    ' 绑定已打开的Outlook实例，不存在则自动创建
    On Error Resume Next
    Set EApp = GetObject(, "Outlook.Application")
    If EApp Is Nothing Then
        Set EApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    
    ' 创建新邮件项
    Set EItem = EApp.CreateItem(0)
    
    ' 显式指定当前代码所在工作簿内的目标工作表，完全不依赖活动工作表
    ' 如果ODLEmail是工作表的VBA CodeName，可直接简写为 Set ODLEmail = ODLEmail.Range("ODL_Emails")
    ' 如果ODL_Emails是工作簿级命名区域，可写为 Set ODLEmail = ThisWorkbook.Names("ODL_Emails").RefersToRange
    Set ODLEmail = ThisWorkbook.Worksheets("ODLEmail").Range("ODL_Emails")
    
    ' 把区域内的邮箱拼接为分号分隔的字符串，适配.To属性格式要求
    emailArr = ODLEmail.Value
    emailStr = ""
    ' 适配单列逐行存储邮箱的场景
    For i = 1 To UBound(emailArr, 1)
        If Trim(emailArr(i, 1)) <> "" Then
            emailStr = emailStr & Trim(emailArr(i, 1)) & ";"
        End If
    Next i
    ' 移除末尾多余的分号
    If emailStr <> "" Then
        emailStr = Left(emailStr, Len(emailStr) - 1)
    End If
    
    ' 配置邮件参数
    With EItem
        .To = emailStr
        .Subject = "Overdue items"
        ' 可继续添加.Body、.Attachments等配置
        .Display ' 调试阶段建议先用Display弹出邮件窗口校验内容，确认无误后可替换为.Send直接发送
    End With
    
    ' 释放对象资源
    Set ODLEmail = Nothing
    Set EItem = Nothing
    Set EApp = Nothing
End Sub

• 代码通过ThisWorkbook显式绑定代码所在的工作簿，通过工作表名称/CodeName指定目标表，全程不会随活动工作表切换出现引用错误
• 如果命名区域内的邮箱是单行多列存储，把循环中的UBound(emailArr, 1)改为UBound(emailArr, 2)，取值逻辑改为emailArr(1, i)即可
• 若需要直接发送邮件，需要提前配置Outlook的信任中心设置，允许程序发送邮件，避免触发安全提示。

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