Partager via


Méthode DistListItem.GetMember (Outlook)

Renvoie un objet Recipient représentant un membre dans une liste de distribution.

Syntaxe

expression. GetMember (Index)

Expression Variable qui représente un objet DistListItem .

Parameters

Nom Requis/Facultatif Type de données Description
Index Obligatoire Long Numéro d'index du membre à extraire.

Valeur renvoyée

Objet Recipient représentant le membre spécifié.

Exemple

Cet exemple Microsoft Visual Basic pour Applications (VBA) montre comment localiser les listes de distribution contenues dans le dossier Contacts par défaut et comment déterminer si la liste contient l’utilisateur actif.

Sub DisplayYourDLNames() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myDistList As Outlook.DistListItem 
 
 Dim myFolderItems As Outlook.Items 
 
 Dim x As Integer 
 
 Dim y As Integer 
 
 Dim iCount As Integer 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) 
 
 Set myFolderItems = myFolder.Items 
 
 iCount = myFolderItems.Count 
 
 For x = 1 To iCount 
 
 If TypeName(myFolderItems.Item(x)) = "DistListItem" Then 
 
 Set myDistList = myFolderItems.Item(x) 
 
 For y = 1 To myDistList.MemberCount 
 
 If myDistList.GetMember(y).Name = myNameSpace.CurrentUser.Name Then 
 
 MsgBox "Your are a member of " & myDistList.DLName 
 
 End If 
 
 Next y 
 
 End If 
 
 Next x 
 
End Sub

Voir aussi

DistListItem, 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.