Sut i swp dileu pob ffolder gwag yn Outlook?
Tybiwch fod yna ddwsinau o ffolderau gwag o dan ffolder post yn Outlook, yn gyffredinol gallwn ddileu'r ffolderau gwag fesul un trwy ddewislen clicio ar y dde. O'i gymharu â chlicio i'r dde dro ar ôl tro, bydd yr erthygl hon yn cyflwyno VBA i ddileu pob is-ffolder gwag o un ffolder Outlook yn gyflym mewn swmp.
Swp dileu pob ffolder gwag yn Outlook gyda VBA
- Awtomeiddio e-bostio gyda Auto CC / BCC, Auto Ymlaen gan reolau; anfon Ymateb Auto (Allan o'r Swyddfa) heb fod angen gweinydd cyfnewid...
- Cael nodiadau atgoffa fel Rhybudd BCC wrth ymateb i bawb tra'ch bod ar restr BCC, a Atgoffwch Wrth Ymlyniadau ar Goll am atodiadau anghofiedig...
- Gwella effeithlonrwydd e-bost gyda Ateb (Pawb) Gydag Atodiadau, Ychwanegu Cyfarchiad neu Dyddiad ac Amser yn Awtomatig i'r Llofnod neu'r Pwnc, Ateb E-byst Lluosog...
- Symleiddio e-bostio gyda E-byst Dwyn i gof, Offer Ymlyniad (Cywasgu Pawb, Auto Save All...), Tynnwch y Dyblygion, a Adroddiad Cyflym...
Swp dileu pob ffolder gwag yn Outlook gyda VBA
I gael gwared ar holl is-ffolderi gwag ffolder Outlook penodol, gwnewch fel a ganlyn:
1. Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan god VBA i mewn i ffenestr y modiwl newydd.
VBA: Dileu pob is-ffolder gwag o ffolder Outlook penodol mewn swmp
Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder 'Declare sub folder objects
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then 'If the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub
3. Gwasgwch F5 Allweddol neu Run botwm i redeg y cod VBA hwn.
4. Yn y blwch deialog Dewis Ffolder, dewiswch y ffolder benodol y byddwch chi'n ei dileu mewn swmp, a chliciwch ar yr is-ffolderi gwag. OK botwm. Gweler y screenshot:
5. Nawr mae blwch deialog Kutools ar gyfer Outlook yn dod allan ac yn dangos i chi faint o is-ffolderi gwag sydd wedi'u dileu. Cliciwch ar y OK botwm i'w gau.
Hyd yn hyn, mae holl is-ffolderi’r ffolder Outlook penodedig wedi’u dileu mewn swmp yn barod.
Erthyglau Perthnasol
Dewch o hyd i ffolder (llwybr ffolder llawn) yn ôl enw'r ffolder 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.