Slik fjerner du raskt vedlegg fra e-poster eldre enn en bestemt dato med Outlook VBA

Outlook-løsninger September 29, 2025

For å holde Outlook-postboksen i liten størrelse og forhindre korrupsjon av Outlook-data, foreslås det å fjerne vedlegg fra e-postene som ble mottatt eller sendt for en bestemt periode siden. Denne artikkelen vil hjelpe deg å raskt oppnå det med Outlook VBA.

Som vi alle vet, med større Outlook-postkasse, vil Outlook-data bli mye mer sårbare. Derfor blir jeg vant til å fjerne vedleggene i de gamle e-postene som er eldre enn en bestemt dato, siden jeg vanligvis har lagret disse vedleggene på min lokale disk før. Men det er litt plagsomt at jeg må finne ut hvilke e-poster som er eldre og deretter manuelt fjerne vedleggene. For å forbedre effektiviteten min kommer jeg opp med en løsning ved hjelp av Outlook VBA.

Fjern vedlegg fra mottatte e-poster eldre enn en bestemt dato

  1. Til å begynne med, åpne Outlook og gå til "Utvikler" -fanen.
  2. Trykk deretter på "Visual Basic"-knappen i "Code"-gruppen.Visual Basic-knapp
  3. Et nytt vindu vil dukke opp. I den bør du åpne en ny modul og kopiere følgende koder inn i den.
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

Koden tar sikte på å fjerne vedlegg

  1. Nå kan du gå ut av det gjeldende "Visual Basic"-vinduet og fortsette å legge til makroen til Quick Access Toolbar. Følg trinnene nedenfor:
  • Først trykker du på pil ned i hurtigtilgangsverktøylinjen og velger "Flere kommandoer" fra rullegardinlisten.
  • Deretter bør du velge "Makroer" i "Velg kommandoer fra"-feltet.
  • Velg deretter riktig makro og klikk "Legg til"-knappen i midten.Legg til den nye makroen til verktøylinjen for hurtigtilgang
  • Til slutt klikker du på "OK"-knappen for å aktivere den og gå tilbake til hovedvinduet i Outlook.
  1. Etter hvert kan du finne og klikke på knappen i verktøylinjen for hurtigtilgang. Vedleggene i e-postene, som er eldre enn den angitte datoen, vil bli fjernet raskt.Fjern vedlegg fra eldre e-poster av VBA

Fjern vedlegg fra sendte e-poster eldre enn en bestemt dato

For å oppnå dette målet kan du kopiere hele VBA-kodene ovenfor, men endre noen bestemte linjer ved å følge merknadene nedenfor:

  1. Først endrer du alle "olInbox" til "olSentItemFolder" i VBA-kodene.
  2. Erstatt deretter "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" med:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
  1. Erstatt deretter "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" med:
intDatDiff = DateDiff("d", varItem.SentOn, Now)

Eliminer irriterende Outlook-feil

Hvis du har brukt Outlook lenge, må hyppige feil ha blitt vanlige saker. Det er tydelig at du ikke kan forutsi eller fullstendig bli kvitt dem. Det du kan gjøre er bare å prøve ditt beste for å løse dem. Bruk for eksempel reparasjonsverktøyet for innboks, Scanpest.exe til fikse Outlook e-postfeil. Du må også ta en regelmessig sikkerhetskopi av Outlook-dataene dine i tilfelle uventet krasj.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon SQL Server mdf skade og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.