Salt la conținutul principal

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:

număr de documente semnalate 1

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:

număr de documente semnalate 2

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ăr de documente semnalate 3


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

număr de documente semnalate 4

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ăr de documente semnalate 5


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.

număr de documente semnalate 6

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

📧 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 ProSalvaț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.

 

 

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