Como contar e-mails por categoria no Outlook?

Conte e-mails por categoria no Outlook com a funcionalidade Pesquisa Instantânea

Conte e-mails por categoria no Outlook com VBA

Este método irá orientá-lo a encontrar todos os e-mails marcados com a Categoria de Cor especificada através da funcionalidade Pesquisa Instantânea e, em seguida, obter facilmente o número total de resultados na Barra de Status.

1. Na vista Correio, prima simultaneamente as teclas Ctrl + E para ativar as Ferramentas de Pesquisa.

2. Clique em Pesquisa > Categorizados e selecione a categoria de cor específica pela qual pretende contar e-mails.

3. Agora, todos os e-mails marcados com a categoria de cor especificada foram encontrados e listados na Lista de Emails. Pode obter facilmente o número total de resultados da pesquisa na Barra de Status. Veja a captura de ecrã:

Notas:

(1) Para contar e-mails marcados com a categoria Amarela ea categoria Laranja simultaneamente, introduza diretamente na caixa de Pesquisa Instantânea o critério de pesquisa: category:=«Yellow Category» AND "Orange Category":Pesquisa Instantânea:

(2) Para contar e-mails marcados com a categoria Amarela oua categoria Laranja simultaneamente, introduza diretamente na caixa de Pesquisa Instantâneao critério: category:=«Yellow Category» OR "Orange Category".

Este método apresenta um código VBA para contar e-mails por categoria num intervalo de datas personalizado no Outlook. Siga os passos abaixo:

1. Na vista Correio, selecione a pasta de e-mails cujos e-mails pretende contar.

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

3. Clique em Inserir > Módulo e cole o seguinte código VBA na nova janela de Módulo que se abre:

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. Prima 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 surgir, introduza a Data de Início do intervalo de datas personalizado em que pretende contar e-mails e clique no botão OK. (2) Na segunda caixa de diálogo do Microsoft Outlook, introduza a Data de Término e clique no botão OKVeja as capturas de ecrã:

Agora surge uma caixa de diálogo com a Contagem de Emails marcada por Categoria de Cor. Veja a captura de ecrã:

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

Contar as horas/dias/semanas despendidas numa marcação ou reunião no Outlook

Contar os Contagem de Emails 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