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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de