Outlook) (Folder.AddressBookName 属性

返回或设置一个 字符串 ,指示 文件夹 对象表示联系人文件夹的通讯簿名称。 读/写。

语法

expressionAddressBookName

表达 一个代表 Folder 对象的变量。

备注

如果您尝试将 AddressBookName 属性设置非联系人文件夹中,则将返回错误。

示例

以下示例会更改默认"联系人"文件夹的通讯簿名称,并向用户显示该新名称。 子例程将接受该文件夹对象和代表该新通讯簿名称的字符串。

Sub BookName() 
 
 Dim nmsName As Outlook.NameSpace 
 
 Dim fldFolder As Outlook.Folder 
 
 Dim strAns As String 
 
 
 
 'Create a reference to namespace 
 
 Set nmsName = Application.GetNamespace("MAPI") 
 
 'Create an instance of the Contacts folder 
 
 Set fldFolder = nmsName.GetDefaultFolder(olFolderContacts) 
 
 'Prompt user for input 
 
 strAns = InputBox("Type the name of the new address book") 
 
 'Call Sub procedure 
 
 Call Changebook(fldFolder, strAns) 
 
End Sub 
 
 
 
Sub Changebook(ByRef fldFolder As Folder, ByVal strName As String) 
 
 'Changes the name of the address book for a given folder 
 
 'Set address book name to user input 
 
 fldFolder.AddressBookName = strName 
 
 'Display message to user 
 
 MsgBox ("The new address book name for the " & fldFolder.Name & " folder is " _ 
 
 & strName & ".") 
 
End Sub

另请参阅

文件夹对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。