3 ātras metodes visu atzīmēto vienumu saskaitīšanai programmā Outlook

Programma Outlook ļauj atzīmēt vienumus pēcpārbaudēm, piemēram, atzīmēt e-pasta ziņojumus, kontaktpersonas un tā tālāk. Šādā gadījumā dažreiz var vēlēties saskaitīt atzīmētos vienumus. Šeit mēs dalīsimies ar jums 3 pieejās.

Iespējams, programmā Outlook esat atzīmējis lielu skaitu vienumu, lai tos turpinātu. Piemēram, varat atzīmēt kontaktpersonu, kurai plānojat piezvanīt vēlāk. Ņemot vērā tik daudz atzīmēto vienumu, varat cerēt tos saskaitīt. Tālāk mēs jūs iepazīstināsim ar 3 līdzekļiem.

1. metode: skaitiet, izmantojot meklēšanas mapi

Ja vēlaties vienkārši saskaitīt atzīmētos e-pastus, varat izmantot meklēšanas mapi. Šeit ir detalizētas darbības.

1. Lai sāktu, pasta navigācijas rūtī ar peles labo pogu noklikšķiniet uz “Meklēt mapes”.
2. Pēc tam konteksta izvēlnē atlasiet “Jauna meklēšanas mape”.
3. Uznirstošajā dialoglodziņā atlasiet “Pasts atzīmēts kā karodziņu sekošanai” un noklikšķiniet uz “OK”.
4. Visbeidzot, meklēšanas mapē tiks parādīts kopējais atzīmēto e-pasta ziņojumu skaits, piemēram, šajā ekrānuzņēmumā.

2. metode: saskaitiet uzdevumu sarakstā

Ja esat atzīmējis ne tikai e-pasta ziņojumus, bet arī kontaktpersonas, kontaktpersonu grupas un tā tālāk, iespējams, vēlēsities iegūt visu šo atzīmēto vienumu kopējo skaitu. Šajā situācijā varat izmantot šādu veidu.

1. Pirmkārt, pārslēdzieties uz navigācijas rūti Uzdevumi, nospiežot taustiņu kombināciju Ctrl + 4.
2. Pēc tam piekļūstiet “Uzdevumu sarakstam”, kurā redzēsit visus atzīmētos vienumus, kas parādīti kā attēlā zemāk:
3. Pēc tam atlasiet visus šos vienumus un nospiediet taustiņu “Enter”, mēģinot tos atvērt pa partijām.
4. Pēc tam jūs saņemsit brīdinājumu par pārāk daudzu vienumu atvēršanu, piemēram, nākamajā attēlā. Brīdinājumā ir kopējais atzīmēto vienumu skaits.

3. metode: skaitīšana, izmantojot Outlook VBA

Varbūt vēlaties ne tikai iegūt visu atzīmēto vienumu kopējo skaitu, bet arī atsevišķu veidu atzīmēto vienumu skaitu. Šeit ir risinājums šajā ziņā.

1. Lai sāktu, atveriet Outlook VBA redaktoru, atsaucoties uz ierakstu “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam nokopējiet tālāk norādīto VBA kodu modulī vai projektā.

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. Visbeidzot, noklikšķiniet uz apakšprogrammas “CountFlaggedItems” un nospiediet pogu “F5”.
4. Kad makro būs pabeigts, jūs saņemsit ziņojumu, kurā tiks parādīts visu atzīmēto vienumu kopējais skaits, piemēram, attēlā zemāk.

Atbrīvojieties no kaitinošām Outlook problēmām

Programmā Outlook ik pa laikam var rasties Outlook problēmas. Tādējādi jums vajadzētu iegūt uzticamu un uzticamu ierīci Outlook labojums lietderība, piemēram DataNumen Outlook Repair. Tas var gudri skenēt jūsu Outlook failu un dažu minūšu laikā labot faila kļūdas.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar