Partager via

Afficher une boîte de dialogue pour sélectionner des entrées dans le dossier Contacts

  • Article

Cette rubrique explique comment utiliser l’objet SelectNamesDialog pour afficher les entrées du dossier Contacts dans une boîte de dialogue qui ressemble à la boîte de dialogue Sélectionner des noms dans l’interface utilisateur d’Outlook.

  1. Recherchez la liste d’adresses qui correspond au dossier Contacts. L’objet SelectNamesDialog affiche des entiers dans une boîte de dialogue basée sur une liste d’adresses. Pour afficher les entrées du dossier Contacts, recherchez l'objet AddressList correspondant au dossier Contacts. Effectuez une itération dans toutes les listes d’adresses définies pour la session active et, pour chaque liste d’adresses, utilisez AddressList.GetContactsFolder pour faire correspondre le dossier correspondant au dossier Contacts.

  2. Initialisez la boîte de dialogue avec la liste d'adresses du dossier Contacts.

  3. Utilisez SelectNamesDialog.Display pour afficher la boîte de dialogue. Si SelectNamesDialog.Display renvoie la valeur True, les entrées sélectionnées sont disponibles dans SelectNamesDialog.Recipients.

Sub ShowContactsInDialog() 
 Dim oDialog As SelectNamesDialog 
 Dim oAL As AddressList 
 Dim oContacts As Folder 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 Set oContacts = _ 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 'Look for the address list that corresponds with the Contacts folder 
 For Each oAL In Application.Session.AddressLists 
 If oAL.GetContactsFolder = oContacts Then 
 Exit For 
 End If 
 Next 
 With oDialog 
 'Initialize the dialog box with the address list representing the Contacts folder 
 .InitialAddressList = oAL 
 .ShowOnlyInitialAddressList = True 
 If .Display Then 
 'Recipients Resolved 
 'Access Recipients using oDialog.Recipients 
 End If 
 End With 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.