Устранение списка рассылки в Outlook VBA

Question

Я пытаюсь создать электронное письмо, используя VBA, который вытаскивает своих получателей из списка общих папок с дистрибутивом.

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

Sub Email() 

Dim list As Outlook.DistListItem 
Dim oAPP      As Object 
Dim oItem      As Object 
Const olMailItem    As Long = 0 

Set list = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Planning Weekly Distribution List").Items.Item("Test") 

Set oAPP = CreateObject("Outlook.Application") 
Set oItem = oAPP.CreateItem(olMailItem) 
With oItem 
    .Display 
End With 

With oItem 
    .BCC = list 
    .Subject = "hey" 
    .HTMLBody = Body & "<br>" & .HTMLBody 
    .Display 
End With 


End Sub 

Answer 1

Был «Планирование недельных списка рассылки» папка добавляется в адресной книге Outlook (правой кнопкой мыши на папке, свойства, адресная книга Outlook)? Если да, просто установите для свойства BCC значение «тест» - Outlook разрешит имя (при условии, что оно однозначно).

Если нет, вам нужно будет добавить членов DL в качестве получателей по одному.

Чтобы убедиться, что папка используется адресной книгой Outlook, установите свойство MAPIFolder.ShowAsOutlookAB.