vba - 如何在MS Office 2003中使用VBA将成员添加到Exchange通讯组列表

我的公司正在使用Office2003。我想以编程方式将成员添加到交换服务器上GAD(“全局通讯簿”)中的通讯组列表中。 VBA是最方便的，但是任何事情都可以。我是通讯录的所有者，因此希望权限不会成为问题。

我所看到的所有内容都详细说明了如何处理本地联系人文件夹中的通讯组列表(不是我要查找的内容)，或使用Office 2010中2003年不可用的功能。

最佳答案

我无法对此进行测试，因此请告诉我们是否可行。

用通讯录中显示的通讯组列表名称替换“我的GAL DistList名称”。并且显然需要用要添加到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", "[email protected]")

End Sub

(部分来自http://oreilly.com/catalog/cdomapi/chapter/ch07.html)

关于vba - 如何在MS Office 2003中使用VBA将成员添加到Exchange通讯组列表，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/8389846/