Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe tel je het aantal gemarkeerde berichten in Outlook?

In Outlook kunt u de berichten, contacten of taken markeren om ze open te stellen, maar soms moet u het aantal gemarkeerde items in uw Outlook tellen. Hoe zou u deze taak in Outlook kunnen aanpakken?

Tel het aantal gemarkeerde berichten in één account met zoekmappen

Tel het aantal gemarkeerde berichten / contacten / taken afzonderlijk in alle accounts met VBA-code


Tel het aantal gemarkeerde berichten in één account met zoekmappen

Om het aantal gemarkeerde e-mails in een Outlook-account te tellen, moet de Zoekmappen functie kan u helpen, doe dit als volgt:

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

aantal gemarkeerde items 1

2. Dan een Nieuwe zoekmap dialoogvenster verschijnt, klik op E-mail gemarkeerd voor opvolging optie in het E-mail lezen sectie, zie screenshot:

aantal gemarkeerde items 2

3. Dan klikken OK, en alle gemarkeerde berichten worden gekopieerd naar het Voor opvolging map, en het totale aantal gemarkeerde e-mails wordt weergegeven als het volgende screenshot:

aantal gemarkeerde items 3


Tel het aantal gemarkeerde berichten / contacten / taken afzonderlijk in alle accounts met VBA-code

Als u het aantal gemarkeerde items, zoals e-mails, contacten en taken in Outlook afzonderlijk wilt tellen, kan de volgende VBA-code u een plezier doen.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Dan klikken Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:

VBA-code: tel het aantal gemarkeerde tijden 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

aantal gemarkeerde items 4

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u het totale aantal gemarkeerde items te vertellen, zoals hieronder wordt getoond:

aantal gemarkeerde items 5


Tel het aantal vandaag, gisteren, gelezen, ongelezen, totale items ... in Outlook

met Kutools for Outlookis krachtig Statistieken functie, kunt u het aantal itmes krijgen op basis van datum, geselecteerde items, gelezen, ongelezen enzovoort, zoals u nodig hebt.

aantal gemarkeerde items 6

Kutools for Outlook: met meer dan 100+ handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. Download en probeer nu de gratis proefversie!

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.