Ինչպե՞ս դատարկել բոլոր «tedնջված իրերի» պանակները ձեր Outlook էլփոստի բոլոր հաշիվներում

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Եթե ​​ձեր Outlook- ում մի քանի էլփոստի հաշիվ եք կազմաձևել, և յուրաքանչյուր հաշիվ օգտագործում է առանձին Outlook տվյալների ֆայլ, ապա կունենաք մի քանի «leնջված իրեր» պանակ: Երբ ցանկանում եք յուրաքանչյուր «tedնջված իրեր» թղթապանակը դատարկել յուրաքանչյուր էլփոստի հաշվի մեջ, կարող եք օգտագործել այս հոդվածի VBA կոդի կտորը: Այն թույլ է տալիս դրանք մեծ քանակությամբ դատարկել:

Ինչպես բոլորս գիտենք, Outlook- ը օգտվողներին թույլ է տալիս ավելացնել և կարգավորել մի քանի էլփոստի հաշիվ: Բացի այդ, եթե յուրաքանչյուր հաշիվ օգտագործում է անհատական ​​Outlook տվյալների ֆայլ, յուրաքանչյուր ֆայլ կգա «leնջված իրեր» պանակով, որը պահում է իրերը ջնջված: Երբ հաստատեք, որ «tedնջված իրեր» բոլոր պանակների իրերն անօգուտ են, դուք հակված կլինեք դատարկել պանակները: Այս դեպքում, եթե ձեռքով դրանք դատարկեք, դա կարող է շատ հոգնեցուցիչ լինել: Ավելի լավ է, որ դրանք խմբաքանակով դատարկեք խորհուրդներ կիրառեք, ինչպես հետևյալը:

Բոլոր «Deնջված իրերի» պանակները խմբաքանակով դատարկեք ձեր բոլոր Outlook էլփոստի հաշիվներում

Բոլոր «tedնջված իրերի» պանակները խմբաքանակով դատարկեք բոլոր էլփոստի հաշիվներում

  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

VBA կոդ. «Բոլորը» ջնջված »պանակները խմբաքանակով դատարկեք ձեր բոլոր Outlook էլփոստի հաշիվներում

  1. Դրանից հետո դուք պետք է ստուգեք ձեր Outlook մակրո պարամետրերը ՝ համոզվելով, որ մակրոները թույլատրվում են ձեր Outlook- ում:
  2. Ի վերջո, կարող եք վերադառնալ մոդուլ և սեղմել «F5» ստեղնի կոճակը ՝ այս մակրո գործարկման համար:
  3. Մակրո գործարկումից հետո կտեսնեք, որ բոլոր «leնջված նյութեր» պանակները հաջողությամբ դատարկվել են:

Հեռանկարային կոռուպցիայի դեպքում

Երբևէ բախե՞լ եք Outlook- ի վթարի կամ նույնիսկ Outlook- ի կոռուպցիայի: Ընդհանրապես, ինչպե՞ս եք վարվելու սարսափելի դեպքերի հետ: Եթե ​​տասնամյակներ օգտագործել եք Outlook- ը, ձեր Outlook- ում անխուսափելի է հանդիպել տարբեր հարցերի: Հետևաբար, ավելի լավ է ձեր մտքում պահեք վերականգնման և վերականգնման որոշ ձևեր, ինչպիսիք են մուտքի արկղի նորոգման գործիքի օգտագործումը, Outlook- ի տվյալների պարբերաբար պահուստավորումը, ամուր բռնումը Outlook- ի շտկում գործիք և այլն: Այս բոլոր նախազգուշական միջոցներով, նույնիսկ այն դեպքում, երբ ձեր PST ֆայլը վտանգվում է, դուք միևնույն ժամանակ կարող եք հանգստություն պահպանել և հեշտությամբ գտնել ձեր Outlook տվյալները:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ֆիքսել sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: