通过

DistListItem.MemberCount 属性 (Outlook)

  • 项目

返回 Long 值，表明在通讯组列表中成员的数目。 此为只读属性。

语法

expression。 MemberCount

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

备注

返回的值表示包括成员通讯组列表的通讯组列表中的所有成员。 每个成员的通讯组列表被视为单个成员。 也就是说， 那么 membercount 将 不是收件人的通讯组列表成员通讯组列表中的收件人的聚合总和。 例如，如果通讯组列表包含 10 个收件人外加包含 15 个收件人一个通讯组列表， 那么 MemberCount 将返回 11。

示例

本 Microsoft Visual Basic for Applications 示例遍历默认的“联系人”文件夹，如果找到成员数目多于 20 的通讯组列表，它将显示该项目。

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

另请参阅

DistListItem 对象

支持和反馈

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