Método AddressList.GetContactsFolder (Outlook)
Obtém um objeto Folder que representa a pasta Contatos para o objeto AddressList.
Sintaxe
expression. GetContactsFolder
Expressão Uma variável que representa um objeto AddressList .
Valor de retorno
Um objeto Folder que representa a pasta de contatos do Outlook para AddressList. Retorna Null (Nothing no Visual Basic) quando nenhuma pasta de contatos do Outlook é localizada.
Comentários
Esse método permite fazer a correspondência de um AddressList da pasta de contatos que você deseja configurar como a lista de endereços inicial na caixa de diálogo Selecionar nomes.
Exemplo
O exemplo de código a seguir mostra como inicializar a caixa de diálogo Selecionar nomes com AddressList da pasta de contatos padrão. Primeiro, ele obtém o objeto Folder para a pasta Contatos padrão e procura sua AddressList comparando a ID de entrada deste objeto Folder com a ID de Entrada do objeto Folder associado a cada AddressList na sessão atual até encontrar uma correspondência. Em seguida, ele define a propriedade InitialAddressList e exibe a caixa de diálogo Selecionar nomes.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.