Barcha Outlook elektron pochta qayd yozuvlaringizdagi barcha "o'chirilgan elementlar" papkalarini qanday bo'shatish kerak

Agar siz Outlook-da bir nechta elektron pochta qayd yozuvlarini sozlagan bo'lsangiz va har bir hisob alohida Outlook ma'lumotlar faylidan foydalansa, sizda bir nechta "O'chirilgan elementlar" papkalari bo'ladi. Har bir elektron pochta qayd yozuvidagi har bir "O'chirilgan elementlar" jildini bo'shatishni istasangiz, ushbu maqoladagi VBA kodidan foydalanishingiz mumkin. Bu ularni ommaviy ravishda bo'shatish imkonini beradi.

Barchamizga ma'lumki, Outlook foydalanuvchilarga bir nechta elektron pochta hisoblarini qo'shish va sozlash imkonini beradi. Bundan tashqari, agar har bir hisob alohida Outlook ma'lumotlar faylidan foydalansa, har bir fayl o'chirilgan narsalarni saqlaydigan "O'chirilgan elementlar" papkasi bilan birga keladi. Barcha "O'chirilgan elementlar" papkalaridagi elementlarning foydasizligini tasdiqlaganingizda, siz papkalarni bo'shatishga moyil bo'lasiz. Bunday holda, agar siz ularni qo'lda bo'shatib qo'ysangiz, bu juda zerikarli bo'lishi mumkin. Quyidagi kabi ularni to'p bo'shatish uchun maslahatni qo'llaganingiz ma'qul.

Barcha elektron pochta hisoblaridagi barcha "o'chirilgan elementlar" papkalarini to'plamdan bo'shatish

1. Eng boshida Outlook dasturini ishga tushiring.
2. Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
3. Keyingi "Ilovalar uchun Microsoft Visual Basic" oynasida siz bo'sh modulni ochishingiz kerak.
4. Keyinchalik, ushbu modulga quyidagi VBA kodlarini nusxa ko'chiring va joylashtiring.

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. Shundan so'ng, Outlook so'l sozlamalarini tekshirishingiz kerak va Outlook-da makrolarga ruxsat berilganligiga ishonch hosil qiling.
6. Oxir-oqibat, siz modulga qaytishingiz va ushbu makrosni ishga tushirish uchun "F5" tugmachasini bosishingiz mumkin.
7. Makrosni ishga tushirgandan so'ng, barcha "O'chirilgan elementlar" papkalari muvaffaqiyatli bo'shatilganligini ko'rishingiz mumkin.

Outlook korruptsiyasi holatida

Hech qachon Outlook ishdan chiqishiga yoki hatto Outlook buzilishiga duch kelganmisiz? Umuman olganda, dahshatli holatlarga qanday munosabatda bo'lasiz? Agar siz Outlook-dan o'nlab yillar davomida foydalansangiz, Outlook-da turli muammolarga duch kelishingiz muqarrar. Shuning uchun, kiruvchi xabarlar qutisini ta'mirlash vositasidan foydalanish, Outlook ma'lumotlarini muntazam ravishda zaxiralash, ishonchli ma'lumotlarni saqlash kabi ba'zi ta'mirlash va tiklash usullarini yodda tutganingiz ma'qul. Outlook tuzatish Ushbu barcha ehtiyot choralari bilan, hatto PST faylingiz buzilgan taqdirda ham, siz hali ham xotirjam bo'lishingiz va Outlook ma'lumotlaringizni osongina topishingiz mumkin.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com