DistListItem.RemoveMembers 方法 (Outlook)
从通讯组列表中删除成员。
语法
expression。 RemoveMembers( _Recipients_ )
表达 一个代表 DistListItem 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| 收件人 | 必需 | Recipients | 要从通讯组列表中删除的成员。 |
示例
(VBA) 示例下面的 Microsoft Visual Basic for Applications 称为组列表的通讯组列表中删除两个成员。 如果指定的收件人无效， RemoveMembers 方法将失败。 运行此示例之前，应先创建或请确保默认联系人文件夹中存在名为 Group List 的通讯组列表。
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。