Bütün Outlook E-poçt Hesablarınızda Bütün “Silinmiş Elementlər” Qovluqlarını Toplu Necə Boşaldır

Əgər siz Outlook-da bir neçə e-poçt hesabı konfiqurasiya etmisinizsə və hər bir hesab ayrıca Outlook məlumat faylından istifadə edirsə, sizdə bir neçə “Silinmiş Elementlər” qovluğu olacaq. Hər bir e-poçt hesabında hər bir “Silinmiş Elementlər” qovluğunu boşaltmaq istədiyiniz zaman bu məqalədəki VBA kodundan istifadə edə bilərsiniz. Bu, onları toplu şəkildə boşaltmağa imkan verir.

Hamımızın bildiyi kimi, Outlook istifadəçilərə bir neçə e-poçt hesabı əlavə etmək və konfiqurasiya etmək imkanı verir. Bundan əlavə, hər bir hesab fərdi Outlook məlumat faylından istifadə edirsə, hər bir fayl silinmiş elementləri saxlayan "Silinmiş Elementlər" qovluğu ilə gələcək. Bütün “Silinmiş Elementlər” qovluqlarındakı elementlərin yararsız olduğunu təsdiqlədiyiniz zaman qovluqları boşaltmağa meylli olacaqsınız. Bu vəziyyətdə, onları əl ilə boşaltsanız, çox yorucu ola bilər. Aşağıdakı kimi yığınları boşaltmaq üçün ipucu tətbiq etsəniz daha yaxşı olar.

Bütün E-poçt Hesablarında Bütün “Silinmiş Elementlər” Qovluqlarını Toplu Boşaldır

1. Ən başlanğıcda Outlook proqramını işə salın.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonra "Proqramlar üçün Microsoft Visual Basic" pəncərəsində boş bir modul açmalısınız.
4. Sonradan aşağıdakı VBA kodlarını kopyalayıb bu modula yapışdırın.

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. Bundan sonra, Outlook-da makrolara icazə verildiyinə əmin olaraq, Outlook makro parametrlərinizi yoxlamalısınız.
6. Nəhayət, modula qayıdıb bu makronu işə salmaq üçün “F5” düyməsini sıxa bilərsiniz.
7. Makro işə salındıqdan sonra bütün “Silinmiş Elementlər” qovluqlarının uğurla boşaldığını görə bilərsiniz.

Outlook Korrupsiyası Halında

Heç Outlook qəzası və ya hətta Outlook korrupsiyası ilə qarşılaşmısınızmı? Ümumiyyətlə, dəhşətli hadisələrin öhdəsindən necə gələcəksiniz? Əgər siz onilliklər ərzində Outlook-dan istifadə etmisinizsə, Outlook-da müxtəlif problemlərlə qarşılaşmağınız qaçılmazdır. Buna görə də, gələnlər qutusunun təmiri alətindən istifadə etmək, Outlook məlumatlarının müntəzəm surətdə ehtiyat nüsxəsini çıxarmaq, etibarlı bir məlumat əldə etmək kimi bəzi təmir və bərpa yollarını fikrinizdə saxlamağınız daha yaxşıdır. Outlook düzəlişi alət və s. Bütün bu ehtiyat tədbirləri ilə, hətta PST faylınız təhlükə altına düşsə belə, siz hələ də sakitləşə və Outlook məlumatlarınızı asanlıqla tapa bilərsiniz.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql-ı düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com