Outlook-da qeyd olunan bütün elementləri saymaq üçün 3 sürətli üsul

Outlook sizə e-poçtları, kontaktları və s. işarələmə kimi təqib üçün elementləri qeyd etməyə imkan verir. Bu ssenaridə bəzən işarələnmiş elementləri saymaq istəyə bilərsiniz. Burada 3 yanaşmanı sizinlə paylaşacağıq.

Ola bilsin ki, Outlook-da izləmək üçün çox sayda elementi qeyd etmisiniz. Məsələn, bu kontakta daha sonra zəng etməyi planlaşdırdığınız kontaktı qeyd edə bilərsiniz. Bu qədər işarələnmiş elementlər qarşısında onların sayını əldə etməyə ümid edə bilərsiniz. Bundan sonra sizə 3 vasitə təqdim edəcəyik.

Metod 1: Axtarış Qovluğu vasitəsilə sayın

Əgər sadəcə olaraq işarələnmiş e-poçtları saymaq istəyirsinizsə, axtarış qovluğundan istifadə edə bilərsiniz. Budur ətraflı addımlar.

1. Başlamaq üçün, poçt naviqasiya panelində "Qovluqları axtar" düyməsini sağ vurun.
2. Sonra kontekst menyusundan "Yeni Axtarış Qovluğu" seçin.
3. Açılan informasiya qutusunda “İzləmə üçün qeyd olunan poçt” seçin və “OK” düyməsini basın.
4. Nəhayət, aşağıdakı ekran görüntüsü kimi axtarış qovluğunda qeyd olunan e-poçtların ümumi sayını alacaqsınız.

Metod 2: Görüləcək işlər siyahısında sayın

Yalnız e-poçtları deyil, həm də kontaktları, əlaqə qruplarını və sairləri qeyd etmisinizsə, bütün bu işarələnmiş elementlərin ümumi sayını əldə etmək istəyə bilərsiniz. Bu vəziyyətdə aşağıdakı üsuldan istifadə edə bilərsiniz.

1. Əvvəlcə "Ctrl + 4" düymələri ilə Tapşırıqlar naviqasiya panelinə keçin.
2. Sonra, aşağıdakı şəkildə göstərilən bütün işarələnmiş elementləri görəcəyiniz "To-Do siyahısı"na daxil olun:
3. Sonra, bütün bu elementləri seçin və "Enter" düyməsini sıxaraq, onları qruplarda açmağa çalışın.
4. Sonradan, aşağıdakı şəkildəki kimi çox sayda elementin açılması barədə xəbərdarlıq alacaqsınız. Xəbərdarlıqda işarələnmiş elementlərin ümumi sayı var.

Metod 3: Outlook VBA ilə hesablayın

Ola bilsin ki, siz təkcə bütün işarələnmiş elementlərin ümumi sayını əldə etmək istəmirsiniz, həm də qeyd olunan elementlərin ayrı-ayrı növlərinin sayını əldə etmək istəyirsiniz. Bu baxımdan bir həll var.

1. Başlamaq üçün, ""yazısına istinadən Outlook VBA redaktoruna daxil olun.Outlook-da VBA kodunu necə işlətmək olar".
2. Sonra aşağıdakı VBA kodunu modul və ya layihəyə köçürün.

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əhayət, “CountFlaggedItems” alt proqramına klikləyin və “F5” düyməsini basın.
4. Makro tamamlandıqda, aşağıdakı şəkildəki kimi bütün işarələnmiş elementlərin ümumi sayını bildirən bir mesaj alacaqsınız.

Zəhlətökən Outlook problemlərini aradan qaldırın

Outlook-da Outlook problemləri indi və sonra baş verə bilər. Beləliklə, daha yaxşı bir zirvə və etibarlı bir şey əldə etməlisiniz Outlook düzəlişi kimi faydalılıq DataNumen Outlook Repair. O, Outlook faylınızı ağıllı şəkildə skan edə və bir neçə dəqiqə ərzində fayl səhvlərini düzəldə bilər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com