Kako brzo ukloniti privitke iz poruka e-pošte starijih od određenog datuma pomoću programa Outlook VBA

Kako bi poštanski sandučić Outlooka bio malen i spriječilo oštećenje Outlookovih podataka, predlaže se uklanjanje privitaka iz e-poruka koje su primljene ili poslane prije određenog razdoblja. Ovaj će vam članak pomoći da to brzo postignete uz Outlook VBA.

Kao što svi znamo, s većim poštanskim pretincem programa Outlook, Outlook podaci postat će mnogo ranjiviji. Stoga se navikavam uklanjati privitke u starim e-porukama koje su starije od određenog datuma, budući da sam te privitke obično ranije spremao na svoj lokalni disk. Ali pomalo je problematično to što moram saznati koje su e-poruke zastarjele i zatim ručno ukloniti privitke. Kako bih poboljšao svoju učinkovitost, došao sam do rješenja pomoću Outlook VBA.

Uklonite privitke iz primljenih poruka e-pošte starijih od određenog datuma

1. Za početak otvorite Outlook i idite na karticu “Developer”.
2. Zatim pritisnite gumb "Visual Basic" u grupi "Kôd".
3. Otvorit će se novi prozor. U njemu trebate otvoriti novi modul i u njega kopirati sljedeće kodove.

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. Sada možete izaći iz trenutnog prozora "Visual Basic" i nastaviti s dodavanjem makronaredbe na alatnu traku za brzi pristup. Slijedite korake u nastavku:

• Najprije pritisnite strelicu prema dolje na alatnoj traci za brzi pristup i odaberite "Više naredbi" s padajućeg popisa.
• Zatim biste trebali odabrati “Makronaredbe” u polju “Odaberi naredbe iz”.
• Zatim odaberite ispravnu makronaredbu i kliknite gumb "Dodaj" u sredini.
• Na kraju kliknite gumb "OK" da biste ga omogućili i vratili se u glavni prozor programa Outlook.

5. Na kraju možete pronaći i kliknuti gumb na alatnoj traci za brzi pristup. Privitci u porukama e-pošte koji su stariji od navedenog datuma brzo će se ukloniti.

Uklonite privitke iz poslanih poruka e-pošte starijih od određenog datuma

Da biste postigli ovaj cilj, možete kopirati cijele gornje VBA kodove, ali promijeniti neke određene retke slijedeći donje napomene:

1. Prvo promijenite sve "olInbox" u "olSentItemFolder" u VBA kodovima.
2. Zatim zamijenite "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" s:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Zatim zamijenite "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" s:

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

Uklonite dosadne Outlook pogreške

Ako ste dugo koristili Outlook, česte pogreške sigurno su postale uobičajene stvari. Očito je da ih se ne može predvidjeti ili u potpunosti riješiti. Ono što možete učiniti je samo pokušati ih riješiti. Na primjer, upotrijebite alat za popravak pristigle pošte, Scanpest.exe za popraviti pogrešku Outlook e-pošte. Također, morate napraviti redovitu sigurnosnu kopiju svojih Outlook podataka u slučaju neočekivanog pada.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak SQL Server oštećenje mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com