Таны бүх Outlook имэйл дансанд байгаа "Устгасан зүйл" хавтаснуудыг бүгдийг нь хэрхэн яаж багцлах вэ

Хэрэв та Outlook дээр хэд хэдэн имэйлийн данс тохируулсан бөгөөд данс бүр тусдаа Outlook мэдээллийн файл ашигладаг бол танд хэд хэдэн “Устгасан зүйл” хавтас байх болно. Имэйлийн данс бүр дэх "Устгасан зүйл" хавтас бүрийг хоослохыг хүсвэл энэ нийтлэл дэх VBA кодын хэсгийг ашиглаж болно. Энэ нь тэдгээрийг бөөнөөр нь хоослох боломжийг танд олгоно.

Outlook нь хэрэглэгчдэд хэд хэдэн имэйлийн данс нэмэх, тохируулах боломжийг олгодог гэдгийг бид бүгд мэднэ. Нэмж дурдахад, данс бүр Outlook-ийн өгөгдлийн файлыг ашигладаг бол файл бүрийг устгасан "Устгасан зүйл" хавтастай ирдэг. Бүх "Устгасан зүйл" фолдер доторх зүйлс ямар ч ашиггүй болохыг баталгаажуулснаар та фолдеруудыг хоослох хандлагатай болно. Энэ тохиолдолд та тэдгээрийг гараар хоослох тохиолдолд энэ нь маш их уйтгартай байж болно. Дараахтай адил тэдгээрийг багцлан хоослох зөвлөмжийг ашиглах нь дээр.

Бүх "Устгасан зүйл" хавтасыг бүх имэйлийн дансанд багцлах

1. Хамгийн эхэнд Outlook програмаа ажиллуулаарай.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчлууруудыг дар.
3. Дараа нь "Програмд ​​зориулсан Microsoft Visual Basic" цонхонд хоосон модулийг нээх хэрэгтэй.
4. Дараа нь дараахь VBA кодыг хуулж аваад энэ модуль дээр буулгана уу.

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. Үүний дараа та Outlook макро тохиргоогоо шалгаж, Outlook дээр макро зөвшөөрөгдсөн эсэхийг шалгаарай.
6. Эцэст нь та модуль руугаа буцаж очоод “F5” товчлуур дээр дарж энэ макрог ажиллуулж болно.
7. Макро ажилласны дараа бүх "Устгасан зүйл" фолдерыг амжилттай хоосолсныг харж болно.

Хэтийн төлөвийн авлигын үед

Та Outlook-ийн сүйрэл эсвэл Outlook-ийн авлигад өртөж байсан уу? Ерөнхийдөө та аймшигт хэргүүдийг хэрхэн шийдвэрлэх вэ? Хэрэв та олон арван жилийн турш Outlook ашигладаг байсан бол Outlook дээр янз бүрийн асуудалтай тулгарах нь гарцаагүй юм. Тиймээс имэйлийн хайрцаг засах хэрэгслийг ашиглах, Outlook-ийн өгөгдлийг тогтмол нөөцлөх, найдвартай байлгах гэх мэт засвар, сэргээн засах аргуудыг санаж байх хэрэгтэй. Outlook засах хэрэгсэл гэх мэт. Эдгээр бүх урьдчилан сэргийлэх арга хэмжээний тусламжтайгаар таны PST файл эвдэрсэн ч гэсэн та тайван байж, Outlook-ийн мэдээллээ хялбархан олох боломжтой болно.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com