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 notizie: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio Email / CC/BCC automatico tramite Regola durante l’invio delle Email / Inoltro automatico (Regola avanzata) / Aggiungi Saluto automaticamente / Dividi automaticamente Email multi-destinatario in messaggi singoli ...
📨 Gestione Email: Richiama Email / Blocca Email fraudulent (tramite Oggetto e altri parametri) / Elimina Email Duplicato / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salva in Batch / Distacca in Batch / Comprimi in Batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia Interfaccia: 😊Più emoji belle e divertenti / Notifiche per le email importanti in arrivo / Riduci Outlook al posto di chiuderlo ...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email Anti-Phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate / Dividi un Gruppo di Contatti in Gruppi singoli / Rimuovi promemoria di compleanno ...
Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!
🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office
Consigliato: Kutools per Office (5-in-1)
Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!
- ✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
- 🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
- 🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint