Kako brzo ukloniti priloge iz e-poruka starijih od određenog datuma pomoću Outlook VBA

Kako bi Outlook poštanski sandučić ostao u maloj veličini i spriječio oštećenje Outlook podataka, predlaže se uklanjanje priloga iz e-poruka koje su primljene ili poslane prije određenog perioda. Ovaj članak će vam pomoći da to brzo postignete pomoću Outlook VBA.

Kao što svi znamo, sa većim poštanskim sandučićem Outlooka, Outlook podaci će postati mnogo ranjiviji. Stoga sam navikao da uklanjam priloge u starim mejlovima koji su stariji od određenog datuma, jer sam te priloge obično ranije spremao na svoj lokalni disk. Ali malo je problematično što moram saznati koji su e-mailovi stari, a zatim ručno ukloniti priloge. Kako bih poboljšao svoju efikasnost, dolazim do rješenja pomoću Outlook VBA.

Uklonite priloge iz primljenih e-poruka starijih od određenog datuma

1. Za početak otvorite Outlook i idite na karticu "Programer".
2. Zatim pritisnite dugme „Visual Basic“ u grupi „Kod“.
3. Pojavit će se novi prozor. U njemu biste trebali otvoriti novi modul i kopirati u njega 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 makroa na traku s alatima za brzi pristup. Slijedite dolje navedene korake:

• Prvo, pritisnite strelicu nadole na alatnoj traci za brzi pristup i sa padajuće liste izaberite „Više komandi“.
• Zatim treba da izaberete „Makroi” u polju „Izaberite komande iz”.
• Zatim odaberite ispravan makro i kliknite na dugme „Dodaj“ u sredini.
• Na kraju, kliknite na dugme "OK" da biste ga omogućili i vratili se u glavni prozor programa Outlook.

5. Na kraju možete pronaći i kliknuti na dugme na traci sa alatkama za brzi pristup. Prilozi u mailovima, koji su stariji od navedenog datuma, brzo će se ukloniti.

Uklonite priloge iz poslanih e-poruka starijih od određenog datuma

Da biste postigli ovaj cilj, možete kopirati cijele VBA kodove iznad, ali promijeniti neke određene linije slijedeći napomene u nastavku:

1. Prvo, promijenite sav "olInbox" u "olSentItemFolder" u VBA kodovima.
2. Zatim zamijenite “Set olInbox = Session.GetDefaultFolder(olFolderInbox)” sa:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Zatim zamijenite “intDatDiff = DateDiff(“d”, varItem.ReceivedTime, Now)” sa:

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

Uklonite dosadne Outlook greške

Ako ste dugo koristili Outlook, česte greške moraju postati uobičajene stvari. Očigledno je da ih se ne možete predvidjeti ili potpuno riješiti. Ono što možete učiniti je samo da se potrudite da ih riješite. Na primjer, koristite alat za popravku pristigle pošte, Scanpest.exe za popravi grešku Outlook e-pošte. Takođe, morate redovno praviti rezervnu kopiju svojih Outlook podataka u slučaju neočekivanog pada.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Popravak SQL Server oštećenje mdf-a i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com