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
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.