Kā partijā iztukšot visas mapes “Dzēstie vienumi” visos jūsu Outlook e-pasta kontos

Ja programmā Outlook esat konfigurējis vairākus e-pasta kontus un katrs konts izmanto atsevišķu Outlook datu failu, jums būs vairākas mapes “Dzēstie vienumi”. Ja vēlaties iztukšot katru mapi “Dzēstie vienumi” katrā e-pasta kontā, šajā rakstā varat izmantot VBA koda fragmentu. Tas ļauj tos iztukšot bez taras.

Kā mēs visi zinām, programma Outlook ļauj lietotājiem pievienot un konfigurēt vairākus e-pasta kontus. Turklāt, ja katrā kontā tiek izmantots atsevišķs Outlook datu fails, katram failam būs mape “Izdzēstie vienumi”, kurā glabājas vienumi, kas ir izdzēsti. Apstiprinot, ka vienumi visās mapēs “Dzēstie vienumi” ir bezjēdzīgi, mēdzat mapes iztukšot. Šajā gadījumā, ja jūs tos manuāli iztukšojat, tas var būt ļoti garlaicīgs. Jums ir labāk piemērot padomu, lai tos partijas iztukšotu, piemēram, šo.

Sadaļā Iztukšot visas mapes “Dzēstie vienumi” visos e-pasta kontos

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam Outlook galvenajā logā nospiediet taustiņu “Alt + F11” taustiņus.
3. Pēc tam logā “Microsoft Visual Basic for Applications” ir jāatver tukšs modulis.
4. Pēc tam nokopējiet un ielīmējiet šajā modulī šādus VBA kodus.

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

5. Pēc tam jums jāpārbauda Outlook makro iestatījumi, pārliecinoties, vai makro ir atļauts jūsu Outlook.
6. Galu galā jūs varat atgriezties modulī un nospiest taustiņa “F5”, lai palaistu šo makro.
7. Pēc makro palaišanas var redzēt, ka visas mapes “Dzēstie vienumi” ir veiksmīgi iztukšotas.

Outlook korupcijas gadījumā

Vai esat kādreiz saskāries ar Outlook avāriju vai pat Outlook korupciju? Kā jūs rīkosities šausmīgajos gadījumos? Ja esat izmantojis programmu Outlook gadu desmitiem, neizbēgami tiekas ar dažādiem Outlook jautājumiem. Tāpēc jums labāk vajadzētu paturēt prātā dažus labošanas un atkopšanas veidus, piemēram, izmantojot iesūtnes labošanas rīku, regulāri dublējot Outlook datus, iegūstot stabilu izturību. Outlook labojums Izmantojot visus šos piesardzības pasākumus, pat ja PST fails tiek apdraudēts, jūs joprojām varat būt mierīgs un viegli atrast savus Outlook datus.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar