Outlook'unuzdaki Tüm Bayraklı Öğeleri Saymanın 3 Hızlı Yöntemi

Outlook, e-postaları, kişileri vb. işaretleme gibi öğeleri takip için işaretlemenize olanak tanır. Bu senaryoda, bazen işaretlenen öğeleri saymak isteyebilirsiniz. Burada sizlerle 3 yaklaşımı paylaşacağız.

Belki de Outlook'unuzda takip edilmesi için çok sayıda öğe işaretlediniz. Örneğin, daha sonra aramayı planladığınız bir kişiyi işaretleyebilirsiniz. Bu kadar çok işaretlenmiş öğe karşısında, bunların sayısını almayı umabilirsiniz. Bundan sonra, size 3 yolu tanıtacağız.

Yöntem 1: Arama Klasörü ile Say

Yalnızca işaretlenen e-postaları saymak istiyorsanız, arama klasörünü kullanabilirsiniz. İşte ayrıntılı adımlar.

1. Öncelikle, posta gezinme bölmesinde "Klasörleri Ara" seçeneğine sağ tıklayın.
2. Ardından, içerik menüsünden “Yeni Arama Klasörü” öğesini seçin.
3. Açılan iletişim kutusunda, "Posta takip için işaretlendi"yi seçin ve "Tamam"a tıklayın.
4. Son olarak, arama klasöründe aşağıdaki ekran görüntüsü gibi toplam sayıda işaretli e-posta alacaksınız.

Yöntem 2: Yapılacaklar Listesinde Say

Yalnızca e-postaları değil, kişileri, kişi gruplarını vb. de işaretlediyseniz, tüm bu işaretlenen öğelerin toplam sayısını almak isteyebilirsiniz. Bu durumda aşağıdaki yolu kullanabilirsiniz.

1. Öncelikle “Ctrl+4” ile Görevler gezinti bölmesine geçin.
2. Ardından, aşağıdaki resimde gösterilen tüm işaretli öğeleri göreceğiniz “Yapılacaklar Listesine” erişin:
3. Ardından, tüm bu öğeleri seçin ve toplu halde açmaya çalışarak "Enter" tuşuna basın.
4. Akabinde aşağıdaki resimdeki gibi çok fazla eşya açma uyarısı alacaksınız. Uyarıda, işaretlenen öğelerin toplam sayısı vardır.

Yöntem 3: Outlook VBA ile Sayma

Belki sadece işaretlenen tüm öğelerin toplam sayısını almak değil, aynı zamanda farklı işaretlenen öğe türlerinin sayısını da almak istiyorsunuz. İşte bu konuda bir çözüm.

1. Öncelikle, " başlıklı gönderiye atıfta bulunarak Outlook VBA düzenleyicisine erişin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından aşağıdaki VBA kodunu bir modüle veya projeye kopyalayı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. Son olarak, “CountFlaggedItems” alt programına tıklayın ve “F5” düğmesine basın.
4. Makro tamamlandığında, aşağıdaki resimde olduğu gibi işaretlenen tüm öğelerin toplam sayısını soran bir mesaj alacaksınız.

Sıkıcı Outlook Sorunlarından Kurtulun

Outlook'ta, Outlook sorunları ara sıra ortaya çıkabilir. Bu nedenle, en iyi ve güvenilir bir ipucu edinseniz iyi olur. Outlook düzeltmesi kullanışlılık gibi DataNumen Outlook Repair. Outlook dosyanızı akıllıca tarayabilir ve dosya hatalarını dakikalar içinde onarabilir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf düzeltme ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com