Sut i gyfrif nifer y negeseuon fflag yn Outlook?

Wrth edrych ymlaen, gallwch dynnu sylw at y negeseuon, y cysylltiadau neu'r tasgau am eu gwneud yn rhagorol, ond, weithiau, mae angen i chi gyfrif nifer yr eitemau â fflag yn eich Camre. Sut allech chi ddelio â'r dasg hon yn Outlook?

Cyfrif nifer y negeseuon sydd wedi'u nodi mewn un cyfrif gyda Ffolderi Chwilio

Cyfrif nifer y negeseuon / cysylltiadau / tasgau wedi'u nodi ar wahân ym mhob cyfrif gyda chod VBA

Cyfrif nifer y negeseuon sydd wedi'u nodi mewn un cyfrif gyda Ffolderi Chwilio

I gyfrif nifer yr e-byst sydd wedi'u nodi mewn cyfrif o Outlook, mae'r Chwilio Ffolderi gall nodwedd eich helpu chi, gwnewch fel hyn:

1. Cliciwch ar y dde Chwilio Ffolderi o dan eich cyfrif E-bost, ac yna dewiswch Ffolder Chwilio Newydd, gweler y screenshot:

2. Yna a Ffolder Chwilio Newydd blwch deialog wedi'i popio allan, cliciwch Post wedi'i nodi ar gyfer gwaith dilynol opsiwn yn y Post Darllen adran, gweler y screenshot:

3. Yna cliciwch OK, ac mae pob neges â fflag yn cael ei chopïo i'r Ar gyfer Dilyniant ffolder, a dangosir cyfanswm nifer yr e-byst â fflag fel a ddangosir y screenshot canlynol:

Cyfrif nifer y negeseuon / cysylltiadau / tasgau wedi'u nodi ar wahân ym mhob cyfrif gyda chod VBA

Os ydych chi am gyfrif nifer yr holl eitemau sydd wedi'u nodi, fel e-byst, cysylltiadau a thasgau yn Outlook ar wahân, gall y cod VBA canlynol ffafrio chi.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored, gweler y screenshot:

Cod VBA: Cyfrif nifer yr amserau sydd wedi'u nodi yn 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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i ddweud wrthych gyfanswm cyfrif yr holl eitemau â fflag fel y dangosir isod y screenshot:

---

Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau Pro: Arbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

Darllenwch fwy       Lawrlwythiad Am Ddim      prynu