Как использовать VBA в MS Office 2003 для добавления участников в список рассылки Exchange

Question

Моя компания использует Office 2003. Я хочу программно добавить участников в список рассылки в GAD («Глобальная адресная книга») на сервере обмена.VBA будет наиболее удобной, но все подойдет.Я владелец адресной книги, поэтому, надеюсь, разрешения не возникнут.

Все, что я видел, подробно объясняет, как обращаться со списками рассылки в локальной папке контактов (НЕ то, что я ищу),или использует функции в Office 2010, которые не были доступны в 2003 году.

Answer 1

Я не могу проверить это, поэтому, пожалуйста, дайте нам знать, если это работает.

Замените «My GAL DistList Name» именем списка рассылки, как оно указано в вашей адресной книге. И последняя строка кода, очевидно, должна быть обновлена ​​с контактной информацией, которую вы хотите добавить в DL.

Sub AddtoDL()

  Dim ns As Outlook.NameSpace
  Dim al As Outlook.AddressList
  Dim aes As Outlook.AddressEntries
  Dim ae As Outlook.AddressEntry
  Dim newae As Outlook.AddressEntry

  Set ns = session
  Set al = ns.AddressLists("Global Address List")
  Set aes = al.AddressEntries
  Set ae = aes.item("My GAL DistList Name")

  Set newae = ae.Members.Add("SMTP", "Jimmy Pena", "jp@somewhere.com")

End Sub

(частично из http://oreilly.com/catalog/cdomapi/chapter/ch07.html)