Kako hitro odstraniti priloge iz e-poštnih sporočil, starejših od določenega datuma, z Outlookom VBA

Da bi ohranili Outlookov nabiralnik majhne velikosti in preprečili poškodbe Outlookovih podatkov, je priporočljivo odstraniti priloge iz e-poštnih sporočil, ki so bila prejeta ali poslana pred določenim obdobjem. Ta članek vam bo pomagal, da to hitro dosežete z Outlookom VBA.

Kot vsi vemo, bodo z večjim Outlookovim nabiralnikom Outlookovi podatki postali veliko bolj ranljivi. Zato se navadim odstraniti priloge v starih e-poštnih sporočilih, ki so starejša od določenega datuma, saj sem te priloge običajno že prej shranil na lokalni disk. Vendar je nekoliko težavno, da moram ugotoviti, katera e-poštna sporočila so stara, in nato ročno odstraniti priloge. Da bi izboljšal svojo učinkovitost, sem prišel do rešitve s pomočjo Outlook VBA.

Odstranite priloge iz prejetih e-poštnih sporočil, starejših od določenega datuma

1. Za začetek odprite Outlook in pojdite na zavihek »Razvijalec«.
2. Nato pritisnite gumb "Visual Basic" v skupini "Koda".
3. Odprlo se bo novo okno. V njem morate odpreti nov modul in vanj kopirati naslednje kode.

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. Zdaj lahko zapustite trenutno okno »Visual Basic« in nadaljujete z dodajanjem makra v orodno vrstico za hitri dostop. Sledite spodnjim korakom:

• Najprej pritisnite puščico navzdol v orodni vrstici za hitri dostop in na spustnem seznamu izberite »Več ukazov«.
• Nato morate v polju »Izberi ukaze iz« izbrati »Makri«.
• Nato izberite pravi makro in kliknite gumb »Dodaj« na sredini.
• Na koncu kliknite gumb »V redu«, da ga omogočite in se vrnete v glavno okno Outlooka.

5. Sčasoma lahko najdete in kliknete gumb v orodni vrstici za hitri dostop. Priloge v sporočilih, ki so starejše od datuma, ki ste ga navedli, bodo hitro odstranjene.

Odstranite priloge iz poslanih e-poštnih sporočil, starejših od določenega datuma

Da bi dosegli ta cilj, lahko kopirate celotne zgornje kode VBA, vendar spremenite nekatere določene vrstice tako, da sledite spodnjim obvestilom:

1. Najprej spremenite vse »olInbox« v »olSentItemFolder« v kodah VBA.
2. Nato zamenjajte »Set olInbox = Session.GetDefaultFolder(olFolderInbox)« z:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Nato zamenjajte "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" z:

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

Odpravite nadležne napake v Outlooku

Če ste Outlook uporabljali dlje časa, so pogoste napake zagotovo postale pogoste zadeve. Očitno je, da jih ne morete predvideti ali se jih popolnoma znebiti. Kar lahko storite, je, da se potrudite, da jih razrešite. Uporabite na primer orodje za popravilo mape »Prejeto« Scanpest.exe za popravi napako e-pošte Outlook. Poleg tega morate redno varnostno kopirati svoje Outlookove podatke v primeru nepričakovanega zrušitve.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo SQL Server poškodbe mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com