Como contar e-mails por categoria no Outlook?

Contar e-mails por categoria no Outlook com o recurso Pesquisa Instantânea

Contar e-mails por categoria no Outlook com VBA

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

1. Na visualização de E-mail, pressione simultaneamente as teclas Ctrl + E para ativar as Ferramentas de Pesquisa.

2. Clique em Pesquisar > Categorizado, e então selecione a categoria de cor específica pela qual você deseja contar os e-mails.

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

Notas:

(1) Para contar e-mails marcados com a categoria Amarelo e a categoria Laranja simultaneamente, digite o critério de pesquisa categoria:="Categoria Amarela" AND "Categoria Laranja" diretamente na caixa de Pesquisa Instantânea:

(2) Para contar e-mails marcados com a categoria Amarelo ou a categoria Laranja simultaneamente, digite o critério de pesquisa categoria:="Categoria Amarela" OR "Categoria Laranja" diretamente na caixa de Pesquisa Instantânea.

Este método introduzirá um VBA para contar e-mails por categoria em um intervalo de datas personalizado no Outlook. Por favor, siga os passos abaixo:

1. Na visualização de E-mail, selecione a pasta de e-mail que você deseja contar os e-mails.

2. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo, e depois cole o código VBA abaixo na nova janela do Módulo que se abrirá:

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. Pressione a tecla F5 ou clique no botão Executar para executar este VBA.

5. (1) Na primeira caixa de diálogo do Microsoft Outlook que aparecer, digite a data de início do intervalo de datas personalizado no qual você contará os e-mails e clique no botão OK. (2) Na segunda caixa de diálogo do Microsoft Outlook, digite a data final e clique no botão OK . 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 captura de tela:

Contar o número total de resultados da pesquisa no Outlook

Contar horas/dias/semanas gastos em um compromisso ou reunião no Outlook

Contar o número de e-mails por assunto no Outlook

Contar o número total de e-mails recebidos por dia no Outlook

Contar o número total de e-mails selecionados no Outlook