Às vezes, você pode querer calcular o número total de destinatários em um e-mail específico. Mas o Outlook não tem nenhuma função óbvia de “contagem” para apoiá-lo. Portanto, este artigo apresentará 2 abordagens para alcançá-lo.
Em algumas situações, por exemplo, quando você adicionou uma grande quantidade de destinatários a um e-mail e acha difícil gerenciá-los, você gostaria de obter o número total desses destinatários. Mas o Outlook não tem um suporte nativo ou padrão para contar. Assim, você tem que fazer alguns esforços extras para alcançá-lo. Aqui vamos dizer-lhe 2 métodos.
Método 1: contar o número de destinatários por meio do grupo de contatos
- Para começar, você deve selecionar todos os destinatários nos campos "Para", "CC" e "BCC" e copiá-los para o espaço em branco no corpo da mensagem.
- Em seguida, selecione todos os destinatários no corpo e copie-os também.
- Em seguida, vá para o painel de contatos do Outlook e clique em “Novo grupo de contatos”. Na janela pop-up, defina o nome como “Temp” e, em seguida, clique em “Adicionar membros” e selecione “Do catálogo de endereços” na lista suspensa.
- Posteriormente, cole os destinatários copiados anteriormente no campo “Membro ->”, conforme a imagem a seguir:
- Depois disso, clique no botão “OK” e volte para o Grupo de Contatos. Todas as duplicatas serão removidas automaticamente. Agora salve-o no disco local como arquivo “Texto”.
- Posteriormente, abra o arquivo de texto e remova o cabeçalho inútil, conforme a imagem abaixo:
- Finalmente, você pode colocar o cursor na última linha. Você verá o número total de linhas na barra de status. Esse é o número total de destinatários.
Método 2: Conte o número de destinatários com o Outlook VBA
- Primeiramente, pressione as teclas “Alt + F11” para acessar a janela “Visual Basic”.
- Em seguida, copie e cole os seguintes códigos VBA em um novo módulo.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Depois disso, você pode sair da janela “Visual Basic” e adicionar a nova macro à Barra de Ferramentas de Acesso Rápido da janela principal do Outlook e da janela de mensagens.
- Eventualmente, você pode tentar:
- Ao selecionar um e-mail e clicar no botão na Barra de Ferramentas de Acesso Rápido, você receberá uma mensagem como a imagem a seguir:
- Ao abrir um e-mail e clicar no botão, você obterá uma caixa de diálogo, conforme a imagem abaixo:
Nota: Este método tratará um grupo de contatos como um destinatário e não ignorará os destinatários duplicados.
Combate contra macros perigosas
Como todos sabemos, os vírus transmitidos por e-mail são uma das ameaças mais comuns aos dados. Portanto, é fundamental configurar o Outlook para habilitar apenas as macros com assinatura digital, que podem bloquear vírus e malware. Além disso, é altamente recomendável manter um backup robusto do Outlook. utilitário de reparo de arquivo corrompido do Outlook, como DataNumen Outlook Repair. Ele será útil quando seu Outlook sofrer infecção por vírus ou ataque de malware.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar erro de dados SQL mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com