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