3 metode rapide pentru a număra toate elementele semnalizate în Outlook

Outlook vă permite să semnalați elemente pentru urmărire, cum ar fi semnalarea e-mailurilor, contactelor și așa mai departe. În acest scenariu, uneori este posibil să doriți să numărați elementele marcate. Aici vă vom împărtăși 3 abordări.

Poate că ați semnalat un număr mare de elemente pentru urmărire în Outlook. De exemplu, puteți semnala o persoană de contact în care intenționați să o sunați mai târziu. În fața atâtor articole marcate, s-ar putea să sperați să obțineți o numărătoare a acestora. În continuare, vă vom prezenta 3 mijloace.

Metoda 1: numărați prin folderul de căutare

Dacă doriți pur și simplu să numărați e-mailurile semnalate, puteți utiliza folderul de căutare. Iată pașii detaliați.

1. Pentru început, în panoul de navigare prin e-mail, faceți clic dreapta pe „Căutare foldere”.
2. Apoi, din meniul contextual, selectați „New Search Folder”.
3. În caseta de dialog pop-up, selectați „Mail semnalizat pentru urmărire” și faceți clic pe „OK”.
4. În cele din urmă, veți primi un număr total de e-mailuri marcate în folderul de căutare, cum ar fi următoarea captură de ecran.

Metoda 2: Numărați în lista de sarcini

Dacă ați semnalat nu numai e-mailuri, ci și persoane de contact, grupuri de contacte și așa mai departe, este posibil să doriți să obțineți un număr total al tuturor acestor elemente semnalate. În această situație, puteți utiliza următorul mod.

1. În primul rând, comutați la panoul de navigare Sarcini prin „Ctrl + 4”.
2. Apoi, accesați „Lista de activități”, unde veți vedea toate elementele marcate, prezentate ca imaginea de mai jos:
3. Apoi, selectați toate aceste articole și apăsați butonul „Enter”, încercând să le deschideți în loturi.
4. Ulterior, veți primi un avertisment despre deschiderea prea multor articole, ca în imaginea următoare. În avertisment, există un număr total de articole marcate.

Metoda 3: Numărați cu Outlook VBA

Poate că nu numai că doriți să obțineți un număr total al tuturor articolelor marcate, dar doriți și să obțineți numărul de tipuri separate de articole marcate. Iată o soluție în acest sens.

1. Pentru început, accesați editorul VBA din Outlook cu referire la postarea „Cum să rulați codul VBA în Outlook".
2. Apoi copiați codul VBA de mai jos într-un modul sau proiect.

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

3. În cele din urmă, faceți clic în subrutina „CountFlaggedItems” și apăsați butonul „F5”.
4. Când macrocomandă se finalizează, veți primi un mesaj care vă va solicita numărul total al tuturor elementelor semnalate, ca în imaginea de mai jos.

Eliminați problemele enervante ale Outlook

În Outlook, problemele Outlook pot apărea din când în când. Astfel, ar fi mai bine să puneți mâna pe un tip-top și de încredere Remediere Outlook utilitate, cum ar fi DataNumen Outlook Repair. Poate scana fișierul Outlook în mod inteligent și poate repara erorile de fișier în câteva minute.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com