Kuinka nopeasti poistaa liitteet tiettyä päivämäärää vanhemmista sähköposteista Outlook VBA:lla

Outlook-postilaatikon pitämiseksi pienenä ja Outlookin tietojen vioittumisen estämiseksi on suositeltavaa poistaa liitteet sähköpostiviesteistä, jotka on vastaanotettu tai lähetetty tietty aika sitten. Tämä artikkeli auttaa sinua saavuttamaan sen nopeasti Outlook VBA:n avulla.

Kuten kaikki tiedämme, Outlook-postilaatikon kasvaessa Outlook-tiedoista tulee paljon haavoittuvampia. Siksi olen tottunut poistamaan vanhojen sähköpostien liitteet, jotka ovat tiettyä päivämäärää vanhempia, koska olen yleensä tallentanut nämä liitteet paikalliselle levylleni aiemmin. Mutta on hieman hankalaa, että minun on selvitettävä, mitkä sähköpostit ovat vanhentuneita, ja sitten poistettava liitteet manuaalisesti. Tehokkuuden parantamiseksi keksin ratkaisun Outlook VBA:n avulla.

Poista liitteet vastaanotetuista sähköposteista, jotka ovat vanhempia kuin tietty päivämäärä

1. Aloita avaamalla Outlook ja siirtymällä "Kehittäjä"-välilehteen.
2. Paina sitten Visual Basic -painiketta "Koodi"-ryhmässä.
3. Uusi ikkuna avautuu. Siinä sinun pitäisi avata uusi moduuli ja kopioida siihen seuraavat koodit.

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. Nyt voit poistua nykyisestä "Visual Basic" -ikkunasta ja jatkaa makron lisäämistä Quick Access Toolbariin. Noudata alla olevia ohjeita:

• Napsauta ensin pikatyökalupalkin alanuolta ja valitse avattavasta luettelosta "Lisää komentoja".
• Sitten sinun tulee valita "Makrot" "Valitse komennot" -kentästä.
• Valitse seuraavaksi oikea makro ja napsauta "Lisää" -painiketta keskellä.
• Napsauta lopuksi "OK" -painiketta ottaaksesi sen käyttöön ja palataksesi Outlookin pääikkunaan.

5. Lopulta voit löytää ja napsauttaa painiketta Quick Access Toolbarissa. Sähköpostien liitteet, jotka ovat määritettyäsi päivämäärää vanhemmat, poistetaan nopeasti.

Poista liitteet lähetetyistä sähköpostiviesteistä, jotka ovat vanhempia kuin tiettyä päivämäärää

Tämän tavoitteen saavuttamiseksi voit kopioida kaikki yllä olevat VBA-koodit, mutta muuttaa joitain rivejä noudattamalla alla olevia huomautuksia:

1. Ensinnäkin, muuta kaikki "olInbox" muotoon "olSentItemFolder" VBA-koodeissa.
2. Korvaa sitten "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" seuraavalla:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Korvaa seuraavaksi "intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)" seuraavasti:

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

Poista ärsyttävät Outlook-virheet

Jos olet käyttänyt Outlookia pitkään, toistuvista virheistä on täytynyt tulla yleisiä asioita. On ilmeistä, että et voi ennustaa tai päästä niistä kokonaan eroon. Mitä voit tehdä, on vain yrittää parhaasi ratkaista ne. Käytä esimerkiksi sähköpostilaatikon korjaustyökalua Scanpest.exe korjaa Outlook-sähköpostivirhe. Sinun on myös tehtävä säännöllisesti varmuuskopio Outlook-tiedoista odottamattoman kaatumisen varalta.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus SQL Server mdf-vaurio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com