Méthode AddressList.GetContactsFolder (Outlook)
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
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.