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


Метод DistListItem.AddMembers (Outlook)

Добавляет новых участников в список рассылки.

Синтаксис

выражение. AddMembers( _Recipients_ )

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
Получатели Обязательный Получатели Участники, добавляемые в список рассылки.

Пример

Этот пример Microsoft Visual Basic для приложений (VBA) создает новый список рассылки и добавляет в список текущего пользователя и Дэна Уилсона. Если указанный получатель недопустим, метод AddMember завершится ошибкой . Поэтому, чтобы выполнить этот пример, замените "Dan Wilson" допустимым именем получателя.

Sub AddNewMembers() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myDistList As Outlook.DistListItem 
 
 Dim myTempItem As Outlook.MailItem 
 
 Dim myRecipients As Outlook.Recipients 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI 
 
 Set myDistList = Application.CreateItem(olDistributionListItem 
 
 Set myTempItem = Application.CreateItem(olMailItem 
 
 Set myRecipients = myTempItem.Recipients 
 
 myDistList.DLName = _ 
 
 InputBox("Enter the name of the new distribution list 
 
 myRecipients.Add myNameSpace.CurrentUser.Name 
 
 myRecipients.Add "Dan Wilson 
 
 myRecipients.ResolveAll 
 
 myDistList.AddMembers myRecipients 
 
 myDistList.Save 
 
 myDistList.Display 
 
End Sub

См. также

Объект DistListItem

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

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