Propriedade DistListItem.MemberCount (Outlook)

Retorna um Long que indica o número de membros em uma lista de distribuição. Somente leitura.

Sintaxe

expression. MemberCount

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

Comentários

O valor retornado representa todos os membros da lista de distribuição, incluindo listas de distribuição do membro. Cada lista de distribuição do membro é contada como um único membro. Ou seja, MemberCount não é uma soma agregada de destinatários na lista de distribuição, além de destinatários em listas de distribuição do membro. Por exemplo, se uma lista de distribuição contiver 10 destinatários e uma lista de distribuição contendo 15 destinatários, MemberCount retornará 11.

Exemplo

Este exemplo do Microsoft Visual Basic for Applications percorre a pasta padrão Contatos e, se localizar uma lista de distribuição com mais de 20 membros, exibe o item.

Sub CheckDLs() 
 
 Dim myOlFolder As Outlook.Folder 
 
 Dim myOlItems As Outlook.Items 
 
 Dim myOlDistList As Outlook.DistListItem 
 
 Dim x as Integer 
 
 
 
 Set myOlFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts) 
 
 Set myOlItems = myOlFolder.Items 
 
 For x = 1 To myOlItems.Count 
 
 If TypeName(myOlItems.Item(x)) = "DistListItem" Then 
 
 Set myOlDistList = myOlItems.Item(x) 
 
 If myOlDistList.MemberCount > 20 Then 
 
 MsgBox myOlDistList.DLName & " has more than 20 members." 
 
 myOlDistList.Display 
 
 End If 
 
 End If 
 
 Next x 
 
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.