Kuidas kiiresti eemaldada manuseid teatud kuupäevast vanematest meilidest Outlook VBA abil

Outlooki lahendused September 29, 2025

Outlooki postkasti väikese suuruse hoidmiseks ja Outlooki andmete riknemise vältimiseks on soovitatav eemaldada manused meilidest, mis saadeti või saadeti teatud aja eest. See artikkel aitab teil seda Outlook VBA-ga kiiresti saavutada.

Nagu me kõik teame, muutuvad Outlooki postkasti suuremad andmed palju haavatavamaks. Seetõttu olen harjunud vanade meilide manuste eemaldamisega, mis on teatud kuupäevast vanemad, kuna tavaliselt olen need manused varem oma kohalikule kettale salvestanud. Kuid see on natuke tülikas, et pean välja selgitama, millised meilid on vananenud, ja seejärel käsitsi eemaldama manused. Tõhususe parandamiseks leian lahenduse Outlook VBA abil.

Eemaldage manused vastuvõetud meilidest, mis on vanemad kui teatud kuupäev

  1. Alustuseks avage Outlook ja minge vahekaardile "Arendaja".
  2. Seejärel vajutage rühmas "Kood" nuppu "Visual Basic".Visual Basic nupp
  3. Ilmub uus aken. Selles peaksite avama uue mooduli ja kopeerima sellesse järgmised koodid.
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

Koodi eesmärk oli manuseid eemaldada

  1. Nüüd saate praegusest Visual Basicu aknast väljuda ja jätkata makro lisamist kiirpääsu tööriistaribale. Järgige alltoodud samme.
  • Esiteks vajutage kiirpääsuriba allanoolt ja valige ripploendist "Veel käske".
  • Seejärel peaksite väljal "Vali käsud" valima "Makrod".
  • Järgmisena valige õige makro ja klõpsake keskel nuppu "Lisa".Lisage kiirjuurdepääsu tööriistaribale uus makro
  • Lõpuks klõpsake selle lubamiseks ja Outlooki põhiaknasse naasmiseks nuppu "OK".
  1. Lõpuks leiate kiirjuurdepääsu tööriistaribalt nupu ja klõpsake sellel. Kirjade manused, mis on teie määratud kuupäevast vanemad, eemaldatakse kiiresti.Eemaldage VBA manused vananenud meilidest

Eemaldage manused saadetud meilidest, mis on vanemad kui teatud kuupäev

Selle eesmärgi saavutamiseks võite ülaltoodud VBA koodid kopeerida, kuid mõnda rida muuta, järgides allolevaid märkusi:

  1. Esiteks muutke VBA koodides kogu "olInbox" väärtuseks "olSentItemFolder".
  2. Seejärel asendage "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" järgmisega:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
  1. Järgmisena asendage "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" järgmisega:
intDatDiff = DateDiff("d", varItem.SentOn, Now)

Kõrvaldage tüütud Outlooki vead

Kui olete Outlooki pikka aega kasutanud, peavad sagedased vead muutunud tavaliseks. On ilmne, et te ei saa neid ennustada ega neist täielikult lahti saada. Mida saate teha, on lihtsalt anda endast parim nende lahendamiseks. Kasutage näiteks postkasti parandustööriista Scanpest.exe parandage Outlooki meili viga. Samuti peate ootamatu krahhi korral oma Outlooki andmetest regulaarselt varundama.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont SQL Server mdf kahjustus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.