如何使用VBA在MS Office 2003的成員添加到Exchange通訊列表

我公司使用的是Office 2003。我想成員在Exchange服務器上以編程方式添加到在GAD分發列表（「全球地址簿」）。 VBA將是最方便的，但任何事情都可以做到。我的地址簿中的所有人，希望權限不會成爲一個問題。如何使用VBA在MS Office 2003的成員添加到Exchange通訊列表

一切我所看到的細節或者如何處理通訊組列表在一個本地的聯繫人文件夾（不是我找的），或使用Office 2010的功能是不具備在2003年

來源

2011-12-05 David I. McIntosh

它只是看看現在。下週試試吧。感謝您的信息。 –

我不是能夠測試這個，所以請讓我們知道它是否有效。

替換爲「我的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部分來源）

來源

2011-12-05 19:04:25 JimmyPena

如何使用VBA在MS Office 2003的成員添加到Exchange通訊列表

回答

相關問題