Método DistListItem.AddMembers (Outlook)

Adiciona novos membros a uma lista de distribuição.

Sintaxe

expression. AddMembers( _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 adicionados à lista de distribuição.

Exemplo

Este Microsoft exemplo Visual Basic for Applications (VBA) cria uma nova lista de distribuição e adiciona o usuário atual e 'Dan Wilson' à lista. Se o destinatário especificado não for válido, o método AddMember falhará. Portanto, para executar esse exemplo, substitua 'Dan Wilson' por um nome válido do destinatário.

Sub AddNewMembers() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myDistList As Outlook.DistListItem 
 
 Dim myTempItem As Outlook.MailItem 
 
 Dim myRecipients As Outlook.Recipients 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI 
 
 Set myDistList = Application.CreateItem(olDistributionListItem 
 
 Set myTempItem = Application.CreateItem(olMailItem 
 
 Set myRecipients = myTempItem.Recipients 
 
 myDistList.DLName = _ 
 
 InputBox("Enter the name of the new distribution list 
 
 myRecipients.Add myNameSpace.CurrentUser.Name 
 
 myRecipients.Add "Dan Wilson 
 
 myRecipients.ResolveAll 
 
 myDistList.AddMembers myRecipients 
 
 myDistList.Save 
 
 myDistList.Display 
 
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.