如何通过VBA发送文件至Outlook联系人组时抑制“检查名称”弹窗

我来帮你搞定这个Outlook发送邮件时弹出“检查名称”窗口的问题！针对你用VBA给自定义联系人组发文件的场景，这里有几个实用的代码级解决方案：

方案1：用联系人组的唯一ID直接指定收件人（最可靠） #

绕开名称检查的核心思路，就是不用名称字符串让Outlook去匹配，而是直接用联系人组的唯一标识符（EntryID）来定位它。这样Outlook能直接找到目标组，完全不会触发检查弹窗。

你可以修改Sendout函数，加入获取联系人组EntryID的逻辑：

Public Function Sendout(strRecipients As String, strSubject As String, strPDF As String) As Boolean
    Dim wbCC As Workbook
    Dim wsMain As Worksheet
    Dim wsSO As Worksheet
    Dim olApp As Object
    Dim olMail As Object
    Dim olNamespace As Object
    Dim olContactsFolder As Object
    Dim olDistList As Object
    
    Set wbCC = Workbooks("Control-Center.xlsm")
    Set wsMain = wbCC.Worksheets("Main")
    Set wsSO = wbCC.Worksheets("Sendout")
    
    ' 初始化Outlook对象
    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olContactsFolder = olNamespace.GetDefaultFolder(10) ' 10对应Outlook的联系人文件夹
    
    ' 遍历联系人文件夹，找到目标联系人组
    For Each olDistList In olContactsFolder.Items
        ' 69代表这是一个联系人组（Distribution List）
        If olDistList.Class = 69 Then
            ' 匹配你传入的联系人组名称，比如"List Europe"
            If olDistList.Name = strRecipients Then
                Exit For
            End If
        End If
    Next
    
    ' 关闭Excel的提示和屏幕刷新
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    
    On Error Resume Next
    Set olMail = olApp.CreateItem(0) ' 0代表创建邮件项
    With olMail
        ' 用EntryID直接添加联系人组，彻底跳过名称检查
        .Recipients.Add(olNamespace.GetItemFromID(olDistList.EntryID))
        .Subject = strSubject
        .Attachments.Add strPDF
        ' 先测试的话可以用.Display，确认没问题再换成.Send发送
        .Display
        ' .Send
    End With
    On Error GoTo 0
    
    ' 清理所有Outlook对象
    Set olMail = Nothing
    Set olDistList = Nothing
    Set olContactsFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
    
    ' 恢复Excel的默认设置
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    
    ' 返回发送是否成功
    Sendout = Err.Number = 0
End Function

方案2：临时关闭Outlook的名称检查提示（全局设置） #

如果不想折腾EntryID，也可以用代码临时修改Outlook的全局设置，关闭名称检查的弹窗。不过要注意，发送完成后记得恢复设置，不然会影响用户后续的Outlook操作：

' 在创建邮件前添加这段代码，关闭检查名称提示
olApp.Session.SetOption "CheckNamesDialog", False

' 邮件发送完成后，一定要恢复默认设置
olApp.Session.SetOption "CheckNamesDialog", True

方案3：提前解析收件人并跳过弹窗 #

如果你能100%保证联系人组名称拼写正确，也可以在添加收件人后提前解析，同时设置不弹出选择对话框：

With olMail.Recipients
    .Add(strRecipients)
    ' 提前解析所有收件人
    .ResolveAll
    ' 就算解析有问题，也不弹出检查窗口
    .DisplaySelectNamesDialog = False
End With

这个方法简单，但如果名称写错了，邮件会直接发送失败，所以得确保strRecipients的准确性才行。

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