Método DistListItem.RemoveMembers (Outlook)

Remove membros de uma lista de distribuição.

Sintaxe

expression. RemoveMembers( _Recipients_ )

Expressão Uma variável que representa um objeto DistListItem .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Destinatários	Obrigatório	Recipients	Os membros a serem removidos da lista de distribuição.

Exemplo

Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) remove dois membros da lista de distribuição chamada lista de grupo. O método RemoveMembers falhará se os destinatários especificados não são válidos. Antes de executar o exemplo, crie ou certificar-se de que uma lista de distribuição chamada 'Grupo lista' existe na pasta padrão Contatos.

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

Confira também

Objeto DistListItem

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.