Метод DistListItem.GetMember (Outlook)

Статья
04/07/2023

Возвращает объект Recipient , представляющий член в списке рассылки.

Синтаксис

выражение. GetMember (Индекс)

Выражение Переменная, представляющая объект DistListItem .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Long	Номер индекса извлекаемого элемента.

Возвращаемое значение

Объект Recipient , представляющий указанный элемент.

Пример

Этот пример Microsoft Visual Basic для приложений (VBA) находит каждый список рассылки в папке контактов по умолчанию и определяет, содержит ли список текущего пользователя.

Sub DisplayYourDLNames() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myDistList As Outlook.DistListItem 
 
 Dim myFolderItems As Outlook.Items 
 
 Dim x As Integer 
 
 Dim y As Integer 
 
 Dim iCount As Integer 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) 
 
 Set myFolderItems = myFolder.Items 
 
 iCount = myFolderItems.Count 
 
 For x = 1 To iCount 
 
 If TypeName(myFolderItems.Item(x)) = "DistListItem" Then 
 
 Set myDistList = myFolderItems.Item(x) 
 
 For y = 1 To myDistList.MemberCount 
 
 If myDistList.GetMember(y).Name = myNameSpace.CurrentUser.Name Then 
 
 MsgBox "Your are a member of " & myDistList.DLName 
 
 End If 
 
 Next y 
 
 End If 
 
 Next x 
 
End Sub

См. также

Объект DistListItem

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

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

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