Свойство DistListItem.MemberCount (Outlook)

Статья
04/07/2023

Возвращает значение 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

См. также

Объект DistListItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через