Свойство Folder.AddressBookName (Outlook)

Возвращает или задает строку, указывающую имя адресной книги для объекта Folder, представляющего папку Contacts. Для чтения и записи.

Синтаксис

выражение. 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

См. также

Folder Object

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.