Question

我的公司正在使用Office 2003.我想以编程方式将成员添加到Exchange服务器上的GAD（“全局通讯簿”）中的通讯组列表中。 VBA最方便，但任何事都可以。我是地址簿的所有者，因此许可不会成为问题。

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

Answer 1

我无法对此进行测试，请告知我们是否有效。

将“我的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", "jp@somewhere.com")

End Sub

（部分来自http://oreilly.com/catalog/cdomapi/chapter/ch07.html）

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

1 个答案: