Propriété DistListItem.MemberCount (Outlook)
Renvoie une valeur de type Long qui indique le nombre de membres contenus dans une liste de distribution. En lecture seule.
Syntaxe
expression. MemberCount
Expression Variable qui représente un objet DistListItem .
Remarques
La valeur renvoyée représente tous les membres de la liste de distribution, y compris les listes de distribution de membres. Chaque liste de distribution de membres est comptée comme un membre. En d'autres termes, MemberCount ne constitue pas une somme des destinataires contenus dans la liste de distribution, auxquels sont ajoutés les destinataires contenus dans les listes de distribution de membres. Par exemple, si une liste de distribution contient 10 destinataires plus une liste de distribution contenant 15 destinataires, MemberCount renvoie la valeur 11.
Exemple
Cet exemple Microsoft Visual Basic pour Applications montre comment parcourir le dossier Contacts par défaut, et, si une liste de distribution contenant plus de 20 membres est trouvée, comment afficher l’élément correspondant.
Sub CheckDLs()
Dim myOlFolder As Outlook.Folder
Dim myOlItems As Outlook.Items
Dim myOlDistList As Outlook.DistListItem
Dim x as Integer
Set myOlFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
Set myOlItems = myOlFolder.Items
For x = 1 To myOlItems.Count
If TypeName(myOlItems.Item(x)) = "DistListItem" Then
Set myOlDistList = myOlItems.Item(x)
If myOlDistList.MemberCount > 20 Then
MsgBox myOlDistList.DLName & " has more than 20 members."
myOlDistList.Display
End If
End If
Next x
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.