Si të zbrazni të gjithë dosjet e "artikujve të fshirë" në të gjitha llogaritë tuaja të postës elektronike të Outlook

Nëse keni konfiguruar disa llogari të postës elektronike në Outlook dhe secila llogari përdor një skedar të veçantë të dhënash të Outlook, do të keni disa dosje "Artikuj të Fshirë". Kur dëshironi të zbrazni çdo dosje "Artikuj të fshirë" në çdo llogari të postës elektronike, mund të përdorni pjesën e kodit VBA në këtë artikull. Kjo ju lejon t'i zbrazni ato në masë.

Siç e dimë të gjithë, Outlook lejon përdoruesit të shtojnë dhe konfigurojnë disa llogari të postës elektronike. Plus, nëse çdo llogari përdor një skedar individual të të dhënave Outlook, çdo skedar do të vijë me një dosje "Artikuj të fshirë", e cila ruan artikujt që janë fshirë. Kur konfirmoni se artikujt në të gjitha dosjet "Artikuj të fshirë" janë të padobishëm, do të prireni t'i zbrazni dosjet. Në këtë rast, nëse i zbrazni me dorë, mund të jetë shumë e lodhshme. Është më mirë të aplikoni një këshillë për t'i zbrazur ato në grup, si ai i mëposhtëm.

Grumbulloni zbrazni të gjithë dosjet e "Artikujve të fshirë" në të gjitha llogaritë e postës elektronike

1. Që në fillim, nisni programin tuaj Outlook.
2. Pastaj shtypni butonat "Alt + F11" në dritaren kryesore të Outlook.
3. Më pas në dritaren "Microsoft Visual Basic për Aplikacione", duhet të hapni një modul bosh.
4. Më pas, kopjoni dhe ngjisni kodet e mëposhtme VBA në këtë modul.

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. Pas kësaj, duhet të kontrolloni cilësimet tuaja të makrove të Outlook, duke u siguruar që makrot janë të lejuara në Outlook tuaj.
6. Përfundimisht, mund të ktheheni te moduli dhe të shtypni butonin "F5" për të ekzekutuar këtë makro.
7. Pas ekzekutimit të makros, mund të shihni që të gjitha dosjet "Artikuj të fshirë" janë zbrazur me sukses.

Në rast të korrupsionit në Outlook

A keni hasur ndonjëherë rrëzimin e Outlook apo edhe korrupsionin e Outlook? Në përgjithësi, si do të përballeni me rastet e tmerrshme? Nëse keni përdorur Outlook për dekada, është e pashmangshme të takoni çështje të ndryshme në Outlook-un tuaj. Prandaj, është më mirë të mbani në mendje disa mënyra riparimi dhe rikuperimi, të tilla si përdorimi i veglës së riparimit të kutisë hyrëse, rezervimi i rregullt i të dhënave të Outlook, marrja e një kontrolli të fortë Rregullimi i Outlook mjet, etj. Me të gjitha këto masa paraprake, edhe kur skedari juaj PST komprometohet, ju mund të ruani qetësinë dhe t'i gjeni lehtësisht të dhënat tuaja të Outlook.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregulloni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com