Метод 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.