Snel bijlagen verwijderen uit e-mails die ouder zijn dan een specifieke datum met Outlook VBA

Om de Outlook-mailbox klein te houden en corruptie van Outlook-gegevens te voorkomen, wordt voorgesteld om bijlagen te verwijderen van de e-mails die een bepaalde periode geleden zijn ontvangen of verzonden. Dit artikel helpt u dit snel te bereiken met Outlook VBA.

Zoals we allemaal weten, zullen Outlook-gegevens met een groter Outlook-postvak veel kwetsbaarder worden. Daarom raak ik gewend aan het verwijderen van de bijlagen in verouderde e-mails die ouder zijn dan een bepaalde datum, aangezien ik deze bijlagen meestal eerder op mijn lokale schijf heb opgeslagen. Maar het is een beetje lastig dat ik moet uitzoeken welke e-mails verouderd zijn en vervolgens de bijlagen handmatig moet verwijderen. Om mijn efficiëntie te verbeteren bedenk ik een oplossing door middel van Outlook VBA.

Verwijder bijlagen van ontvangen e-mails die ouder zijn dan een specifieke datum

1. Open om te beginnen Outlook en ga naar het tabblad "Ontwikkelaar".
2. Druk vervolgens op de knop "Visual Basic" in de groep "Code".
3. Er verschijnt een nieuw venster. Daarin moet u een nieuwe module openen en de volgende codes erin kopiëren.

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. Nu kunt u het huidige "Visual Basic" -venster verlaten en doorgaan met het toevoegen van de macro aan de werkbalk Snelle toegang. Volg onderstaande stappen:

• Druk eerst op de pijl naar beneden in de werkbalk Snelle toegang en kies "Meer opdrachten" in de vervolgkeuzelijst.
• Selecteer vervolgens "Macro's" in het veld "Kies opdrachten uit".
• Selecteer vervolgens de juiste macro en klik op de knop "Toevoegen" in het midden.
• Klik ten slotte op de knop "OK" om deze in te schakelen en terug te gaan naar het hoofdvenster van Outlook.

5. Uiteindelijk kunt u de knop in de werkbalk Snelle toegang vinden en erop klikken. De bijlagen in de mails, die ouder zijn dan de door u opgegeven datum, worden snel verwijderd.

Bijlagen verwijderen uit verzonden e-mails die ouder zijn dan een specifieke datum

Om dit doel te bereiken, kunt u de volledige VBA-codes hierboven kopiëren, maar enkele bepaalde regels wijzigen door de onderstaande mededelingen te volgen:

1. Wijzig eerst alle "olInbox" in "olSentItemFolder" in de VBA-codes.
2. Vervang vervolgens "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" door:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Vervang vervolgens "intDatDiff = DateDiff ("d", varItem.ReceivedTime, Now)" door:

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

Elimineer vervelende Outlook-fouten

Als u Outlook al lang gebruikt, moeten frequente fouten gewone zaken zijn geworden. Het is duidelijk dat je ze niet kunt voorspellen of er helemaal vanaf kunt komen. Wat u kunt doen, is gewoon uw best doen om ze op te lossen. Gebruik bijvoorbeeld de inbox-reparatietool Scanpest.exe om fix Outlook e-mailfout. U moet ook regelmatig een back-up maken van uw Outlook-gegevens in geval van een onverwachte crash.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie SQL Server mdf schade en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com