Como contar o número de mensagens sinalizadas no Outlook?
No Outlook, você pode sinalizar as mensagens, contatos ou tarefas para torná-los pendentes, mas, às vezes, você precisa contar o número de itens sinalizados em seu Outlook. Como você lidaria com essa tarefa no Outlook?
Conte o número de mensagens sinalizadas em uma conta com as Pastas de Pesquisa
Conte o número de mensagens sinalizadas em uma conta com as Pastas de Pesquisa
Para contar o número de e-mails sinalizados em uma conta do Outlook, o Pastas de Pesquisa recurso pode ajudá-lo, faça o seguinte:
1. Clique direito Pastas de Pesquisa na sua conta de e-mail e selecione Nova Pasta de Pesquisa, veja a captura de tela:
2. Então uma Nova Pasta de Pesquisa caixa de diálogo é exibida, clique em Correio sinalizado para acompanhamento opção no Lendo correspondência seção, veja a captura de tela:
3. Então clique OK, e todas as mensagens sinalizadas são copiadas para o Para acompanhamento pasta, e o número total de e-mails sinalizados é exibido como a seguinte captura de tela mostrada:
Conte o número de mensagens / contatos / tarefas sinalizados separadamente em todas as contas com o código VBA
Se você deseja contar o número de todos os itens sinalizados, como e-mails, contatos e tarefas no Outlook separadamente, o código VBA a seguir pode fazer um favor.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Então clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:
Código VBA: conte o número de vezes sinalizado 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. Então aperte F5 para executar este código, e uma caixa de prompt é exibida para informar a contagem total de todos os itens sinalizados, conforme a captura de tela abaixo:
Conte o número de hoje, ontem, lidos, não lidos, total de itens ... no Outlook
Com o Kutools for Outlooké poderoso Estatísticas recurso, 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 for Outlook: com mais de 100 suplementos úteis do Excel, grátis para testar sem limitação em 60 dias. Baixe e experimente o teste gratuito agora!
|
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.