MemberCount 属性

       

返回通讯组列表中成员的数目。Long 类型,只读。

expression.MemberCount

expression  必选。该表达式返回 DistListItem 对象。

说明

该返回值代表此通讯组列表中的所有成员,包括成员通讯组列表。每个成员通讯组列表将作为单个成员计算。也就是说,MemberCount 并非通讯组列表中与成员通讯组列表中的收件人之和。例如,如果通讯组列表包含 10 个收件人,还有一个包含 15 个收件人的通讯组列表,那么 MemberCount 将返回 11。

示例

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

Dim myOlApp As New Outlook.Application
Dim myOlFolder As Outlook.MAPIFolder
Dim myOlItems As Outlook.Items
Dim myOlDistList As Outlook.DistListItem
Set myOlFolder = myOlApp.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

如果使用 VBScript,则不创建 Application 对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

Set myOlFolder = _
    Application.GetNamespace("MAPI").GetDefaultFolder(10)
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