Propriété SelectNamesDialog.InitialAddressList (Outlook)
Renvoie ou définit un objet AddressList qui détermine la liste d’adresses initiale à afficher dans la boîte de dialogue Sélectionner des noms . Lecture-écriture.
Syntaxe
expression. InitialAddressList
Expression Variable qui représente un objet SelectNamesDialog .
Remarques
La définition de la propriété InitialAddressList équivaut par programmation à sélectionner une addressList dans la liste déroulante du carnet d’adresses dans la boîte de dialogue Sélectionner des noms .
Dans son état par défaut, InitialAddressList correspond à l’objet AddressList avec la propriété AddressList.IsInitialAddressList définie sur True. IsInitialAddressList correspond au paramètre Afficher cette liste d’adresses d’abord de la boîte de dialogue Adressage, qui est accessible en cliquant sur Outils, puis sur Options dans la boîte de dialogue Carnet d’adresses.
Exemple
L’exemple de code suivant montre comment utiliser InitialAddressList et SelectNamesDialog.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.