Адреса из списка рассылки не по умолчанию

Question

Я использую MS office 2010. Я хочу, чтобы данные участника из списка распространения Outlook.

Мой Outlook настроен с двумя идентификаторами электронной почты. Один из них - клиент, другой - компания.

У меня есть код в Excel, чтобы проверить список рассылки и импортировать данные в Excel.

Я могу импортировать данные из списка рассылки для идентификатора почты по умолчанию. Я не могу выбрать список рассылки из другого электронного письма. Он пытается найти DL по умолчанию и выбрать неправильное имя.

Вот мой код

Dim olApp As Outlook.Application 
Dim olNS As Outlook.Namespace 
Dim olAL As Outlook.AddressList 
Dim olEntry As Outlook.AddressEntry 
Dim olMember As Outlook.AddressEntry 
Dim lMemberCount As Long 
Dim objMail As Outlook.MailItem 

Set olApp = Outlook.Application 
Set olNS = olApp.GetNamespace("MAPI") 
Set olAL = olNS.AddressLists("Global Address List") 

Set objMail = olApp.CreateItem(olMailItem) 

' enter the list name 
Set olEntry = olAL.AddressEntries(".DL IS Support") 

' get count of dist list members 
lMemberCount = olEntry.Members.Count 

Answer 1

объектной модели Outlook не позволит вам разрешить имя против конкретного контейнера AB. Вам нужно будет использовать Extended MAPI (C++ или Delphi), создав ограничение PR_ANR (IMAPITable::Restrict) против таблицы содержимого этого контейнера.

Если используется Redemption, то он предоставляет RDOAddressList. ResolveName/ResolveNameEx методы, позволяющие разрешить имя для данного контейнера. Контейнер может быть получен от RDOSesion.AddressBook.AddressLists или от RDOExchangeAccount. ГАЛ. RDOExchangeAccount объект может быть получен из коллекции RDOSession.Accounts.