Как да преброя броя на папките под определен имейл акаунт или всички пощенски кутии в Outlook?
Тази статия говори за преброяване на броя папки под определен имейл акаунт или всички пощенски кутии в Outlook.
Пребройте броя на папките под определен имейл акаунт или всички пощенски кутии с VBA код
Пребройте броя на папките под определен имейл акаунт или всички пощенски кутии с VBA код
Можете да преброите броя папки под определен имейл акаунт или всички пощенски кутии с по-долу VBA код. Моля, направете следното.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Потребителска форма. Вижте екранна снимка:
3. След това поставете две Бутони за опции и две Командни бутони в Потребителска форма1и променете текста на дисплея на бутоните, както е показано на екранната снимка по-долу.
4. Променете името на първия бутон за опции на „opbCurAccount” и променете стойност имот към Вярно. Вижте екранна снимка:
5. Продължете да променяте името на втория бутон за опции на „opbAllAccounts”. И след това задайте името на двата командни бутона на „cdbOk" и "cdbCancel” отделно.
6. Щракнете двукратно върху всяко празно място на UserForm1 и след това заменете оригиналния код с по-долу VBA код в прозореца Userform1 (Код).
VBA код: Пребройте броя на папките в 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. Натисни F5 ключ за изпълнение на кода. Тогава Потребителска форма1 се появява диалогов прозорец, за преброяване на броя на папките в текущия акаунт, моля, изберете Текуща сметка и щракнете върху OK бутон. За да преброите броя на папките във всички пощенски кутии, изберете Всички сметки и след това кликнете върху OK бутон. Вижте екранна снимка:
9. След това a Kutools за Outlook изскача диалогов прозорец, за да ви каже колко папки съществуват в текущия акаунт или във всички пощенски кутии, както на екранната снимка по-долу. Моля, щракнете върху OK бутон.
Забележка: Всички скрити папки като папката Conversation Action Settings и папката Quick Step Settings са включени в преброяването на папките.
Още по темата:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!