如何在Outlook VBA中将combobox选中值加载到CC字段

云原生阿岚

2026-10-5

问题原因

报错核心为Outlook未对新增的收件人地址完成有效性校验，还可能存在以下隐含问题：

新增收件人后未调用Resolve()方法触发Outlook地址校验逻辑
未校验当前激活窗口是否为邮件编辑窗口，选中其他类型Outlook条目时会触发异常
未校验ComboBox取值是否为空，空地址传入会直接触发解析失败
若工程未引用Outlook类型库，olCC常量无定义也可能引发异常

修正后代码

Private Sub Attach_Click()
    ' 校验当前是否打开有效邮件编辑窗口
    If Application.ActiveInspector Is Nothing Then Exit Sub
    If TypeName(Application.ActiveInspector.CurrentItem) <> "MailItem" Then Exit Sub
    
    Dim oMsg As MailItem
    Set oMsg = Application.ActiveInspector.CurrentItem
    Dim objRecip As Recipient
    
    ' 校验下拉框取值非空
    Dim selectMail As String
    selectMail = Trim(Me.cmbPC.Column(0))
    If selectMail = "" Then
        MsgBox "请先选择对应项目的邮箱", vbExclamation
        Exit Sub
    End If
    
    Set objRecip = oMsg.Recipients.Add(selectMail)
    ' olCC固定枚举值为2，未引用类型库可直接写objRecip.Type = 2
    objRecip.Type = olCC
    ' 执行地址解析，解决无法解析收件人报错
    If Not objRecip.Resolve Then
        MsgBox "所选邮箱地址 " & selectMail & " 无效，请检查下拉框配置", vbExclamation
        Exit Sub
    End If
    
    ' 可选：刷新所有收件人列表显示
    oMsg.Recipients.ResolveAll
End Sub