A mellékletek gyors eltávolítása egy adott dátumnál régebbi e-mailekből az Outlook VBA segítségével

Az Outlook-postafiók kis méretének megőrzése és az Outlook-adatok sérülésének megelőzése érdekében javasoljuk, hogy távolítsa el a mellékleteket azokból az e-mailekből, amelyeket egy adott időszakkal ezelőtt kapott vagy küldött. Ez a cikk segít gyorsan végrehajtani az Outlook VBA-val.

Amint azt mindannyian tudjuk, az Outlook-postafiók nagyobb méretével az Outlook-adatok sokkal sebezhetőbbé válnak. Ezért hozzászoktam ahhoz, hogy eltávolítsam az elöregedett e-mailek mellékleteit, amelyek egy adott dátumnál régebbiek, mivel általában korábban már mentettem ezeket a mellékleteket a helyi lemezemre. De egy kicsit zavaró, hogy ki kell derítenem, hogy mely e-mailek régiek, majd manuálisan el kell távolítanom a mellékleteket. Hatékonyságom javítása érdekében az Outlook VBA segítségével találok ki megoldást.

Távolítsa el a mellékleteket az adott dátumnál régebbi fogadott e-mailekből

1. Először nyissa meg az Outlookot, és lépjen a „Fejlesztő” fülre.
2. Ezután nyomja meg a „Visual Basic” gombot a „Kód” csoportban.
3. Megjelenik egy új ablak. Ebben meg kell nyitnia egy új modult, és be kell másolnia a következő kódokat.

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. Most kiléphet a jelenlegi „Visual Basic” ablakból, és folytathatja a makró hozzáadását a Gyorselérési eszköztárhoz. Kövesse az alábbi lépéseket:

• Először nyomja meg a lefelé mutató nyilat a Gyorselérési eszköztáron, és válassza a „További parancsok” lehetőséget a legördülő listából.
• Ezután válassza ki a „Makrók” lehetőséget a „Parancsok kiválasztása” mezőben.
• Ezután válassza ki a megfelelő makrót, és kattintson a középső „Hozzáadás” gombra.
• Végül kattintson az „OK” gombra, hogy engedélyezze, és visszatérjen az Outlook főablakába.

5. Végül megtalálhatja és rákattinthat a gombra a Gyorselérési eszköztárban. A levelek mellékletei, amelyek régebbiek a megadott dátumnál, gyorsan eltávolíthatók.

Távolítsa el a mellékleteket az adott dátumnál régebbi elküldött e-mailekből

E cél elérése érdekében átmásolhatja a fenti teljes VBA-kódokat, de módosíthat néhány sort az alábbi megjegyzések követésével:

1. Először módosítsa az összes „olInbox”-ot „olSentItemFolder”-re a VBA-kódokban.
2. Ezután cserélje ki a „Set olInbox = Session.GetDefaultFolder(olFolderInbox)” szöveget a következőre:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Ezután cserélje ki az „intDatDiff = DateDiff(“d”, varItem.ReceivedTime, Now)” szöveget a következőre:

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

Távolítsa el a bosszantó Outlook-hibákat

Ha már régóta használja az Outlookot, a gyakori hibák valószínűleg gyakoriak. Nyilvánvaló, hogy nem lehet megjósolni vagy teljesen megszabadulni tőlük. Amit tehet, az az, hogy mindent megtesz, hogy megoldja őket. Használja például a beérkező levelek javítóeszközét, a Scanpest.exe-t javítsa ki az Outlook e-mail hibáját. Ezenkívül rendszeres biztonsági mentést kell készítenie az Outlook adatairól váratlan összeomlás esetén.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás SQL Server mdf sérülés és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com