Ako rýchlo odstrániť prílohy z e-mailov starších ako konkrétny dátum pomocou programu Outlook VBA

Z dôvodu zachovania malých rozmerov poštovej schránky programu Outlook a zabránenia poškodeniu údajov programu Outlook sa navrhuje odstrániť prílohy z e-mailov, ktoré boli prijaté alebo odoslané pred konkrétnym obdobím. Tento článok vám pomôže rýchlo ho dosiahnuť pomocou aplikácie Outlook VBA.

Ako všetci vieme, s väčšou poštovou schránkou v Outlooku budú dáta Outlooku oveľa zraniteľnejšie. Preto zvyknem odstraňovať prílohy vo starších e-mailoch, ktoré sú staršie ako konkrétny dátum, pretože tieto prílohy som zvyčajne predtým ukladal na svoj lokálny disk. Ale je trochu nepríjemné, že musím zistiť, aké e-mailové adresy sú staré, a potom prílohy ručne odstrániť. V záujme zvýšenia svojej efektívnosti prichádzam s riešením pomocou aplikácie Outlook VBA.

Odstráňte prílohy z prijatých e-mailov starších ako konkrétny dátum

1. Najskôr otvorte Outlook a prejdite na kartu Vývojár.
2. Potom stlačte tlačidlo „Visual Basic“ v skupine „Code“.
3. Zobrazí sa nové okno. V ňom by ste mali otvoriť nový modul a skopírovať do neho nasledujúce kódy.

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. Teraz môžete opustiť aktuálne okno „Visual Basic“ a pokračovať v pridávaní makra na panel nástrojov Rýchly prístup. Postupujte podľa nasledujúcich pokynov:

• Najskôr stlačte šípku nadol na paneli s nástrojmi Rýchly prístup a v rozbaľovacom zozname zvoľte možnosť „Viac príkazov“.
• Potom by ste mali v poli „Vybrať príkazy z“ zvoliť „Makrá“.
• Ďalej vyberte správne makro a kliknite na tlačidlo „Pridať“ v strede.
• Nakoniec ju aktivujte kliknutím na tlačidlo „OK“ a späť do hlavného okna Outlooku.

5. Nakoniec môžete nájsť a kliknúť na tlačidlo na paneli s nástrojmi Rýchly prístup. Prílohy v e-mailoch, ktoré sú staršie ako vami zadaný dátum, budú rýchlo odstránené.

Odstráňte prílohy z odoslaných e-mailov staršie ako konkrétny dátum

Na dosiahnutie tohto cieľa môžete skopírovať celé kódy VBA vyššie, ale niektoré riadky zmeniť podľa pokynov uvedených nižšie:

1. Najskôr zmeňte všetky kódy „olInbox“ na „olSentItemFolder“ v kódoch VBA.
2. Potom nahraďte „Set olInbox = Session.GetDefaultFolder (olFolderInbox)“ za:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Ďalej nahraďte „intDatDiff = DateDiff („ d “, varItem.ReceivedTime, teraz)“ týmto:

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

Odstráňte nepríjemné chyby programu Outlook

Ak ste Outlook používali dlhší čas, časté chyby sa museli stať bežnou záležitosťou. Je zrejmé, že ich nemôžete predvídať alebo sa ich úplne zbaviť. Čo môžete urobiť, je len pokúsiť sa čo najlepšie vyriešiť ich. Napríklad použite nástroj na opravu doručenej pošty Scanpest.exe opraviť e-mailovú chybu Outlooku. Musíte tiež pravidelne zálohovať svoje údaje z Outlooku v prípade neočakávaného zlyhania.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava SQL Server poškodenie mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S