Ինչպե՞ս հաշվել դրոշավորված հաղորդագրությունների քանակը Outlook- ում:

Outlook- ում դուք կարող եք նշանակել հաղորդագրությունները, կոնտակտները կամ առաջադրանքները դրանք չմարված դարձնելու համար, բայց, երբեմն, անհրաժեշտ է հաշվել ձեր Outlook- ում նշված դրոշմված իրերի քանակը: Ինչպե՞ս կարող եք գործ ունենալ Outlook- ի այս խնդրի հետ:

Հաշվի՛ր դրոշակավորված հաղորդագրությունների քանակը մեկ հաշվի մեջ ՝ «Թղթապանակների որոնման» միջոցով

VBA կոդով բոլոր հաշիվներում առանձին հաշվեք դրոշակավորված հաղորդագրությունների / կոնտակտների / առաջադրանքների քանակը

Հաշվի՛ր դրոշակավորված հաղորդագրությունների քանակը մեկ հաշվի մեջ ՝ «Թղթապանակների որոնման» միջոցով

Outlook- ի հաշվում դրոշակավորված էլ-նամակների քանակը հաշվելու համար, Թղթապանակներ որոնել առանձնահատկությունը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Աջ կտտոցով Թղթապանակներ որոնել ձեր էլ.փոստի հաշվի տակ և ապա ընտրեք Նոր որոնման պանակ, տես նկարի նկարը.

2, Հետո ա Նոր որոնման պանակ երկխոսության տուփը դուրս է եկել, կտտացրեք Փոստը դրոշավորված է հետևելու համար տարբերակը Կարդալով նամակ բաժին, տես նկարի նկարը.

3. Այնուհետեւ կտտացրեք OK, և բոլոր դրոշավորված հաղորդագրությունները պատճենվում են Հետևելու համար թղթապանակ, և դրոշավորված նամակների ընդհանուր քանակը ցուցադրվում է այնպես, ինչպես ցույց է տրված հետևյալ նկարը.

VBA կոդով բոլոր հաշիվներում առանձին հաշվեք դրոշակավորված հաղորդագրությունների / կոնտակտների / առաջադրանքների քանակը

Եթե ​​ցանկանում եք հաշվել բոլոր դրոշավորված առարկաների քանակը, ինչպիսիք են Outlook- ի էլփոստերը, կոնտակտները և առաջադրանքները, ապա հետևյալ VBA կոդը կարող է ձեզ լավություն բերել:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Դրանից հետո կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ, տես նկարի նկարը.

VBA կոդ. Հաշվեք դրոշակավորված անգամների քանակը Outlook- ում.

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և դուրս է գալիս հուշման տուփ, որը կպատմի ձեզ բոլոր դրոշավորված իրերի ընդհանուր քանակը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել