全部显示

AddressLists 属性

返回 AddressLists 集合，代表该会话可用的通讯簿集合。该 AddressLists 集合代表当前会话的通讯簿层次的根。特定的 AddressList 对象代表某个可用的通讯簿。用户获得的访问类型取决于每个通讯簿提供者授予他的访问权限。

expression  必选。该表达式返回 NameSpace 对象。

示例

本 Visual Basic for Applications 示例使用 Add 方法将新 AddressEntry 添加到个人通讯簿中。Name“John Q.Public”对于避免错误是必要的。

如果该条目已经存在，代码将跳到 DialogBox:。Details 方法将显示包含该条目详细信息的对话框。

Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myAddrList = myNamespace.AddressLists("Personal Address Book")
    Set myAddrEntries = myAddrList.AddressEntries
    Set myEntry = myAddrEntries.Add("Microsoft Mail Address")
    myEntry.Name = "John Q. Public"
    On Error GoTo DialogBox
    myEntry.Address = "someone@microsoft.com"
    myEntry.Update
DialogBox:
    myEntry.Details