Метод DistListItem.RemoveMembers (Outlook)
Удаляет участников из списка рассылки.
Синтаксис
выражение. RemoveMembers
( _Recipients_
)
Выражение Переменная, представляющая объект DistListItem .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Получатели | Обязательный | Получатели | Элементы, которые будут удалены из списка рассылки. |
Пример
В следующем примере Microsoft Visual Basic для приложений (VBA) два участника удаляются из списка рассылки с именем Group List. Метод RemoveMembers завершится ошибкой, если указанные получатели недопустимы. Перед выполнением примера создайте или убедитесь, что список рассылки с именем "Список групп" существует в папке "Контакты" по умолчанию.
Sub RemoveRecs()
'Remove a recipient from the list and displays new list.
Dim objDstList As Outlook.DistListItem
Dim objName As Outlook.NameSpace
Dim objRcpnt As Outlook.Recipient
Dim objRcpnt2 As Outlook.Recipient
Dim objMail As Outlook.MailItem
Dim objRcpnts As Outlook.Recipients
Set objName = Application.GetNamespace("MAPI")
Set objDstList = objName.GetDefaultFolder(olFolderContacts).Items("Group List")
Set objMail = Application.CreateItem(olMailItem)
Set objRcpnts = objMail.Recipients
Set objRcpnt = objRcpnts.Add(Name:="someone@example.com")
Set objRcpnt2 = objRcpnts.Add(Name:="someone@example.org")
objRcpnts.ResolveAll
objDstList.RemoveMembers objRcpnts
objDstList.Display
objDstList.Body = "Last Modified: " & Now
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.