Note: The other languages of the website are Google-translated. Back to English

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 / contatos / tarefas sinalizados separadamente em todas as contas com o código VBA


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:

doc contar itens sinalizados 1

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:

doc contar itens sinalizados 2

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:

doc contar itens sinalizados 3


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

doc contar itens sinalizados 4

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:

doc contar itens sinalizados 5


Conte o número de hoje, ontem, lidos, não lidos, total de itens ... no Outlook

Com a Kutools para 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.

doc contar itens sinalizados 6

Kutools para 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!

Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL