Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i gyfrif nifer y negeseuon a nodir yn Outlook?

Mewn rhagolygon, gallwch chi fanteisio ar y negeseuon, y cysylltiadau neu dasgau i'w gwneud yn rhagorol, ond weithiau bydd angen i chi gyfrif nifer yr eitemau sydd wedi'u nodi yn eich Outlook. Sut allech chi ddelio â'r dasg hon yn Outlook?

Cyfrifwch nifer y negeseuon a nodir mewn un cyfrif gyda Phlygwyr Chwilio

Cyfrifwch nifer y negeseuon / cysylltiadau / tasgau a nodir ar wahân ym mhob cyfrif gyda chod VBA


Cyfrifwch nifer yr eitemau heddiw, ddoe, darllen, heb eu darllen, cyfanswm ... yn Outlook

gyda Kutools ar gyfer Outlookyn bwerus Ystadegau gallwch gael y nifer o themâu yn seiliedig ar ddyddiad, eitemau a ddewiswyd, darllen, heb eu darllen ac yn y blaen fel y mae eu hangen arnoch.

dogfennau rhif cyfrif 6

Kutools ar gyfer Outlook: gyda mwy na 20 + addysgol Excel defnyddiol, am ddim i geisio heb gyfyngiad mewn diwrnodau 60. Lawrlwythwch a cheisiwch y treial am ddim nawr!

Cyfrifwch nifer y negeseuon a nodir mewn un cyfrif gyda Phlygwyr Chwilio

I gyfrif nifer y negeseuon e-bost dynodedig mewn cyfrif Outlook, y Ffolderi Chwilio Gall nodwedd eich helpu chi, gwnewch fel hyn:

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

dogfennau rhif cyfrif 1

2. Yna a Ffolder Chwilio Newydd Mae blwch deialog wedi'i datgelu, cliciwch Cyfeiriodd y post am ddilyniant opsiwn yn y Darllen Post adran, gweler y sgrin:

dogfennau rhif cyfrif 2

3. Yna cliciwch OK, ac mae'r holl negeseuon a nodir yn cael eu copïo i'r Ar gyfer Dilyniant ffolder, a chyfanswm nifer y negeseuon e-bost dynodedig yn cael eu harddangos fel lluniau canlynol a ddangosir:

dogfennau rhif cyfrif 3


Cyfrifwch nifer y negeseuon / cysylltiadau / tasgau a nodir ar wahân ym mhob cyfrif gyda chod VBA

Os ydych chi eisiau cyfrif nifer yr holl eitemau a nodir, megis negeseuon e-bost, cysylltiadau a thasgau yn Outlook ar wahân, gall y cod VBA canlynol eich gwneud yn ffafr.

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

2. Yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: Cyfrifwch nifer yr amseroedd a nodir 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

dogfennau rhif cyfrif 4

3. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon wedi'i datgelu i ddweud wrthych gyfanswm cyfanswm yr holl eitemau a nodir fel y sgriniau isod a ddangosir:

dogfennau rhif cyfrif 5



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.