Sut i gyfrif nifer yr is-ffolderi o dan ffolder penodol yn Outlook?
Gan dybio eich bod wedi creu rhai ffolderau o dan ffolder gwreiddiau. Nawr rydych chi eisiau gwybod faint o is-ffolderi o dan y ffolder gwreiddiau, sut allwch chi wneud? Dim ond ehangu'r ffolder gwreiddiau a chyfrif yr holl is-ffolderi â llaw fesul un? Bydd yr erthygl hon yn cyflwyno dull hawdd i chi ei gyflawni.
Cyfrif nifer yr is-ffolderi â chod VBA
Cyfrif nifer yr is-ffolderi â chod VBA
Gall y cod VBA canlynol eich helpu i gyfrif nifer yr is-ffolderi o dan ffolder gwreiddiau penodol yn Outlook. 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 > Modiwlau. Yna copïwch a gludwch islaw cod VBA i mewn i ffenestr y Cod.
Cod VBA: cyfrif nifer yr is-ffolderi o dan ffolder penodol yn Outlook
Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
Exit Sub
End If
For Each xFolder In xRootFolder.Folders
If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
xFolderCount = xFolderCount + 1
Call ProcessFolders(xFolder, xFolderCount)
End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
Call ProcessFolders(xSubFolder, Num)
Next
End Sub
3. Gwasgwch y F5 allwedd i redeg y cod.
4. Yn yr agoriad Dewis Ffolder blwch deialog, dewiswch ffolder y byddwch chi'n cyfrif ei is-ffolderi, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
5. Yna a Kutools ar gyfer Rhagolwg blwch deialog yn ymddangos i ddweud wrthych faint o is-ffolderi sy'n bodoli yn y ffolder penodedig. Gweler y screenshot:
Erthyglau cysylltiedig:
- Sut i gyfrif nifer y ffolderau o dan gyfrif e-bost penodol neu'r holl flychau post yn Outlook?
- Sut i uno pob blwch derbyn o gyfrifon lluosog i arddangos pob e-bost gyda'i gilydd yn Outlook?
- Sut i arddangos deialog “Pori am Ffolder” ar gyfer dewis ffolder yn Outlook?
- Sut i ddod o hyd i ffolder ar goll a symudwyd ar ddamwain yn Outlook?
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.