Cum se numără numărul de foldere din contul de e-mail specificat sau din toate cutiile poștale din Outlook?
Acest articol vorbește despre numărarea numărului de foldere din contul de e-mail specificat sau a tuturor cutiilor poștale din Outlook.
Numărați numărul de foldere din contul de e-mail specificat sau toate cutiile poștale cu cod VBA
Numărați numărul de foldere din contul de e-mail specificat sau toate cutiile poștale cu cod VBA
Puteți număra numărul de foldere în contul de e-mail specificat sau în toate cutiile poștale cu codul VBA de mai jos. Vă rugăm să faceți următoarele.
1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Formular de utilizator. Vedeți captura de ecran:
3. Apoi introduceți două Butoane de opțiune și două Butoane de comandă în UserForm1și schimbați textul afișat al butoanelor după cum se arată în imaginea de mai jos.
4. Schimbați numele primului buton de opțiune la „opbCurAccount”Și schimbați valoare proprietate pentru Adevărat. Vedeți captura de ecran:
5. Continuați să schimbați numele celui de-al doilea buton de opțiune în „opbAllAccounts”. Și apoi specificați numele celor două butoane de comandă la „cdbOk" și "cdbAnulați" separat.
6. Faceți dublu clic pe orice loc gol al UserForm1, apoi înlocuiți codul original cu codul VBA de mai jos în fereastra Userform1 (Cod).
Cod VBA: Numărați numărul de foldere din 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 Sub8. apasă pe F5 tasta pentru a rula codul. Apoi o UserForm1 se afișează caseta de dialog, pentru numărarea numărului de dosare din contul curent, selectați Cont curent și faceți clic pe OK buton. Pentru numărarea numărului de foldere din toate căsuțele poștale, alegeți Toate conturile și apoi faceți clic pe OK buton. Vedeți captura de ecran:
9. Apoi a Kutools pentru Outlook se afișează caseta de dialog pentru a vă spune câte dosare există în contul curent sau în toate căsuțele poștale, ca în imaginea de mai jos. Vă rugăm să faceți clic pe OK butonul.
notițe: Toate folderele ascunse, cum ar fi folderul Setări acțiune conversație și folderul Setări pas rapid, sunt incluse în numărarea folderelor.
Legate de articole:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
