Tüm Outlook E-posta Hesaplarınızdaki Tüm “Silinmiş Öğeler” Klasörlerini Toplu Olarak Boşaltma

Outlook'unuzda birkaç e-posta hesabı yapılandırdıysanız ve her hesap ayrı bir Outlook veri dosyası kullanıyorsa, birkaç "Silinmiş Öğeler" klasörünüz olacaktır. Her e-posta hesabındaki "Silinmiş Öğeler" klasörlerini boşaltmak istediğinizde, bu makaledeki VBA kod parçasını kullanabilirsiniz. Bunları toplu olarak boşaltmanıza izin verir.

Hepimizin bildiği gibi, Outlook, kullanıcıların birkaç e-posta hesabı eklemesine ve yapılandırmasına izin verir. Ayrıca, her hesap ayrı bir Outlook veri dosyası kullanıyorsa, her dosya, silinen öğeleri depolayan bir "Silinmiş Öğeler" klasörü ile birlikte gelir. Tüm “Silinmiş Öğeler” klasörlerindeki öğelerin işe yaramaz olduğunu onayladığınızda, klasörleri boşaltma eğiliminde olacaksınız. Bu durumda, bunları manuel olarak boşaltırsanız çok sıkıcı olabilir. Aşağıdaki gibi toplu olarak boşaltmak için bir ipucu uygulamanız daha iyi olur.

Tüm E-posta Hesaplarındaki Tüm “Silinmiş Öğeler” Klasörlerini Toplu Olarak Boşaltın

1. En başta, Outlook programınızı başlatın.
2. Ardından, ana Outlook penceresindeki “Alt + F11” tuş düğmelerine basın.
3. Sonraki “Microsoft Visual Basic for Applications” penceresinde boş bir modül açmanız gerekiyor.
4. Ardından, aşağıdaki VBA kodlarını kopyalayıp bu modüle yapıştı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'ta makrolara izin verildiğinden emin olarak Outlook makro ayarlarınızı kontrol etmelisiniz.
6. Sonunda modüle geri dönebilir ve bu makroyu çalıştırmak için “F5” tuşuna basabilirsiniz.
7. Makro çalıştırıldıktan sonra, tüm “Deleted Items” klasörlerinin başarıyla boşaltıldığını görebilirsiniz.

Outlook Bozulması Durumunda

Hiç Outlook çökmesiyle veya hatta Outlook bozulmasıyla karşılaştınız mı? Genel olarak, korkunç vakalarla nasıl başa çıkacaksınız? Outlook'u onlarca yıldır kullandıysanız, Outlook'unuzda çeşitli sorunlarla karşılaşmanız kaçınılmazdır. Bu nedenle, gelen kutusu onarım aracını kullanmak, Outlook verilerini düzenli olarak yedeklemek, sağlam bir bilgisayara sahip olmak gibi bazı onarım ve kurtarma yollarını aklınızda bulundursanız iyi olur. Outlook düzeltmesi aracı, vb. Tüm bu önlemlerle, PST dosyanız tehlikeye girse bile, yine de sakin kalabilir ve Outlook verilerinizi kolayca geri bulabilirsiniz.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi düzelt ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com