Propriedade Folder.AddressBookName (Outlook)

Retorna ou define um String que indica o nome do catálogo de endereços para o objeto Folder que representa uma pasta de contatos. Leitura/gravação.

Sintaxe

expression. AddressBookName

Expressão Uma variável que representa um objeto Folder .

Comentários

Se você tentar definir a propriedade AddressBookName em uma pasta não seja de contatos, um erro será retornado.

Exemplo

O exemplo a seguir altera o nome do Catálogo de Endereços da pasta padrão Contatos e exibe o novo nome para o usuário. A sub-rotina aceita o objeto da pasta e uma cadeia de caracteres que representa o novo nome do catálogo de endereços.

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

Confira também

Objeto Folder

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.