Método AddressList.GetContactsFolder (Outlook)
Obtiene un objeto Folder que representa la carpeta Contactos del objeto AddressList.
Sintaxis
expresión. GetContactsFolder
Expresión Variable que representa un objeto AddressList .
Valor devuelto
Objeto Folder que representa la carpeta de contactos de Outlook de AddressList. Devuelve Null (Nothing en Visual Basic) si no se encuentra ninguna carpeta de contactos de Outlook.
Comentarios
Este método permite hallar el objeto AddressList de la carpeta Contactos que desea establecer como lista de direcciones inicial en el cuadro de diálogo Seleccionar nombres.
Ejemplo:
El ejemplo de código siguiente muestra cómo inicializar el cuadro de diálogo Seleccionar nombres con el objeto AddressList de la carpeta Contactos predeterminada. Primero obtiene el objeto Folder para la carpeta Contacts predeterminada y busca su AddressList comparando el identificador de entrada de este objeto Folder con el identificador de entrada del objeto Folder asociado a cada AddressList de la sesión actual hasta que encuentra una coincidencia. A continuación, se establece la propiedad InitialAddressList y se muestra el cuadro de diálogo Seleccionar nombres.
Sub SetContactsFolderAsInitialAddressList()
Dim oMsg As MailItem
Set oMsg = Application.CreateItem(olMailItem)
Dim oDialog As SelectNamesDialog
Set oDialog = Application.Session.GetSelectNamesDialog
Dim oAL As AddressList
Dim oContacts As Folder
Set oContacts = _
Application.Session.GetDefaultFolder(olFolderContacts)
On Error GoTo HandleError
'Look for the AddressList for the default Contacts folder
For Each oAL In Application.Session.AddressLists
If oAL.AddressListType = olOutlookAddressList Then
If oAL.GetContactsFolder.EntryID = _
oContacts.EntryID Then
Exit For
End If
End If
Next
With oDialog
.Caption = "Select Customer Contact"
.ToLabel = "Customer C&ontact"
.NumberOfRecipientSelectors = olShowTo
.InitialAddressList = oAL
'Let the selected names be the recipients of the new message
.Recipients = oMsg.Recipients
If .Display Then
'Recipients Resolved
End If
End With
HandleError:
Exit Sub
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.