RemoveMember 方法

       

从指定通讯组列表删除成员。

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