Méthode AddressList.GetContactsFolder (Outlook)

  • Article

Obtient un objet Folder qui représente le dossier Contacts de l’objet AddressList .

Syntaxe

expression. GetContactsFolder

Expression Variable qui représente un objet AddressList .

Valeur renvoyée

Un objet Folder qui représente le dossier Contacts d'Outlook pour l'objet AddressList. Renvoie la valeur Null (Nothing dans Visual Basic) si aucun dossier de contacts Outlook n'est trouvé.

Remarques

Cette méthode permet de trouver un objet AddressList correspondant au dossier Contacts que vous souhaitez configurer comme liste d'adresses initiale dans la boîte de dialogue Choisir des noms.

Exemple

L'exemple de code suivant montre comment initialiser la boîte de dialogue Choisir des noms avec l'objet AddressList pour le dossier Contacts par défaut. Il obtient d’abord l’objet Folder pour le dossier Contacts par défaut, puis recherche son AddressList en comparant l’ID d’entrée de cet objet Folder à l’ID d’entrée de l’objet Folder associé à chaque AddressList dans la session active jusqu’à ce qu’il trouve une correspondance. Il définit ensuite la propriété InitialAddressList et affiche la boîte de dialogue Sélectionner des noms .

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

Voir aussi

AddressList, objet

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.