Note: The other languages of the website are Google-translated. Back to English
English English

Como contar os membros da lista de distribuição no Outlook?

No Outlook, não há nenhum recurso para você contar os membros da lista de distribuição diretamente. Se você tem uma lista de distribuição com grande quantidade de endereços de e-mail, como saber quantos membros estão incluídos neste grupo? Com este artigo, você aprenderá como contar os membros da lista de distribuição usando o código VBA.

Contar membros da lista de distribuição no Outlook com código VBA

Crie e salve um código VBA

Adicione um botão para a macro à barra de ferramentas de acesso rápido

Execute o código VBA

Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2010-2019 e 365. Full features 60-day free trial.

seta azul bolha direitaContar membros da lista de distribuição no Outlook com código VBA

Você pode usar o código VBA para contar os membros da lista de distribuição da seguinte maneira.

Crie e salve um código VBA

1. Abra a Microsoft Visual Basic para Aplicações janela pressionando o outro + F11 teclas do teclado ao mesmo tempo.

2. Clique inserção > Módulo. Veja a imagem:

3. Em seguida, copie e cole o seguinte código VBA no Projeto Vba janela.

VBA: contar membros da lista de distribuição no Outlook

Sub CountDLMembers()
    Dim oOL As Outlook.Application
    Dim oSelection As Outlook.Selection
    Dim oItem As Object
    Dim olDL As Outlook.DistListItem
    Dim Result As String
    Set oOL = Outlook.Application
    'Check and get the selected Contact Group
    Select Case TypeName(oOL.ActiveWindow)
        Case "Explorer"
            Set oSelection = oOL.ActiveExplorer.Selection
            If oSelection.Count > 0 Then
                Set oItem = oSelection.Item(1)
            Else
                Result = MsgBox("No item selected. " & _
                            "Please select a Contact Group first.", _
                            vbCritical, "CountDLMembers")
                Exit Sub
            End If
        Case "Inspector"
            Set oItem = oOL.ActiveInspector.CurrentItem
        Case Else
            Result = MsgBox("Unsupported Window type." & _
                        vbNewLine & "Please make a selection" & _
                        "in the Calendar or open a Contact Group first.", _
                        vbCritical, "CountDLMembers")
            Exit Sub
    End Select
    If oItem.Class = Outlook.olDistributionList Then
        'Display the member count
        Set olDL = oItem        
        Result = MsgBox("The Contact Group '" & olDL.DLName & "' contains " & olDL.MemberCount & " members.", vbInformation, "CountDLMembers")
    Else
        'Selected item isn't a Contact Group item
        Result = MsgBox("No Contact Group item selected. " & _
                    "Please make a selection first.", _
                    vbCritical, "CountDLMembers")
        Exit Sub
    End If
    'Cleanup
    Set oOL = Nothing
    Set olDL = Nothing
End Sub

4. Em seguida, clique no Salvar botão para salvá-lo.

5. Feche o Microsoft Visual Basic para Aplicações janela.

Adicione um botão para a macro à barra de ferramentas de acesso rápido

1. Vá para a Contatos or Pessoas visualizar clicando no Contatos or Pessoas no Painel de Navegação.

2. No Outlook 2010 e 2013, clique com o botão direito no Barra de Ferramentas de Acesso Rápido e clique em Personalize a barra de ferramentas de acesso rápido no menu do botão direito. Veja a imagem:

Nota: No Outlook 2007, abra uma lista de distribuição e clique com o botão direito do mouse no Barra de Ferramentas de Acesso Rápido para selecionar o Barra de Ferramentas de Acesso Rápido no menu do botão direito.

3. No Opções do Outlook caixa de diálogo, você precisa:

1). Certifique-se de que você está localizando no Barra de Ferramentas de Acesso Rápido seção;

2). Selecione Macros no Escolha comandos de lista suspensa;

3). Selecione as macros no separador caixa;

4). Clique no Adicionar botão;

5). E finalmente clique no OK botão. Veja a imagem:

4. Então você pode ver que o botão para a macro é adicionado no Barra de Ferramentas de Acesso Rápido.

Execute o código VBA

Após adicionar o botão para a macro na Barra de Ferramentas de Acesso Rápido, agora você pode executar o código VBA para contar os membros da lista de distribuição.

1. No Outlook 2010 e 2013, você pode apenas selecionar uma lista de distribuição e, em seguida, clicar no botão da macro no Qbarra de ferramentas de acesso ao uick..

Nota: No Outlook 2007, você precisa abrir uma lista de distribuição e clicar no botão da macro no Barra de Ferramentas de Acesso Rápido.

2. Em seguida, uma caixa de aviso aparecerá para lhe dizer quantos membros estão contidos nesta lista de distribuição. Em seguida, clique no OK.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
O método alternativo é: criar uma mensagem fictícia com a lista expandir a lista selecionar todas as cópias para o Word localizar e substituir: "; " com "^p" [ou qualquer coisa!] caixa de diálogo mostra o número de substituições adicione 1 a esse número
Este comentário foi feito pelo moderador no site
Gostaria que houvesse uma maneira mais fácil de descobrir quantos endereços em um grupo de contatos, mas como não existe, esse é o melhor método que já vi. Obrigada!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos