Kaip greitai pašalinti priedus iš el. laiškų, senesnių nei tam tikra data, naudojant „Outlook VBA“.

Kad „Outlook“ pašto dėžutė būtų maža ir būtų išvengta „Outlook“ duomenų sugadinimo, siūloma pašalinti priedus iš el. laiškų, kurie buvo gauti arba išsiųsti prieš tam tikrą laikotarpį. Šis straipsnis padės greitai tai padaryti naudojant „Outlook VBA“.

Kaip visi žinome, padidinus „Outlook“ pašto dėžutę, „Outlook“ duomenys taps daug labiau pažeidžiami. Todėl aš pripratau pašalinti senesnių el. laiškų priedus, kurie yra senesni nei tam tikra data, nes dažniausiai šiuos priedus išsaugodavau savo vietiniame diske. Tačiau šiek tiek vargina tai, kad turiu išsiaiškinti, kokie el. laiškai yra pasenę, ir tada rankiniu būdu pašalinti priedus. Siekdamas pagerinti savo efektyvumą, sugalvoju sprendimą naudodamas Outlook VBA.

Pašalinkite priedus iš gautų el. laiškų, senesnių nei tam tikra data

1. Norėdami pradėti, atidarykite „Outlook“ ir pasukite į skirtuką „Kūrėjas“.
2. Tada grupėje „Kodas“ paspauskite mygtuką „Visual Basic“.
3. Atsidarys naujas langas. Jame turėtumėte atidaryti naują modulį ir į jį nukopijuoti šiuos kodus.

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

4. Dabar galite išeiti iš dabartinio „Visual Basic“ lango ir pridėti makrokomandą prie greitosios prieigos įrankių juostos. Atlikite toliau nurodytus veiksmus.

• Pirmiausia greitosios prieigos įrankių juostoje paspauskite rodyklę žemyn ir išskleidžiamajame sąraše pasirinkite „Daugiau komandų“.
• Tada lauke „Pasirinkti komandas iš“ turėtumėte pasirinkti „Makrokomandos“.
• Tada pasirinkite tinkamą makrokomandą ir spustelėkite mygtuką „Pridėti“ centre.
• Galiausiai spustelėkite mygtuką „Gerai“, kad jį įjungtumėte ir grįžtumėte į pagrindinį „Outlook“ langą.

5. Galų gale galite rasti ir spustelėti mygtuką Greitosios prieigos įrankių juostoje. Laiškų priedai, kurie yra senesni nei nurodyta data, bus greitai pašalinti.

Pašalinkite priedus iš išsiųstų el. laiškų, senesnių nei tam tikra data

Norėdami pasiekti šį tikslą, galite nukopijuoti visus aukščiau nurodytus VBA kodus, bet pakeisti kai kurias eilutes vadovaudamiesi toliau pateiktais įspėjimais:

1. Pirmiausia pakeiskite visą „olInbox“ į „olSentItemFolder“ VBA koduose.
2. Tada pakeiskite „Set olInbox = Session.GetDefaultFolder(olFolderInbox)“ į:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Tada pakeiskite "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" į:

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

Pašalinkite erzinančias „Outlook“ klaidas

Jei ilgą laiką naudojote „Outlook“, dažnos klaidos turėjo tapti įprastomis problemomis. Akivaizdu, kad negalite jų numatyti ar visiškai atsikratyti. Ką galite padaryti, tai tiesiog stengtis jas išspręsti. Pavyzdžiui, naudokite gautųjų taisymo įrankį Scanpest.exe ištaisyti Outlook el. pašto klaidą. Taip pat turite reguliariai kurti atsarginę „Outlook“ duomenų kopiją netikėtai įvykus gedimui.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server mdf pažeidimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com