Como contar o número de e-mails marcados no Outlook?
No Outlook, você pode marcar mensagens, contatos ou tarefas para destacá-los, mas, às vezes, é necessário contar o número de itens marcados no seu Outlook. Como você poderia lidar com essa tarefa no Outlook?
Conte o número de e-mails marcados em uma conta usando Pastas de Pesquisa
a name="a1"> Conte o número de e-mails marcados em uma conta com Pastas de Pesquisa
Para contar o número de e-mails marcados em uma conta do Outlook, o recurso Pastas de Pesquisa pode ajudá-lo, siga os passos abaixo:
1. Clique com o botão direito em Pastas de Pesquisa sob sua conta de e-mail e selecione Nova Pasta de Pesquisa, veja a captura de tela:
2. Em seguida, uma caixa de diálogo Nova Pasta de Pesquisa será exibida, clique na opção E-mails marcados para acompanhamento na seção Leitura de E-mails, veja a captura de tela:
3. Depois, clique em OK, e todas as mensagens marcadas serão copiadas para a pasta Para Acompanhamento, e o número total de e-mails marcados será exibido conforme mostrado na captura de tela a seguir:
a name="a2"> Conte o número de mensagens / contatos / tarefas marcadas separadamente em todas as contas com código VBA
Se você deseja contar o número de todos os itens marcados, como e-mails, contatos e tarefas no Outlook separadamente, o seguinte código VBA pode ajudá-lo.
1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Em seguida, clique em Inserir > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:
Código VBA: Contar o número de marcações no Outlook:
Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
For Each xFolder In xStore.GetRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
Set xItem = CurFolder.Items.item(i)
Select Case xItem.Class
Case olMail, olPost, olSharing
If xItem.IsMarkedAsTask = True Then
GMailCount = GMailCount + 1
End If
Case olContact, olDistList
If xItem.IsMarkedAsTask = True Then
GContactCount = GContactCount + 1
End If
Case olTask
If CurFolder.DefaultItemType = olTaskItem Then
GTaskCount = GTaskCount + 1
End If
End Select
Next i
If CurFolder.Folders.Count > 0 Then
For k = CurFolder.Folders.Count To 1 Step -1
Set xSubfolder = CurFolder.Folders.item(k)
Call ProcessFolders(xSubfolder)
Next k
End If
End Sub
3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso será exibida informando o número total de todos os itens marcados, conforme mostrado na captura de tela abaixo:
Conte o número de hoje, ontem, lidos, não lidos, itens totais... no Outlook Com o poderoso recurso Estatísticas do Kutools para Outlook, você pode obter o número de itens com base na data, itens selecionados, lidos, não lidos e assim por diante, conforme necessário.  Kutools para Outlook: com mais de 70+ complementos úteis e gratuitos para o Outlook, baixe agora a versão gratuita. |
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
