AddressBookName Property
Returns or sets a String that indicates the Address Book name for the current MAPIFolder object. Read/write.
expression.AddressBookName
expression Required. An expression that returns a MAPIFolder object.
Example
The following example changes the Address Book name for a given folder and displays the new name to the user. The subroutine accepts the folder object and a String representing the new folder name.
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