Свойство DistListItem.MemberCount (Outlook)
Возвращает значение Long , указывающее количество членов в списке рассылки. Только для чтения.
Синтаксис
выражение. MemberCount
Выражение Переменная, представляющая объект DistListItem .
Замечания
Возвращаемое значение представляет все члены списка рассылки, включая списки рассылки членов. Каждый список рассылки элементов считается одним членом. То есть MemberCount не является совокупной суммой получателей в списке рассылки и получателей в списках рассылки участников. Например, если список рассылки содержит 10 получателей и один список рассылки, содержащий 15 получателей, MemberCount возвращает 11.
Пример
В этом примере microsoft Visual Basic для приложений шаги через папку Контакты по умолчанию, и если он находит список рассылки с более чем 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.