Блог

Я пытаюсь объединить два действия.

 'Assign To List
ToList = Worksheets("VBA_Code").Range("B5")

'Assign CC List
CCList = Worksheets("VBA_Code").Range("B6")

On Error Resume Next
With OutMail
    .to = ToList
    .CC = CCList
    .BCC = OutApp.GetNamespace("MAPI").Session.CurrentUser.AddressEntry
 

У меня есть список пользователей, которые должны быть зарегистрированы. Я не думаю, что мне нужно включать отправителя в BCC, как это делает приведенный выше код, поэтому я хотел включить отправителя в свой CC вместе со списком тех, кто находится в списке CC.

Есть ли способ объединить эти два действия / вызовы?

Список кому, CC и BCC в Outlook разделены точкой с запятой. Итак, просто добавьте вот так:

 .CC = CCList amp; ";" amp; OutApp.GetNamespace("MAPI").Session.CurrentUser.AddressEntry