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

Como contar e-mails por categoria no Outlook?

Você pode ter destacado e-mails com categorias de cores no Outlook. Mas, você sabe contar e-mails por categorias? Este artigo compartilhará duas soluções:

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 que
    100
    recursos avançados irão resolva a maioria dos seus problemas no Outlook
    2010-2019 e 365
    . Recursos completos
    60
    -dia de avaliação gratuita.

seta azul bolha direita Conte e-mails por categoria no Outlook com o recurso Pesquisa Instantânea

Este método irá guiá-lo para descobrir todos os e-mails marcados com as categorias de cores especificadas pelo Pesquisa Instantânea recurso e obter facilmente o número total de todos os resultados da pesquisa no Barra de status.

1. No Mail visualizar, pressione Ctrl + E simultaneamente para ativar o Ferramentas de busca.

2. Clique Procurar > Categorizadose, em seguida, selecione a categoria de cor especificada pela qual você contará os e-mails.

3. Agora, todos os emails marcados com a categoria de cor especificada são encontrados e listados na lista de emails. E você pode obter facilmente o número total de todos os resultados da pesquisa na barra de status. Veja a imagem:

notas:

(1) Para contar e-mails marcados com Categoria amarela e Categoria laranja simultaneamente, digite os critérios de pesquisa categoria: = "Categoria amarela" AND "Categoria laranja" no Pesquisa Instantânea caixa diretamente:

(2) Para contar e-mails marcados com Categoria amarela or Categoria laranja simultaneamente, digite os critérios de pesquisa categoria: = "Categoria amarela" OU "Categoria laranja" no Pesquisa Instantânea caixa diretamente.


seta azul bolha direita Contar e-mails por categoria no Outlook com VBA

Este método apresentará um VBA para contar e-mails por categoria em um intervalo de datas personalizado no Outlook. Faça o seguinte:

1. No Mail visualizar, selecione a pasta de e-mail na qual contará os e-mails.

2. Pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

3. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela do Módulo de abertura:

VBA: contar e-mails por categoria no Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. aperte o F5 ou clique no botão Executar para executar este VBA.

5. (1) Na primeira caixa de diálogo do Microsoft Outlook que aparece, digite a data de início do intervalo de datas personalizado no qual contará os e-mails e clique no botão OK botão. (2) Na segunda caixa de diálogo do Microsoft Outlook, digite a data de término e clique no botão OK botão. Veja as capturas de tela:

E agora uma caixa de diálogo aparece e exibe o número de e-mails marcados com categorias de cores. Veja a imagem:


seta azul bolha direitaArtigos Relacionados


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 (17)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso é perfeito, mas como posso alterar o VBA para incluir subpastas da pasta atual na contagem?
Este comentário foi feito pelo moderador no site
Oi Obrigado, funciona perfeitamente, apenas uma consulta rápida - Podemos obter os resultados do Msgbox para serem exibidos no Excel, pois sempre que eu quiser executar a macro, ela deve ser exibida no Excel.
cada vez um abaixo dos resultados anteriores.
Este comentário foi feito pelo moderador no site
Isso seria ótimo!
Este comentário foi feito pelo moderador no site
Oi , obrigado funcionou perfeitamente para o mês de junho, mas quando eu executo isso para julho, ele mostra apenas o número total de e-mails ... alguma idéia?
Este comentário foi feito pelo moderador no site
existe uma maneira de converter isso em uma tabela do Excel?
Este comentário foi feito pelo moderador no site
Olá Dylan,
O código VBA abaixo colocará os resultados da contagem em uma nova pasta de trabalho do Excel.
Para sua informação, habilite a referência de “Microsoft Excel 16.0 Object Library” antes de executar o VBA.
SubcategoriasE-mails()
Dim xFolder como MAPIFolder
Dim xDict como objeto
Dim xStartDate como string, xEndDate como string
Dim xItems As Outlook.Items
Dim xStr como string, xMsg como string
Dim xExlApp como objeto
Dim xWb como pasta de trabalho, xWs como planilha
Dim I como inteiro
On Error Resume Next
Set xExlApp = CreateObject("Excel.Application")
Definir xWb = xExlApp.Workbooks.Add
Definir xWs = xWb.Sheets.Item(1)
Definir xFolder = Application.ActiveExplorer.CurrentFolder
Set xDict = CreateObject("Scripting.Dictionary")
xStartDate = InputBox("Digite a data de início (formato MM/DD/AAAA)")
xEndDate = InputBox("Digite a data final (formato MM/DD/AAAA)")
Set xItems = xFolder.Items.Restrict("[ReceivedTime] >= '" & xStartDate & "' And [ReceivedTime] <= '" & xEndDate & "'")
'xItems.SetColumns ("Categorias")
Para cada xItem em xItems
xStr = xItem.Categorias
Se Não xDict.Exists(xStr) Então
xDict(xStr) = 0
Se acabar
xDict(xStr) = CLng(xDict(xStr)) + 1
Próximo xItem
xMsg = ""
xWs.Range("A1", "B1").Font.Bold = True
Com xWs.Range("A1", "B1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Falso
.Orientação = 0
.AddIndent = Falso
.IndentLevel = 0
.ShrinkToFit = Falso
.ReadingOrder = xlContext
.MergeCells = Falso
Terminar com
xWs.Cells(1, 1) = "Categorias"
xWs.Cells(1, 2) = "Contagem"
I = 2
Para cada xKey em xDict.Keys
Se xKey <> "" Então
xWs.Cells(I, 1) = xKey
xWs.Cells(I, 2) = xDict(xKey)
eu = eu + 1
Se acabar
Seguinte
xWs.Range("A1", "B" + CStr(I)).Columns.AutoFit
xExlApp.Visible = Verdadeiro
Definir xFolder = Nada
End Sub
Este comentário foi feito pelo moderador no site
Isso foi útil para mim também, muito obrigado por compartilhar!
Este comentário foi feito pelo moderador no site
Sei que o tópico é antigo, mas se alguém puder ajudar, agradeço muito. Ao executar o código estou recebendo um erro de compilação "Tipo definido pelo usuário não definido" para a 8ª linha "Dim xWB As Workbook, xWs As Worksheet"
Este comentário foi feito pelo moderador no site
Hi
Você conseguiu resolver isso?
Eu tenho o mesmo problema
Alternativa?
Simplesmente exclua a linha: Dim xWb As Workbook, xWs As Worksheet
Este comentário foi feito pelo moderador no site
Você pode adicionar uma maneira de dividir as colunas de contagem por dia? Então eu poderia correr um mês inteiro e então ter contagens divididas por dia.
Este comentário foi feito pelo moderador no site
Olá Hanna,

Tente o código abaixo:

SubcategoriasE-mails()
Dim oFolder como MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String
Dim xStr, xStrDate, xStrDate_D como string
Dim xArr como variante
Dim xNum como inteiro
Dim xRlt As String
On Error Resume Next
Definir oFolder = Application.ActiveExplorer.CurrentFolder
xNúm = 0
Set oDict = CreateObject("Scripting.Dictionary")
sStartDate = InputBox("Digite a data de início (formato MM/DD/AAAA)")
sEndDate = InputBox("Digite a data final (formato MM/DD/AAAA)")
Set oItems = oFolder.Items.Restrict("[ReceivedTime] >= '" & sStartDate & "' And [ReceivedTime] <= '" & sEndDate & "'")
oItems.SetColumns ("ReceivedTime")
xStrDate_D = ""
xRlt = ""
Para cada aitem em oItems
xStr = aitem.ReceivedTime
If Trim(xStr) <> "" Então
xArr = Split(xStr, " ")
xStrData = xArr(0)
Se xStrDate_D = "" Então
xStrDate_D = xStrDate
xNúm = 1
Outro
If xStrDate <> "" Então
Se xStrDate = xStrDate_D Então
xNum = xNum + 1
Outro
Se xRlt = "" Então
xRlt = xStrDate_D & ":" & xNum
Outro
xRlt = xRlt & vbCrLf & xStrDate_D & ":" & xNum
Se acabar
xStrDate_D = xStrDate
xNúm = 1
Se acabar
Se acabar
Se acabar
Se acabar
Seguinte
Se xRlt <> "" Então
MsgBox xRlt
Outro
MsgBox "Nenhum dado encontrado."
Se acabar
End Sub
Além disso, para mais análises estatísticas, acesse a guia Kutools Plus > Estatísticas se você instalou o Kutools for Outlook. Se não, por favorextendoffice.com/download/kutools-for-outlook.html">clique aqui para baixar e obter uma trilha de 30 dias gratuitamente.
Amanda
Este comentário foi feito pelo moderador no site
Muito obrigado pela sua ajuda!! Acho que não fui suficientemente claro na minha pergunta inicial. Existe uma maneira de dividi-lo por categoria e depois dar uma contagem por dia? Então a Categoria X seria dividida por contagem em colunas de data?
Este comentário foi feito pelo moderador no site
Oi pessoal,
Para que o código acima seja executado corretamente, primeiro habilite a referência de “Microsoft Excel 16.0 Object Library”.
Para isso, faça o seguinte: 1. No seu Outlook, vá para a guia Desenvolvedor > Visual Basic.2. Na janela pop-up, clique em Ferramentas.3. Na caixa de diálogo pop-up, verifique Biblioteca de objetos do Microsoft Excel 16.0, então clique OK, veja a captura de tela.
Observe que o 16.0 indica o número da versão, portanto, se não for o mesmo na sua caixa de diálogo, não importa. No entanto, se você não encontrar o Biblioteca de objetos do Microsoft Excel (número da versão), certifique-se de ter o Excel instalado em seu computador.
Depois de habilitar a referência, use o código acima.
Se você tiver mais alguma dúvida, não hesite em me informar.
Amanda
Este comentário foi feito pelo moderador no site
Olá, existe a possibilidade de contar letras marcadas com categorias se em uma letra temos poucos casos e eles devem ser contados: por exemplo categoria verde - 1 letra com 3 casos dentro = 3 casos de categoria verde ?


Obrigada
Este comentário foi feito pelo moderador no site
Oi,
Em vez de calcular apenas a partir da pasta selecionada, existe uma maneira de incluir todas as subpastas também?
Este comentário foi feito pelo moderador no site
Hi
Você conseguiu resolver isso?
Eu gostaria de contar em subpastas para.
Este comentário foi feito pelo moderador no site
O número total de e-mails costumava aparecer ao lado do Nome da categoria. Alguém sabe como configurar isso?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL