Jak rychle odstranit přílohy z e-mailů starších než konkrétní datum pomocí aplikace Outlook VBA

Abychom zachovali malou velikost poštovní schránky aplikace Outlook a zabránili poškození dat aplikace Outlook, doporučuje se odebrat přílohy z e-mailů, které byly přijaty nebo odeslány před konkrétním obdobím. Tento článek vám pomůže rychle toho dosáhnout pomocí aplikace Outlook VBA.

Jak všichni víme, s větší poštovní schránkou aplikace Outlook budou data aplikace Outlook mnohem zranitelnější. Proto jsem si zvykl odstraňovat přílohy ve starých e-mailech, které jsou starší než konkrétní datum, protože jsem tyto přílohy obvykle dříve uložil na svůj místní disk. Je ale trochu nepříjemné, že musím zjistit, jaké e-maily jsou staré, a poté přílohy ručně odstranit. Abych zlepšil svoji efektivitu, přicházím s řešením pomocí Outlook VBA.

Odeberte přílohy z přijatých e-mailů starších než konkrétní datum

1. Nejprve otevřete Outlook a přejděte na kartu Vývojář.
2. Poté stiskněte tlačítko „Visual Basic“ ve skupině „Code“.
3. Objeví se nové okno. V něm byste měli otevřít nový modul a zkopírovat do něj následující 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. Nyní můžete opustit aktuální okno „Visual Basic“ a přidat makro na panel nástrojů Rychlý přístup. Postupujte podle následujících pokynů:

• Nejprve stiskněte šipku dolů na panelu nástrojů Rychlý přístup a v rozevíracím seznamu vyberte možnost Další příkazy.
• Poté byste měli v poli „Vybrat příkazy z“ vybrat „Makra“.
• Dále vyberte správné makro a uprostřed klikněte na tlačítko „Přidat“.
• Nakonec je aktivujte kliknutím na tlačítko „OK“ a zpět do hlavního okna aplikace Outlook.

5. Nakonec můžete najít a kliknout na tlačítko na panelu nástrojů Rychlý přístup. Přílohy v e-mailech, které jsou starší než zadané datum, budou rychle odstraněny.

Odeberte přílohy z odeslaných e-mailů starších než konkrétní datum

K dosažení tohoto cíle můžete zkopírovat celé kódy VBA výše, ale změnit některé řádky podle pokynů níže:

1. Nejprve změňte všechny kódy „olInbox“ na „olSentItemFolder“ v kódech VBA.
2. Poté nahraďte „Set olInbox = Session.GetDefaultFolder (olFolderInbox)“ tímto:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Dále nahraďte „intDatDiff = DateDiff („ d “, varItem.ReceivedTime, nyní)“ tímto:

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

Odstraňte nepříjemné chyby aplikace Outlook

Pokud jste Outlook používali dlouho, časté chyby se musely stát běžnými záležitostmi. Je zřejmé, že je nemůžete předvídat nebo se jich úplně zbavit. Co můžete udělat, je jen pokusit se je co nejlépe vyřešit. Například použijte nástroj pro opravu doručené pošty Scanpest.exe opravit chybu e-mailu aplikace Outlook. Rovněž musíte provést pravidelnou zálohu dat aplikace Outlook v případě neočekávaného selhání.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit SQL Server poškození MDF a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com