Kung na-configure mo ang maraming mga email account sa iyong Outlook at ang bawat account ay gumagamit ng isang hiwalay na file ng data ng Outlook, magkakaroon ka ng maraming mga folder na "Mga Na-delete na Item". Kung nais mong alisan ng laman ang bawat folder na "Mga Tinanggal na Item" sa bawat email account, maaari mong magamit ang piraso ng VBA code sa artikulong ito. Pinapayagan ka nitong alisan ng laman ang mga ito nang maramihan.
Tulad ng alam nating lahat, pinapayagan ng Outlook ang mga gumagamit na magdagdag at mag-configure ng maraming mga email account. Dagdag pa, kung ang bawat account ay gumagamit ng isang indibidwal na file ng data ng Outlook, ang bawat file ay may kasamang isang folder na "Tinanggal na Mga Item", na kung saan ang pag-iimbak ng mga item ay tinanggal. Kapag nakumpirma mo na ang mga item sa lahat ng mga folder na "Tinanggal na Mga Item" ay walang silbi, malamang na alisan mo ng laman ang mga folder. Sa kasong ito, kung manu-manong tinatanggal mo ang mga ito, maaari itong maging nakakapagod. Mas mahusay kang mag-apply ng isang tip upang ma-walang laman ang mga ito, tulad ng sumusunod.
Batch Empty Lahat ng Mga Folder na "Tinanggal na Mga Item" sa Lahat ng Mga Email Account
- Sa simula pa lamang, ilunsad ang iyong programa sa Outlook.
- Pagkatapos ay pindutin ang "Alt + F11" na mga pindutan ng key sa pangunahing window ng Outlook.
- Susunod sa window na "Microsoft Visual Basic for Applications", kailangan mong buksan ang isang blangko na module.
- Kasunod, kopyahin at i-paste ang mga sumusunod na VBA code sa modyul na ito.
Sub BatchEmptyAllDeletedItemsFolder()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objPSTFile As Outlook.Folder
Dim objFolders As Outlook.folders
Dim objFolder As Object
Set objStores = Outlook.Application.Session.Stores
'Process all Outlook PST files in your Outlook
For Each objStore In objStores
Set objPSTFile = objStore.GetRootFolder
For Each objFolder In objPSTFile.folders
Call ProcessFolders(objFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim i, n As Long
If objCurrentFolder.Name = "Deleted Items" Then
'Delete all the items in "Deleted Items" folder
For i = objCurrentFolder.Items.Count To 1 Step -1
objCurrentFolder.Items.Item(i).Delete
'Delete all the subfolders under "Deleted Items" folder
For n = objCurrentFolder.folders.Count To 1 Step -1
objCurrentFolder.folders.Item(n).Delete
Next
Next
End If
End Sub
- Pagkatapos nito, dapat mong suriin ang iyong mga setting ng macro ng Outlook, tinitiyak na pinahihintulutan ang mga macros sa iyong Outlook.
- Sa paglaon, maaari kang bumalik sa module at pindutin ang "F5" key button upang patakbuhin ang macro na ito.
- Matapos ang macro na tumatakbo, maaari mong makita na ang lahat ng mga folder na "Mga Na-delete na Item" ay matagumpay na na-emptiyo.
Sa Kaganapan ng Korapsyon sa Outlook
Naranasan mo na ba ang pag-crash ng Outlook o kahit ang katiwalian sa Outlook? Sa pangkalahatan, paano mo haharapin ang mga kakila-kilabot na kaso? Kung nagamit mo ang Outlook sa mga dekada, hindi maiwasan na makilala ang iba't ibang mga isyu sa iyong Outlook. Samakatuwid, mas mahusay na itago mo sa iyong isip ang ilang mga paraan ng pag-aayos at pag-recover, tulad ng paggamit ng tool sa pag-aayos ng inbox, regular na pag-back up ng data ng Outlook, pagkuha ng isang malakas Inaayos ang Outlook tool, atbp Sa lahat ng mga pag-iingat na ito, kahit na nakompromiso ang iyong PST file, maaari mo pa ring panatilihing kalmado at madaling makita ang iyong data sa Outlook.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa