Método DistListItem.RemoveMembers (Outlook)

Quita miembros de una lista de distribución.

Sintaxis

expresión. RemoveMembers( _Recipients_ )

expresión Variable que representa un objeto DistListItem .

Parameters

Ejemplo

El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se quitan dos miembros de la lista de distribución denominada lista de grupo. El método RemoveMembers se producirá un error si los destinatarios especificados no son válidos. Antes de ejecutar el ejemplo, cree o asegúrese de que existe una lista de distribución denominada 'Group List' en la carpeta Contactos predeterminada.

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

Vea también

Objeto DistListItem

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.