Come contare il numero di cartelle sotto l'account di posta elettronica specificato o tutte le cassette postali in Outlook?
Questo articolo parla del conteggio del numero di cartelle nell'account di posta elettronica specificato o in tutte le cassette postali in Outlook.
Contare il numero di cartelle nell'account di posta elettronica specificato o in tutte le cassette postali con codice VBA
Puoi contare il numero di cartelle sotto l'account e-mail specificato o tutte le caselle di posta con il codice VBA inferiore. Si prega di fare quanto segue.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo utente. Vedi screenshot:
3. Quindi inserirne due Pulsanti di opzione e due Pulsanti di comando ai miglioramenti Modulo utente1e modificare il testo di visualizzazione dei pulsanti come mostrato nell'immagine sottostante.
4. Modificare il nome del primo pulsante di opzione in "opbCurAccount"E modificare il APPREZZIAMO proprietà a I veri. Vedi screenshot:
5. Continua a cambiare il nome del secondo pulsante di opzione in "opbAllAccounts". Quindi specificare il nome dei due pulsanti di comando in "cdbOk" e "cdbAnnulla"Separatamente.
6. Fare doppio clic su qualsiasi posizione vuota di UserForm1 e quindi sostituire il codice originale con il codice VBA sotto nella finestra Userform1 (Code).
Codice VBA: conta il numero di cartelle in Outlook
Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
Dim xSubFolders As Folders
Dim xCurFolder As Outlook.Folder
Dim xFoldersCount As Integer
On Error Resume Next
Set xSubFolders = ParentFolder.Folders
If xSubFolders.Count > 0 Then
Set xCurFolder = xSubFolders.GetFirst
While TypeName(xCurFolder) = "MAPIFolder"
xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
Set xCurFolder = xSubFolders.GetNext
Wend
GetSubFolderCount = xFoldersCount + xSubFolders.Count
Else
GetSubFolderCount = 0
End If
End Function
Sub CountFoldersInOutlook()
Dim xNameSpace As NameSpace
Dim xFolder As Folder
Dim xAllFoldersCount As Long
On Error Resume Next
UserForm1.Show
If UserForm1.xRet Then
Set xNameSpace = Outlook.Application.Session
If UserForm1.opbCurAccount.Value Then
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
xAllFoldersCount = GetSubFolderCount(xFolder)
ElseIf UserForm1.opbAllAccounts.Value Then
For Each xFolder In xNameSpace.Folders
xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
Next
End If
Else
Exit Sub
End If
MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
8. premi il F5 chiave per eseguire il codice. Poi un Modulo utente1 si apre la finestra di dialogo, per contare il numero di cartelle nell'account corrente, selezionare il file Conto corrente opzione e fare clic su OK pulsante. Per contare il numero di cartelle in tutte le cassette postali, scegli il file Tutti gli account opzione e quindi fare clic su OK pulsante. Vedi screenshot:
9. Quindi a Kutools for Outlook la finestra di dialogo si apre per dirti quante cartelle esistono nell'account corrente o in tutte le caselle di posta come nell'immagine sottostante. Fare clic su OK pulsante.
Note:: Tutte le cartelle nascoste come la cartella Impostazioni azione conversazione e la cartella Impostazioni passaggio rapido sono incluse nel conteggio delle cartelle.
Articoli correlati:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!