Ինչպես արագ հեռացնել կցորդները որոշակի ամսաթվից ավելի հին նամակներից Outlook VBA-ով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Որպեսզի Outlook-ի փոստարկղը փոքր չափերով պահվի և կանխվի Outlook-ի տվյալների կոռուպցիան, առաջարկվում է հեռացնել կցորդները որոշակի ժամանակահատված առաջ ստացված կամ ուղարկված նամակներից: Այս հոդվածը կօգնի ձեզ արագ իրականացնել այն Outlook VBA-ով:

Ինչպես բոլորս գիտենք, եթե Outlook-ի փոստարկղն ավելի մեծ լինի, Outlook-ի տվյալները շատ ավելի խոցելի կդառնան: Հետևաբար, ես սովոր եմ հեռացնել կցորդները հին նամակներում, որոնք ավելի հին են, քան կոնկրետ ամսաթիվը, քանի որ սովորաբար նախկինում այդ կցորդները պահել եմ իմ տեղական սկավառակի վրա: Բայց մի փոքր անհանգստացնող է, որ ես պետք է պարզեմ, թե որ նամակներն են հնացած, ապա ձեռքով հեռացնել հավելվածները: Իմ արդյունավետությունը բարձրացնելու համար ես լուծում եմ լուծում Outlook VBA-ի միջոցով:

Հեռացրեք առդիրները ստացված նամակներից, որոնք ավելի հին են, քան կոնկրետ ամսաթիվը

Սկսելու համար բացեք Outlook-ը և անցեք «Developer» ներդիրին:
Այնուհետև սեղմեք «Visual Basic» կոճակը «Կոդ» խմբում:
Նոր պատուհան կհայտնվի: Դրանում դուք պետք է բացեք նոր մոդուլ և դրա մեջ պատճենեք հետևյալ ծածկագրերը.

Sub RemoveAttachmentsfromAgedEmail()
    Dim olInbox As Outlook.Folder
    Dim varItem As Variant
    Dim i As Integer
    Dim intDatDiff As Integer
    Dim Att As Attachment
 
    Set olInbox = Session.GetDefaultFolder(olFolderInbox)

    For i = olInbox.Items.Count To 1 Step -1
        Set varItem = olInbox.Items.Item(i)
        If varItem.Class = olMail Then
           'calculate the period between now and the received time 
           intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
           'You can replace "50" as per your needs
           If intDatDiff > 50 Then
              For Each Att In varItem.Attachments
                  Att.Delete
              Next Att
              varItem.Save
           End If
        End If
    Next
End Sub

Այժմ կարող եք դուրս գալ «Visual Basic» ընթացիկ պատուհանից և շարունակել մակրո ավելացնել Quick Access Toolbar-ում: Հետևեք ստորև նշված քայլերին.

Նախ, արագ մուտքի գործիքագոտում սեղմեք ներքև սլաքը և բացվող ցանկից ընտրեք «Ավելի շատ հրամաններ»:
Այնուհետև «Ընտրեք հրամանները» դաշտում պետք է ընտրեք «Macros»:
Հաջորդը ընտրեք ճիշտ մակրո և սեղմեք «Ավելացնել» կոճակը կենտրոնում:
Վերջապես, սեղմեք «OK» կոճակը, այն միացնելու համար և վերադառնաք Outlook-ի հիմնական պատուհանին:

Ի վերջո, դուք կարող եք գտնել և սեղմել կոճակը Quick Access Toolbar-ում: Նամակների կցորդները, որոնք ավելի հին են, քան ձեր նշված ամսաթիվը, արագ կհեռացվեն:

Հեռացրեք առդիրները ուղարկված նամակներից, որոնք ավելի հին են, քան կոնկրետ ամսաթիվը

Այս նպատակին հասնելու համար դուք կարող եք պատճենել վերը նշված ամբողջ VBA կոդերը, բայց փոխել որոշ տողեր՝ հետևելով ստորև նշված ծանուցումներին.

Նախ, VBA կոդերի բոլոր «olInbox»-ը փոխեք «olSentItemFolder»-ի:
Այնուհետև փոխարինեք «Set olInbox = Session.GetDefaultFolder(olFolderInbox)»-ը հետևյալով.

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

Հաջորդը փոխարինեք «intDatDiff = DateDiff(«d», varItem.ReceivedTime, Now)»-ը հետևյալով.

intDatDiff = DateDiff("d", varItem.SentOn, Now)

Վերացրեք անհանգստացնող Outlook- ի սխալները

Եթե դուք երկար ժամանակ օգտագործել եք Outlook-ը, հաճախակի սխալները պետք է սովորական խնդիր դառնան: Ակնհայտ է, որ դուք չեք կարող կանխատեսել կամ ամբողջությամբ ազատվել դրանցից: Այն, ինչ դուք կարող եք անել, պարզապես փորձել ձեր լավագույնը լուծել դրանք: Օրինակ, օգտագործեք մուտքի արկղի վերանորոգման գործիքը, Scanpest.exe-ը ուղղել Outlook էլփոստի սխալը. Բացի այդ, դուք պետք է կանոնավոր կրկնօրինակեք ձեր Outlook-ի տվյալները՝ չնախատեսված վթարի դեպքում:

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

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