Таны хэтийн төлөв дэх бүх дарцаглагдсан зүйлийг тоолох 3 хурдан арга

Outlook нь имэйлийг дарах, холбоо барих гэх мэт зүйлсийг дагаж мөрдөх боломжийг олгодог. Энэ хувилбарт заримдаа дарцаглагдсан зүйлийг тоолохыг хүсч магадгүй юм. Энд бид танд 3 хандлагыг хуваалцах болно.

Та Outlook дээр дагаж мөрдөх олон тооны зүйлийг тэмдэглэсэн байж магадгүй юм. Жишээлбэл, та дараа нь энэ харилцагч руу залгахаар төлөвлөж буй харилцагчаа тэмдэглэж болно. Олон тооны далбаатай зүйлсийн өмнө та тэдгээрийн тоог тоолно гэж найдаж магадгүй юм. Үүний дараа бид танд 3 арга хэрэгслийг танилцуулах болно.

Арга 1: Хайлтын хавтасаар тоолох

Хэрэв та зүгээр л дарцаглагдсан имэйлийг тоолохыг хүсвэл хайлтын хавтас ашиглаж болно. Энд нарийвчилсан алхамууд байна.

1. Эхлэхийн тулд имэйлийн навигацийн самбар дээрх "Хавтас хайх" дээр хулганы баруун товчийг дарна уу.
2. Дараа нь контекст цэснээс “Шинэ хайлтын хавтас” -ыг сонгоно уу.
3. Попап харилцах цонхноос “Захидлыг дагахаар дарцагласан мэйлийг” сонгоод “OK” дээр дарна уу.
4. Эцэст нь хэлэхэд, та хайлтын хавтсанд дараахь дэлгэцийн агшин шиг нийт дарцаглагдсан имэйлийн тоог авах болно.

Арга 2: Хийх зүйлсийн жагсаалтад тоолох

Хэрэв та зөвхөн имэйл хаягийг төдийгүй холбоо барих хаяг, холбоо барих бүлэг гэх мэтийг дарцагласан бол эдгээр бүх тэмдэглэгдсэн зүйлийн нийт тоог авахыг хүсч магадгүй юм. Энэ нөхцөлд та дараахь аргыг ашиглаж болно.

1. Нэгдүгээрт, "Ctrl + 4" -ээр Tasks навигацийн самбар руу шилжих хэрэгтэй.
2. Дараа нь "Хийх зүйлсийн жагсаалт" -д нэвтэрч, доорхи зураг хэлбэрээр харуулсан бүх дарцаглагдсан зүйлийг харах боломжтой болно.
3. Дараа нь эдгээр бүх зүйлийг сонгоод "Enter" товчлуур дээр дарж тэдгээрийг хэсэгчлэн нээхийг оролдоорой.
4. Дараа нь та дараах зураг шиг хэт олон зүйлийг нээх талаар анхааруулга авах болно. Анхааруулгад дарцаглагдсан зүйлсийн нийт тоо байна.

Арга 3: Outlook VBA-тай тоолох

Магадгүй та зөвхөн бүх дарцаглагдсан зүйлсийн тооллогыг авахыг хүсч байгаа төдийгүй бас тусдаа төрлийн дарцаглагдсан зүйлсийн тоог авахыг хүсч магадгүй юм. Энэ талаархи нэг шийдэл энд байна.

1. Эхлээд "" нийтлэлийг лавлаж Outlook VBA засварлагч руу хандана уу.Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
2. Дараа нь доорхи VBA кодыг модуль эсвэл төсөлд хуулж ав.

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. Эцэст нь “CountFlaggedItems” дэд програм дээр дарж “F5” товчийг дарна уу.
4. Макро дууссаны дараа танд зурвас ирэх бөгөөд доорх зураг шиг дарцаглагдсан бүх зүйлийг тоолно.

Урьдчилан сэргийлэх бухимдлыг арилгах

Outlook дээр Outlook-ийн асуудлууд үе үе тохиолдож болно. Тиймээс та найдвартай, найдвартай зөвлөмжийг олж авсан нь дээр Outlook засах хэрэгсэл, гэх мэт DataNumen Outlook Repair. Энэ нь таны Outlook файлыг ухаалгаар скан хийж, файлын алдааг хэдэн минутын дотор засах боломжтой.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com