Senden von E-Mail an die Verteilerliste mit Outlook

Question

Ich habe derzeit einen Code, der perfekt funktioniert, der die aktive Arbeitsmappe sendet, die ich für jeden, den ich angeben, geöffnet habe.

Allerdings möchte ich die Arbeitsmappe zu einer Verteilerliste in meinen Outlook-Kontakten namens "Daily Matrix" senden und BCC sie möchten. Ich bin nicht sicher, wie man das macht und Hilfe würde geschätzt werden. Vielen Dank!

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

Sie sollten diese den Namen der Verteilerliste in der .BCC Linie, aber ich habe nicht getestet verwenden können.

.BCC = "Daily Matrix" 

Weitere Informationen finden Sie here und here.