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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint