Outlook бағдарламасындағы барлық белгіленген элементтерді санаудың 3 жылдам әдісі

Outlook электрондық поштаны, контактілерді белгілеу сияқты элементтерді бақылауға мүмкіндік береді. Бұл сценарийде кейде сіз белгіленген элементтерді санағыңыз келуі мүмкін. Мұнда біз сіздермен 3 тәсілмен бөлісетін боламыз.

Мүмкін сіз Outlook бағдарламасында бақылау үшін көптеген элементтерді белгілеген шығарсыз. Мысалы, сіз бұл контактіге кейінірек қоңырау шалуды жоспарлаған контактіні белгілей аласыз. Белгіленген көптеген элементтердің алдында сіз олардың санын алуға үміттенуіңіз мүмкін. Бұдан кейін біз сізге 3 құралды енгіземіз.

1 -әдіс: Іздеу қалтасы арқылы санау

Егер сіз жалаушалы электрондық хаттарды санағыңыз келсе, іздеу қалтасын пайдалануға болады. Міне, егжей -тегжейлі қадамдар.

1. Бастау үшін, пошта навигация тақтасында «Қалталар іздеу» түймесін тінтуірдің оң жақ түймешігімен басыңыз.
2. Содан кейін контекстік мәзірден «Жаңа іздеу қалтасын» таңдаңыз.
3. Қалқымалы диалогтық терезеде «Бақылау үшін белгіленген поштаны» таңдап, «ОК» түймесін басыңыз.
4. Ақырында, іздеу қалтасында келесі скриншот сияқты жалаушалы электрондық хаттардың жалпы санын аласыз.

2-әдіс: Істер тізімінде есептеңіз

Егер сіз тек электрондық поштаны ғана емес, сонымен қатар контактілерді, контактілер тобын және тағы басқаларды белгілеген болсаңыз, осы жалаушаланған элементтердің жалпы санын алуыңыз мүмкін. Бұл жағдайда келесі әдісті қолдануға болады.

1. Алдымен «Ctrl + 4» арқылы тапсырмалар шарлау тақтасына ауысыңыз.
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 мәселелері анда -санда пайда болуы мүмкін. Осылайша сіз сенімділік пен сенімділікке ие болуыңыз керек Outlook түзетуі утилита, сияқты DataNumen Outlook Repair. Ол Outlook файлын ақылды түрде сканерлеп, файл қателерін бірнеше минут ішінде жөндей алады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com