使用 Outlook 将电子邮件发送到通讯组列表

Question

我目前有可以完美运行的代码，可以将我打开的活动工作簿发送给我指定的任何人。

但是，我想将工作簿发送到 Outlook 联系人中名为“每日矩阵”的分发列表，并希望将其密件抄送。我不知道该怎么做，我们将不胜感激。谢谢！

Sub Mail_Workbook_1()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Daily Matrix"
    .Body = "PLEASE DO NOT DISTRIBUTE-FOR INTERNAL USE ONLY"
    .Attachments.Add ActiveWorkbook.FullName
    ' You can add other files by uncommenting the following line.
    '.Attachments.Add ("C:\test.txt")
    ' In place of the following statement, you can use ".Display" to
    ' display the mail.
    .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Answer 1

您应该可以在.BCC 行中使用分发列表的名称，但我没有对此进行测试。

.BCC = "Daily Matrix"

有关详细信息，请参阅here 和 here。