Az összes „törölt elem” mappa kötegelt ürítése az összes Outlook e-mail fiókban

Ha több e-mail fiókot konfigurált az Outlookban, és mindegyik fiók külön Outlook adatfájlt használ, akkor több „Törölt elemek” mappája lesz. Ha minden e-mail fiókban ki szeretné üríteni a „Törölt elemek” mappát, használhatja a cikkben található VBA-kód darabját. Lehetővé teszi, hogy tömegesen ürítse ki őket.

Mint mindannyian tudjuk, az Outlook lehetővé teszi a felhasználók számára, hogy több e-mail fiókot adjanak hozzá és konfiguráljanak. Ráadásul, ha minden fiók külön Outlook-adatfájlt használ, minden fájlhoz tartozik egy „Törölt elemek” mappa, amely a törölt elemeket tárolja. Ha megerősíti, hogy a „Törölt elemek” mappában lévő elemek haszontalanok, akkor hajlamos lesz a mappák kiürítésére. Ebben az esetben, ha manuálisan üríti ki őket, az nagyon fárasztó lehet. Jobb, ha egy tippet alkalmaz a kötegelt ürítéshez, például az alábbihoz.

Kötegelt ürítse ki az összes „Törölt elemek” mappát az összes e-mail fiókban

1. A legelején indítsa el az Outlook programot.
2. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook főablakában.
3. Ezután a „Microsoft Visual Basic for Applications” ablakban meg kell nyitnia egy üres modult.
4. Ezt követően másolja ki és illessze be a következő VBA-kódokat ebbe a modulba.

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. Ezt követően ellenőrizze az Outlook makró beállításait, és győződjön meg arról, hogy a makrók engedélyezettek az Outlookban.
6. Végül visszatérhet a modulhoz, és megnyomhatja az „F5” gombot a makró futtatásához.
7. A makró lefutása után láthatja, hogy az összes „Törölt elemek” mappa sikeresen kiürült.

Az Outlook korrupciója esetén

Találkozott már valaha az Outlook összeomlásával vagy akár az Outlook korrupciójával? Általában hogyan fog kezelni a szörnyű eseteket? Ha évtizedek óta használja az Outlookot, elkerülhetetlen, hogy különféle problémákkal találkozzon az Outlookban. Ezért jobb, ha észben tart néhány javítási és helyreállítási módot, például a beérkező levelek javítóeszközét, az Outlook adatok rendszeres biztonsági mentését, egy robusztus Outlook javítás Ezekkel az óvintézkedésekkel még akkor is nyugodt maradhat, ha a PST-fájl veszélybe kerül, és könnyedén megtalálhatja Outlook adatait.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com