发送时禁止显示"Check Names"弹出框

Question

我使用以下代码将文件发送到我自己创建的Outlook联系人组，该联系人组具有唯一的名称，例如"列出欧洲"：

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

Set wbCC = Workbooks("Control-Center.xlsm")
Set wsMain = wbCC.Worksheets("Main")
Set wsSO = wbCC.Worksheets("Sendout")
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
End With
If strPDF <> "" Then
    wsSO.Activate
    wsSO.Range("A1:B1").Select
    With Selection
        ActiveWorkbook.EnvelopeVisible = True
        With ActiveSheet.MailEnvelope
            .Item.To = strRecipients
            .Item.Subject = strSubject & strDate
            .Item.Attachments.Add strPDF                
            .Item.Send
        End With
        ActiveWorkbook.EnvelopeVisible = False
    End With
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    Sendout = True
    Else:   Sendout = False
End If
End Function

运行我的代码时，会弹出"检查名称"框，不仅提供我交给函数的列表，还提供包含"列表"和/或"欧洲"一词的其他列表，例如"欧洲第二列表"。

我的问题是，如何抑制此弹出窗口并强制代码完全使用我移交的内容？在Outlook中操作设置，理论上可以禁用此类消息并没有取得任何成功。

谢谢！

Answer 1

不要使用收件人的姓名。使用 SMTP 地址 - 它们始终是明确解析的。