Come contare il numero di email contrassegnate in Outlook?
In Outlook, puoi contrassegnare le email, i contatti o le attività per renderle più evidenti, ma a volte potresti aver bisogno di contare il numero di elementi contrassegnati nel tuo Outlook. Come potresti gestire questa operazione in Outlook?
Conta il numero di email contrassegnate in un account con Cartelle di ricerca
a name="a1"> Conta il numero di email contrassegnate in un account con Cartelle di ricerca
Per contare il numero di email contrassegnate in un account di Outlook, la funzione Cartelle di ricerca può aiutarti, procedi come segue:
1. Fai clic destro su Cartelle di ricerca sotto il tuo account email e seleziona Nuova cartella di ricerca, vedi screenshot:
2. Successivamente, si aprirà una finestra di dialogo Nuova cartella di ricerca, fai clic sull'opzione Email contrassegnate per follow-up nella sezione Lettura email, vedi screenshot:
3. Quindi fai clic su OK e tutte le email contrassegnate verranno copiate nella cartella Per follow-up e il numero totale delle email contrassegnate verrà visualizzato come mostrato nello screenshot seguente:
a name="a2"> Conta separatamente il numero di email / contatti / attività contrassegnate in tutti gli account con il codice VBA
Se desideri contare il numero di tutti gli elementi contrassegnati, come email, contatti e attività in Outlook separatamente, il seguente codice VBA può esserti d'aiuto.
1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Successivamente, fai clic su Inserisci > Modulo, copia e incolla il codice sottostante nel modulo vuoto aperto, vedi screenshot:
Codice VBA: Conta il numero di elementi contrassegnati in 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. Premi quindi il tasto F5 per eseguire questo codice e apparirà una finestra di avviso che ti indicherà il conteggio totale di tutti gli elementi contrassegnati come mostrato nello screenshot sottostante:
Conta il numero di elementi di oggi, ieri, letti, non letti, totali... in Outlook Con la potente funzione Statistiche di Kutools per Outlook, puoi ottenere il numero di elementi in base alla data, agli elementi selezionati, agli elementi letti, non letti e così via secondo necessità.  Kutools per Outlook: con oltre 70+ utili add-in gratuiti per Outlook, scarica subito la versione gratuita. |
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!
📧 Automazione email: Risposta automatica (disponibile per POP e IMAP) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...
📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...
Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!
