Cum se numără numărul de mesaje semnalate în Outlook?
În perspectivă, puteți semnaliza mesajele, contactele sau sarcinile pentru a le face restante, dar, uneori, trebuie să numărați numărul de elemente semnalate în Outlook. Cum ați putea face față acestei sarcini în Outlook?
Numărați numărul de mesaje semnalate într-un singur cont cu căutarea folderelor
Numărați numărul de mesaje / contacte / sarcini marcate separat în toate conturile cu cod VBA
Numărați numărul de mesaje semnalate într-un singur cont cu căutarea folderelor
Pentru a număra numărul de e-mailuri semnalate într-un cont de Outlook, Căutați dosare funcția vă poate ajuta, faceți acest lucru:
1. Click dreapta Căutați dosare sub contul dvs. de e-mail, apoi selectați Dosar de căutare nou, vezi captura de ecran:
2. Apoi o Dosar de căutare nou fereastra de dialog apare, faceți clic pe E-mail semnalat pentru urmărire opțiune în Citirea corespondenței secțiune, vezi captura de ecran:
3. Apoi apasa OK, și toate mesajele semnalate sunt copiate în Pentru urmărire folder, iar numărul total al e-mailurilor semnalate este afișat după cum urmează:
Numărați numărul de mesaje / contacte / sarcini marcate separat în toate conturile cu cod VBA
Dacă doriți să numărați separat numărul tuturor elementelor semnalate, cum ar fi e-mailurile, contactele și sarcinile din Outlook, următorul cod VBA vă poate face o favoare.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi apasa Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:
Cod VBA: Numărați numărul de ori marcat în 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. Apoi apăsați F5 tasta pentru a rula acest cod și o casetă de prompt este afișată pentru a vă indica numărul total al tuturor elementelor marcate, după cum se arată în imaginea de mai jos:
Numărați numărul articolelor de azi, de ieri, citite, necitite, totale ... în Outlook
cu Kutools pentru Outlooke puternic Statistici caracteristică, puteți obține numărul de mesaje în funcție de dată, elemente selectate, citite, necitite și așa mai departe după cum aveți nevoie. Kutools pentru Outlook: cu mai mult de 100 de programe de completare Excel la îndemână, încercați fără limitări în 60 de zile. Descărcați și încercați încercarea gratuită acum!
|
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.