从指定通讯组列表删除成员。
expression.RemoveMember(Recipient)
expression 必选。该表达式返回 DistListItem 对象。
Recipient 必选,Recipient 类型。要从通讯组列表删除的收件人。
以下示例将某个成员从名为“Group List”的通讯组列表删除。如果指定收件人无效,RemoveMember 方法将执行失败。
Sub RemoveRec()
'Remove a recipient from the list and displays new list.
Dim olApp As Outlook.Application
Dim objDstList As DistListItem
Dim objName As NameSpace
Dim objRcpnt As Recipient
Dim objMail As MailItem
Set olApp = Outlook.Application
Set objName = olApp.GetNamespace("MAPI")
Set objDstList = objName.GetDefaultFolder(olFolderContacts).Items("Group List")
Set objMail = olApp.CreateItem(olMailItem)
Set objRcpnt = objMail.Recipients.Add(Name:="Jeff Smith")
objDstList.RemoveMember Recipient:=objRcpnt
objDstList.Display
objDstList.Body = "Last Modified: " & Now
End Sub