Hoe telt u het aantal gemarkeerde e-mails in Outlook?

In Outlook kunt u e-mails, contactpersonen of taken markeren om ze opvallend te maken, maar hoe telt u het aantal gemarkeerde items in Outlook?

Tel het aantal Gemarkeerde e-mails in één account met Zoekmappen

Tel het aantal Gemarkeerde e-mails / contactpersonen / taken afzonderlijk in alle accounts met VBA-code

---

a name="a1">Tel het aantal Gemarkeerde e-mails in één account met Zoekmappen

Om het aantal gemarkeerde e-mails in een Outlook-account te tellen, helpt de Zoekmappen-functie u. Volg deze stappen:

1. Klik met de rechtermuisknop op Zoekmappen onder uw e-mailaccount en selecteer vervolgens Nieuwe zoekmap, zie de schermafbeelding:

2. Er verschijnt nu een Nieuwe zoekmap-dialoogvenster. Klik op de optie E-mail gemarkeerd voor opvolging in het gedeelte E-mail lezen, zie de schermafbeelding:

3. Klik vervolgens op OK. Daarna worden alle gemarkeerde e-mails gekopieerd naar de map Voor opvolging en wordt het totale aantal gemarkeerde e-mails weergegeven, zoals op de volgende schermafbeelding:

---

a name="a2">Tel het aantal Gemarkeerde e-mails / contactpersonen / taken afzonderlijk in alle accounts met VBA-code

Als u het aantal gemarkeerde items—zoals e-mails, contactpersonen en taken—in Outlook afzonderlijk wilt tellen, helpt de volgende VBA-code u daarbij.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module, kopieer de onderstaande code en plak deze in de geopende lege module. Zie de schermafbeelding:

VBA-code: Tel het aantal keren dat items zijn gemarkeerd in 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. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een meldingsvenster met het totale aantal gemarkeerde items, zoals op de onderstaande schermafbeelding wordt getoond:

---

Tel het aantal items van vandaag, gisteren, gelezen, ongelezen, totaal aantal items... in Outlook Met de krachtige Statistieken-functie van Kutools voor Outlook krijgt u exact het aantal items dat u zoekt—gebaseerd op datum, geselecteerde items, gelezen of ongelezen status, en meer. Kutools voor Outlook: met meer dan 70+ handige, gratis Outlook-add-ins,download nu de gratis versie. Met de krachtige Statistieken-functie van Kutools voor Outlook krijgt u precies het aantal items dat u nodig heeft, op basis van datum, aantal geselecteerde items, gelezen, ongelezen, enzovoort. Kutools voor Outlook: met meer dan 70+ handige en gratis Outlook-add-ins,download nu de gratis versie.