Outlook) (Folder.AddressBookName 属性
返回或设置一个 字符串 ,指示 文件夹 对象表示联系人文件夹的通讯簿名称。 读/写。
语法
expression。 AddressBookName
表达 一个代表 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:提交和查看相关反馈