როგორ დავაცალოთ ყველა „წაშლილი ელემენტის“ საქაღალდეები თქვენი Outlook ელფოსტის ყველა ანგარიშში

თუ თქვენს Outlook-ში რამდენიმე ელფოსტის ანგარიში გაქვთ კონფიგურირებული და თითოეული ანგარიში იყენებს ცალკე Outlook მონაცემთა ფაილს, თქვენ გექნებათ რამდენიმე „წაშლილი ელემენტი“ საქაღალდე. როდესაც გსურთ დაიცალათ თითოეული „წაშლილი ნივთები“ საქაღალდე ყველა ელ.ფოსტის ანგარიშში, შეგიძლიათ გამოიყენოთ VBA კოდის ნაწილი ამ სტატიაში. ეს საშუალებას გაძლევთ დაიცალოთ ისინი ნაყარად.

როგორც ყველამ ვიცით, Outlook მომხმარებლებს საშუალებას აძლევს დაამატონ და დააკონფიგურირონ რამდენიმე ელ.ფოსტის ანგარიში. გარდა ამისა, თუ თითოეული ანგარიში იყენებს Outlook-ის ინდივიდუალურ მონაცემთა ფაილს, ყველა ფაილს მოყვება საქაღალდე „Deleted Items“, რომელიც ინახავს წაშლილ ელემენტებს. როდესაც დაადასტურებთ, რომ ყველა "წაშლილი ელემენტის" საქაღალდეში არსებული ელემენტები გამოუსადეგარია, საქაღალდეების დაცლას აპირებთ. ამ შემთხვევაში, თუ მათ ხელით დაცლით, ეს შეიძლება ძალიან დამღლელი იყოს. სჯობს გამოიყენოთ წვერი მათი სერიული დაცლისათვის, როგორიცაა შემდეგი.

სერიული დაცარიელება ყველა „წაშლილი ელემენტის“ საქაღალდე ელფოსტის ყველა ანგარიშში

1. თავიდანვე გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ დააჭირეთ "Alt + F11" ღილაკებს Outlook-ის მთავარ ფანჯარაში.
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 მონაცემების რეგულარულად სარეზერვო ასლის შექმნა, გამძლეობის ხელში ჩაგდება. Outlook შესწორება ინსტრუმენტი და ა.შ. ყველა ამ სიფრთხილით, მაშინაც კი, როდესაც თქვენი PST ფაილი დაზიანდება, თქვენ მაინც შეგიძლიათ შეინარჩუნოთ სიმშვიდე და ადვილად იპოვოთ თქვენი Outlook მონაცემები.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის გაასწორე sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად