Access Microsoft Outlook для печати Список участников

Question

Пожалуйста, советы, как получить следующий

1. От Microsoft Outlook
2. Тип КОЕ в «поиск адресных книг»
3. Нажмите кнопку Свойства
4. В Список участников Мы видим все имена пользователей

Цель i s, чтобы напечатать все имена пользователей в файл.

Как выполнить эту задачу с помощью скрипта VB или с любым другим кодом?

пример:

Я нашел это, но я не понимаю, как настроить свой список рассылки в коде VB для печати членов списка рассылки

Например, если у меня список рассылки MY_HOME Как вставить MY_HOME в код VB, чтобы распечатать всех участников?

Const olFolderContacts = 10 

Set objOutlook = CreateObject("Outlook.Application") 
Set objNamespace = objOutlook.GetNamespace("MAPI") 

Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items 
intCount = colContacts.Count 

For i = 1 To intCount 
    If TypeName(colContacts.Item(1)) = "DistListItem" Then 
     Set objDistList = colContacts.Item(i) 
     Wscript.Echo objDistList.DLName 
     For j = 1 To objDistList.MemberCount 
      Wscript.Echo objDistList.GetMember(j).Name & " -- " & _ 
      objDistList.GetMember(j).Address 
     Next 
     Wscript.Echo 
    End If 
Next 

Answer 1

Вызов Namespace.CreateRecipient/Recipient.Resolve/Recipient.AddressEntry.Members.

UPDATE:

Set objOutlook = CreateObject("Outlook.Application") 
Set objNamespace = objOutlook.GetNamespace("MAPI") 
objNamespace.Logon 
set objRecip = objNamespace.CreateRecipient("MY_HOME") 
if objRecip.Resolve Then 
    set objMembers = objRecip.AddressEntry.Members 
    if not (objMembers Is Nothing) Then 
    for each objMember in objMembers 
     Wscript.Echo objMember.Name & " : " & objMember.Address 
    next 
    end If 
End If