Preskoči na glavno vsebino

Kako prešteti število označenih sporočil v Outlooku?

V Outlooku lahko sporočila, stike ali naloge označite z zastavico, da bodo izjemna, toda včasih morate v Outlooku prešteti število označenih elementov. Kako bi se lahko v Outlooku spoprijeli s to nalogo?

Z mapami za iskanje preštejte število sporočil, označenih z zastavico, v enem računu

Število označenih sporočil / stikov / opravil preštejte ločeno v vseh računih s kodo VBA


Z mapami za iskanje preštejte število sporočil, označenih z zastavico, v enem računu

Če želite prešteti število označenih e-poštnih sporočil v računu Outlooka, Iskanje po mapah funkcija vam lahko pomaga, naredite naslednje:

1. Desni klik Iskanje po mapah pod svojim e-poštnim računom in nato izberite Nova iskalna mapa, glej posnetek zaslona:

doc count označenih elementov 1

2. Potem a Nova iskalna mapa pogovorno okno se odpre, kliknite Pošta, označena za nadaljnje ukrepanje možnost v Branje pošte razdelek, glej posnetek zaslona:

doc count označenih elementov 2

3. Nato kliknite OK, in vsa sporočila z zastavico se kopirajo v Za nadaljevanje mapo, skupno število označenih e-poštnih sporočil pa je prikazano na spodnji sliki zaslona:

doc count označenih elementov 3


Število označenih sporočil / stikov / opravil preštejte ločeno v vseh računih s kodo VBA

Če želite ločeno prešteti število vseh elementov, označenih z zastavico, na primer e-poštna sporočila, stike in opravila v Outlooku, vam lahko naredite uslugo z naslednjo kodo VBA.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: preštejte število označenih časov v Outlooku:

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

doc count označenih elementov 4

3. Nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, ki vam sporoči skupno število vseh označenih elementov, kot je prikazano spodaj:

doc count označenih elementov 5


Preštejte število današnjih, včerajšnjih, prebranih, neprebranih, skupnih elementov ... v Outlooku

z Kutools za Outlookje močan Statistika lahko dobite število tem glede na datum, izbrane predmete, prebrano, neprebrano in tako naprej, kot ga potrebujete.

doc count označenih elementov 6

Kutools za Outlook: z več kot 100+ priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 60 dneh. Prenesite in preizkusite brezplačno preskusno različico zdaj!

Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Das ist ja jetzt wohl nicht die Wahrheit. Ich brauche VBA oder soll umständliche Ordneraktionen durchführen um die Zahl der aktuell gewählten Kontakte zu lesen? So lange es solche Zumutungen bei Office gibt wird Arbeiten mit dieser Suite keinen Spaß machen. Ich stoße immer wieder auf Funktionen, die man als Anwender bei einem Officeprogramm voraussetzt und muß dann leidvoll erfahren, dass man einfachste Vorgängen nur mit Kopfständen oder eben VBA erledigen kann. Super, Microsoft!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations