RemoveMembers Method

Microsoft Outlook Visual Basic

Removes members from a distribution list.

expression.RemoveMembers(Recipients)

expression    Required. An expression that returns a DistListItem object.

Recipients    Required Recipients. The members to be removed from the distribution list.

Example

The following Microsoft Visual Basic/Visual Basic for Applications (VBA) example removes two members from the distribution list called Group List. The RemoveMembers method will fail if the specified recipients are not valid. Before running the example, create or make sure a distribution list called 'Group List' exists in your default Contacts folder.

Sub RemoveRecs()
'Remove a recipient from the list and displays new list.

    Dim olApp As Outlook.Application
    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 olApp = New Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objDstList = objName.GetDefaultFolder(olFolderContacts).Items("Group List")
    Set objMail = olApp.CreateItem(olMailItem)
    Set objRcpnts = objMail.Recipients
    Set objRcpnt = objRcpnts.Add(Name:="[email protected]")
    Set objRcpnt2 = objRcpnts.Add(Name:="[email protected]")
    objRcpnts.ResolveAll
    objDstList.RemoveMembers objRcpnts
    objDstList.Display
    objDstList.Body = "Last Modified: " & Now

End Sub