Propiedad SelectNamesDialog.InitialAddressList (Outlook)
Devuelve o establece un objeto AddressList que determina la lista de direcciones inicial que se mostrará en el cuadro de diálogo Seleccionar nombres. Lectura y escritura.
Sintaxis
expresión. InitialAddressList
Expresión Variable que representa un objeto SelectNamesDialog .
Comentarios
Establecer la propiedad InitialAddressList es mediante programación equivale a seleccionar un objeto AddressList de la lista desplegable para la Libreta de direcciones en el cuadro de diálogo Seleccionar nombres.
En su estado predeterminado, InitialAddressList es el objeto AddressList cuya propiedad que AddressList.IsInitialAddressList está establecida en True. IsInitialAddressList corresponde a establecer Mostrar primero esta lista de direcciones en el cuadro de diálogo asignación de direcciones, que está disponible haciendo clic en Herramientas y a continuación, en Opciones en el cuadro de diálogo Libreta de direcciones.
Ejemplo:
El ejemplo de código siguiente muestra cómo utilizar InitialAddressList y SelectNamesDialog.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.