Outlook VBA教程:MemberCount属性

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

expression.MemberCount

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

说明

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

VBA示例

本 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

上页:Outlook VBA教程:MeetingStatus属性 下页:Outlook VBA教程:Members属性

Outlook VBA教程:MemberCount属性:相关链接

Outlook VBA教程:Members属性 Outlook VBA教程:MessageClass属性
Outlook VBA教程:MiddleName属性 Outlook VBA教程:Mileage属性
Outlook VBA教程:MiniIcon属性 Outlook VBA教程:MobileTelephoneNumber属性
Outlook VBA教程:ModifiedFormPages属性 Outlook VBA教程:MonthOfYear属性
Outlook VBA教程:Name属性 Outlook VBA教程:NetMeetingAlias属性
Outlook VBA教程:NetMeetingAutoStart属性 Outlook VBA教程:NetMeetingDocPathName属性
Outlook VBA教程:NetMeetingOrganizerAlias属性 Outlook VBA教程:NetMeetingServer属性
Outlook VBA教程:NetMeetingType属性 Outlook VBA教程:NetShowURL属性
Outlook VBA教程:NextReminderDate属性 Outlook VBA教程:NickName属性
Outlook VBA教程:NoAging属性 Outlook VBA教程:NoEndDate属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号