Propiedad Folder.AddressBookName (Outlook)

Devuelve o establece una cadena que indica el nombre de la libreta de direcciones para el objeto Folder que representa una carpeta de contactos. Lectura y escritura.

Sintaxis

expresión. AddressBookName

Expresión Variable que representa un objeto Folder .

Comentarios

Si intenta establecer la propiedad AddressBookName en una carpeta que no sean contactos, se devolverá un error.

Ejemplo:

En el ejemplo siguiente se cambia el nombre de la Libreta de direcciones para la carpeta Contactos y se muestra el nuevo nombre al usuario. La subrutina acepta el objeto de carpeta y una cadena que representa el nuevo nombre de la libreta de direcciones.

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

Consulte también

Objeto Folder

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.