Propriété SelectNamesDialog.ShowOnlyInitialAddressList (Outlook)
Renvoie ou définit une valeur de type Boolean qui détermine si l’objet AddressList représenté par la propriété SelectNamesDialog.InitialAddressList est le seul objet AddressList disponible dans la liste déroulante associée à Carnet d’adresses dans la boîte de dialogue Sélectionner des noms. Lecture-écriture.
Syntaxe
expression. ShowOnlyInitialAddressList
Expression Variable qui représente un objet SelectNamesDialog .
Remarques
La valeur par défaut de cette propriété est False, ce qui signifie que toutes les listes d’adresses sont affichées. Pour que la liste déroulante associée à Carnet d’adresses se limite à celle indiquée par InitialAddressList, attribuez à ShowOnlyInitialAddressList la valeur True.
Si vous ne définissez pas la propriété InitialAddressList, puis définissez ShowOnlyInitialAddressList sur True, la propriété AddressList avec AddressList.IsInitialAddressList égale à True sera la seule liste d’adresses disponible dans la liste déroulante du carnet d’adresses.
Exemple
L’exemple de code suivant montre comment utiliser IsInitialAddressList et ShowOnlyInitialAddressList pour que la boîte de dialogue Sélectionner des noms affiche toujours uniquement la liste d’adresses dans le dossier Contacts par défaut, quel que soit le paramètre de l’utilisateur pour la liste d’adresses initiale.
Sub ShowOnlyContacts()
Dim oMsg As MailItem
Set oMsg = Application.CreateItem(olMailItem)
Dim oDialog As SelectNamesDialog
Set oDialog = Application.Session.GetSelectNamesDialog
Dim oContacts As Folder
Set oContacts = _
Application.Session.GetDefaultFolder(olFolderContacts)
Dim oAL As AddressList
For Each oAL In Application.Session.AddressLists
If oAL.GetContactsFolder = oContacts Then
Exit For
End If
Next
With oDialog
.InitialAddressList = oAL
.ShowOnlyInitialAddressList = True
.Recipients = oMsg.Recipients
If .Display Then
'Recipients Resolved
End If
End With
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.