3 Metode Cepat untuk Menghitung Semua Item yang Ditandai di Outlook Anda

Outlook memungkinkan Anda menandai item untuk ditindaklanjuti, seperti menandai email, kontak, dan sebagainya. Dalam skenario ini, terkadang Anda mungkin ingin menghitung item yang ditandai. Di sini kami akan membagikan 3 pendekatan dengan Anda.

Mungkin Anda telah menandai sejumlah besar item untuk ditindaklanjuti di Outlook Anda. Misalnya, Anda dapat menandai kontak yang Anda rencanakan untuk menelepon kontak ini nanti. Menghadapi begitu banyak item yang ditandai, Anda mungkin berharap bisa menghitungnya. Selanjutnya, kami akan memperkenalkan Anda 3 cara.

Metode 1: Hitung melalui Folder Pencarian

Jika Anda hanya ingin menghitung email yang ditandai, Anda dapat menggunakan folder pencarian. Berikut langkah-langkah detailnya.

1. Pertama-tama, di panel navigasi email, klik kanan pada “Cari Folder”.
2. Kemudian, dari menu konteksnya, pilih "Folder Pencarian Baru".
3. Di kotak dialog popup, pilih "Mail ditandai untuk ditindaklanjuti" dan klik "OK".
4. Terakhir, Anda akan mendapatkan jumlah total email yang ditandai di folder pencarian, seperti tangkapan layar berikut.

Metode 2: Hitung dalam Daftar Tugas

Jika Anda tidak hanya menandai email tetapi juga kontak, grup kontak, dan sebagainya, Anda mungkin ingin mendapatkan jumlah total dari semua item yang ditandai ini. Dalam situasi ini, Anda dapat menggunakan cara berikut.

1. Pertama, alihkan ke panel navigasi Tasks dengan "Ctrl + 4".
2. Kemudian, akses "To-Do List", di mana Anda akan melihat semua item yang ditandai, seperti gambar di bawah ini:
3. Selanjutnya, pilih semua item ini dan tekan tombol "Enter", mencoba membukanya secara berkelompok.
4. Selanjutnya, Anda akan mendapatkan peringatan tentang membuka terlalu banyak item, seperti gambar berikut. Dalam peringatan tersebut, ada jumlah total item yang ditandai.

Metode 3: Hitung dengan Outlook VBA

Mungkin Anda tidak hanya ingin mendapatkan jumlah total dari semua item yang ditandai, tetapi Anda juga ingin menghitung jumlah jenis item yang ditandai secara terpisah. Inilah solusi dalam hal ini.

1. Sebagai langkah awal, akses editor VBA Outlook dengan merujuk pada postingan “Cara Menjalankan Kode VBA di Outlook Anda".
2. Kemudian salin kode VBA di bawah ini ke dalam modul atau proyek.

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. Terakhir, klik subrutin "CountFlaggedItems" dan tekan tombol "F5".
4. Saat makro selesai, Anda akan mendapatkan pesan, meminta jumlah total semua item yang ditandai, seperti gambar di bawah ini.

Buang Masalah Outlook yang Mengganggu

Di Outlook, masalah Outlook dapat terjadi sekarang dan nanti. Jadi, Anda sebaiknya mendapatkan tip-top dan dapat dipercaya Perbaikan Outlook utilitas, seperti DataNumen Outlook Repair. Itu dapat memindai file Outlook Anda dengan cerdas dan memperbaiki kesalahan file dalam beberapa menit.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com