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

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

不过，我想将工作簿发送到我的Outlook联系人中的一个名为“Daily Matrix”的分发列表中，并希望对他们进行密码pipe理。 我不知道如何做到这一点，帮助将不胜感激。 谢谢！

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列表的名称，但我没有testing过。

 .BCC = "Daily Matrix" 

欲了解更多信息，请参阅这里和这里 。