Sådan fjerner du hurtigt vedhæftede filer fra e-mails ældre end en bestemt dato med Outlook VBA

For at holde Outlook-postkassen i lille størrelse og forhindre Outlook-datakorruption, foreslås det at fjerne vedhæftede filer fra de e-mails, der blev modtaget eller sendt for en bestemt periode siden. Denne artikel hjælper dig med hurtigt at opnå det med Outlook VBA.

Som vi alle ved, med Outlook-postkassen større, vil Outlook-data blive meget mere sårbare. Derfor vænner jeg mig til at fjerne de vedhæftede filer i de gamle e-mails, som er ældre end en bestemt dato, da jeg normalt har gemt disse vedhæftede filer på min lokale disk før. Men det er lidt besværligt, at jeg skal finde ud af, hvilke e-mails der er ælde og så manuelt fjerne de vedhæftede filer. For at forbedre min effektivitet kommer jeg med en løsning ved hjælp af Outlook VBA.

Fjern vedhæftede filer fra modtagne e-mails, der er ældre end en bestemt dato

1. Til at begynde med skal du åbne Outlook og gå til fanen "Udvikler".
2. Tryk derefter på knappen "Visual Basic" i gruppen "Kode".
3. Et nyt vindue vil dukke op. I det skal du åbne et nyt modul og kopiere følgende koder ind i det.

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 kan du afslutte det aktuelle "Visual Basic" vindue og fortsætte med at tilføje makroen til Quick Access Toolbar. Følg nedenstående trin:

• Først skal du trykke på pil ned i værktøjslinjen Hurtig adgang og vælge "Flere kommandoer" fra rullelisten.
• Derefter skal du vælge "Makroer" i feltet "Vælg kommandoer fra".
• Vælg derefter den korrekte makro og klik på knappen "Tilføj" i midten.
• Til sidst skal du klikke på knappen "OK" for at aktivere det og tilbage til Outlook-hovedvinduet.

5. Til sidst kan du finde og klikke på knappen i Quick Access Toolbar. De vedhæftede filer i mails, som er ældre end din angivne dato, bliver hurtigt fjernet.

Fjern vedhæftede filer fra sendte e-mails, der er ældre end en bestemt dato

For at nå dette mål kan du kopiere hele VBA-koderne ovenfor, men ændre nogle bestemte linjer ved at følge meddelelserne nedenfor:

1. For det første skal du ændre alle "olInbox" til "olSentItemFolder" i VBA-koderne.
2. Erstat derefter "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" med:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Erstat derefter "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" med:

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

Fjern irriterende Outlook-fejl

Hvis du har brugt Outlook i længere tid, må hyppige fejl være blevet almindelige ting. Det er tydeligt, at du ikke kan forudsige eller helt slippe af med dem. Hvad du kan gøre er bare at prøve dit bedste for at løse dem. Brug f.eks. indbakkereparationsværktøjet, Scanpest.exe til ret Outlook e-mail-fejl. Du skal også lave en regelmæssig sikkerhedskopi af dine Outlook-data i tilfælde af uventet nedbrud.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere SQL Server mdf skader og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com