Sut i gyfrif nifer y ffolderau o dan gyfrif e-bost penodol neu'r holl flychau post yn Outlook?
Mae'r erthygl hon yn sôn am gyfrif nifer y ffolderau o dan gyfrif e-bost penodol neu'r holl flychau post yn Outlook.
Cyfrif nifer y ffolderau o dan gyfrif e-bost penodol neu bob blwch post sydd â chod VBA
Cyfrif nifer y ffolderau o dan gyfrif e-bost penodol neu bob blwch post sydd â chod VBA
Gallwch gyfrif nifer y ffolderau o dan gyfrif e-bost penodol neu bob blwch post sydd â chod VBA islaw. Gwnewch fel a ganlyn.
1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Ffurflen ddefnyddiwr. Gweler y screenshot:
3. Yna mewnosodwch ddau Botymau Opsiwn a dau Botymau Gorchymyn i mewn i DefnyddiwrForm1, a newid testun arddangos y botymau fel y dangosir isod.
4. Newid enw'r botwm opsiwn cyntaf i “opbCyfrif”A newid y gwerth eiddo i Cywir. Gweler y screenshot:
5. Ewch ymlaen i newid enw'r botwm ail opsiwn i “opbAllCyfrifon”. Ac yna nodwch enw'r ddau fotwm gorchymyn i “cdbOk"A"cdbCanslo”Ar wahân.
6. Cliciwch ddwywaith ar unrhyw le gwag o UserForm1, ac yna disodli'r cod gwreiddiol gyda chod VBA islaw yn y ffenestr Userform1 (Cod).
Cod VBA: Cyfrif nifer y ffolderau yn 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. Gwasgwch y F5 allwedd i redeg y cod. Yna a DefnyddiwrForm1 blwch deialog yn ymddangos, ar gyfer cyfrif nifer y ffolderau yn y cyfrif cyfredol, dewiswch y Cyfrif Cyfredol opsiwn a chliciwch ar y OK botwm. Ar gyfer cyfrif nifer y ffolderau ym mhob blwch post, dewiswch y Pob Cyfrif dewis ac yna cliciwch ar OK botwm. Gweler y screenshot:
9. Yna a Kutools ar gyfer Rhagolwg blwch deialog yn ymddangos i ddweud wrthych faint o ffolderau sy'n bodoli yn y cyfrif cyfredol neu'r holl flychau post fel y nodir isod. Cliciwch y OK botwm.
Nodyn: Mae'r holl ffolderau cudd fel y ffolder Gosodiadau Gweithredu Sgwrs a'r ffolder Gosodiadau Cam Cyflym wedi'u cynnwys yn y ffolder sy'n cyfrif.
Erthyglau cysylltiedig:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!