返回通讯组列表中成员的数目。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