返回或设置当前 MAPIFolder 对象的通讯簿名称。String 类型,可读写。
expression.AddressBookName
expression 必选。该表达式返回 MAPIFolder 对象。
以下示例更改指定文件夹的通讯簿名称,并向用户显示新名称。子例程接受一个文件夹对象和一个代表新文件夹名称的 String 类型值。
Sub BookName()
Dim olApp As Outlook.Application
Dim nmsName As NameSpace
Dim fldFolder As MAPIFolder
Dim strAns As String
Set olApp = Outlook.Application
'Create a reference to namepsace
Set nmsName = olApp.GetNamespace("MAPI")
'Create an instance of the Inbox folder
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
'Prompt user for input
strAns = InputBox("Enter the name of the new address book")
'Call Sub procedure
Call Changebook(fldFolder, strAns)
End Sub
Sub Changebook(ByRef fldFolder As MAPIFolder, 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