通过

DistListItem.GetMember 方法 (Outlook)

  • 项目

返回一个代表通讯组列表中的成员的 收件人 对象。

语法

expression。 GetMember (索引)

表达 一个代表 DistListItem 对象的变量。

参数

名称 必需/可选 数据类型 说明
Index 必需 Long 要检索的成员的索引号。

返回值

表示指定的成员的 收件人 对象。

示例

本 Microsoft Visual Basic for Applications (VBA) 示例在默认的“联系人”文件夹中查找每个通讯组列表，并确定该列表是否包含当前用户。

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

另请参阅

DistListItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。