Propiedad SelectNamesDialog.ShowOnlyInitialAddressList (Outlook)
Devuelve o establece un valor Boolean que determina si el objeto AddressList representado por SelectNamesDialog.InitialAddressList es el único objeto AddressList disponible en la lista desplegable de la Libreta de direcciones en el cuadro de diálogo Seleccionar nombres. Lectura y escritura.
Sintaxis
expresión. ShowOnlyInitialAddressList
Expresión Variable que representa un objeto SelectNamesDialog .
Comentarios
El valor predeterminado de esta propiedad es False, lo que significa que se muestran todas las listas de direcciones. Para restringir la lista desplegable Libreta de direcciones a la que se indica en InitialAddressList, establezca ShowOnlyInitialAddressList en True.
Si no establece la propiedad InitialAddressList y, a continuación, establece ShowOnlyInitialAddressList en True, addresslist con AddressList.IsInitialAddressList igual a True será la única lista de direcciones disponible en la lista desplegable de libreta de direcciones.
Ejemplo:
El ejemplo de código siguiente muestra cómo utilizar IsInitialAddressList y ShowOnlyInitialAddressList para que el cuadro de diálogo Seleccionar nombres siempre muestre sólo la lista de direcciones en la carpeta de contactos predeterminada, independientemente de la configuración del usuario para la lista de direcciones inicial.
Sub ShowOnlyContacts()
Dim oMsg As MailItem
Set oMsg = Application.CreateItem(olMailItem)
Dim oDialog As SelectNamesDialog
Set oDialog = Application.Session.GetSelectNamesDialog
Dim oContacts As Folder
Set oContacts = _
Application.Session.GetDefaultFolder(olFolderContacts)
Dim oAL As AddressList
For Each oAL In Application.Session.AddressLists
If oAL.GetContactsFolder = oContacts Then
Exit For
End If
Next
With oDialog
.InitialAddressList = oAL
.ShowOnlyInitialAddressList = True
.Recipients = oMsg.Recipients
If .Display Then
'Recipients Resolved
End If
End With
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.