Kuidas automaatselt ümber nimetada või eemaldada vanemaid e-kirju, millel on samad teemad kui uutel sissetulevatel

Outlooki lahendused September 29, 2025

Mõned inimesed loodavad, et Outlook suudab uute meilide saabudes automaatselt kontrollida vanemate meilide teemasid ja ümber nimetada või kustutada vanemad meilid, kui neil on samad teemad kui uutel meilidel. See nõuab Outlook VBA kasutamist. See artikkel aitab teil seda saavutada.

Olete kindlasti saanud palju samateemalisi e-kirju. Kas nende tuvastamine ja eristamine meililoendis on teile pisut tülikas? Või arvate, et need vanemad meilid on teie jaoks kasutud? Kui jah, siis peate lubama Outlookil uute meilide saabumisel automaatselt skannida ja kontrollida kõiki olemasolevaid e-kirju. Kui on meilisõnumeid, millel on samad teemad kui uuel, võib Outlook küsida, kas need ümber nimetada või kustutada. Kahtlemata ei paku Outlook kasutajatele seda tüüpi funktsiooni. Seetõttu peate kasutama VBA-d. Siin tutvustame teile üksikasjalikke koode ja toiminguid.

Vanemate meilide automaatne ümbernimetamine või eemaldamine

  1. Esmalt saate käivitada Outlooki ja minna vahekaardile „Arendaja”.
  2. Seejärel leiate nupu "Visual Basic" ja klõpsake sellel.
  3. Pärast selle tabamist pääsete VBA redaktori aknasse. Selles peate avama projekti "ThisOutlookSession".
  4. Järgmisena peaksite sellesse kopeerima ja kleepima järgmised VBA-koodid.
Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

VBA-koodid – nimetage automaatselt ümber või eemaldage vanad meilid, millel on samad teemad kui uutel sissetulevatel

  1. Seejärel peate selle koodi digitaalselt allkirjastama. Vajutage "Tööriistad" > "Digiallkiri". Seejärel saate hüpikaknast valida ühe olemasoleva sertifikaadi. Kui valmissertifikaati pole, saate uue loomiseks kasutada "VBA projektide digitaalseid sertifikaate".Allkirjastage projekt ThisOutlookSession
  2. Pärast seda saate praegusest aknast väljuda ja jätkata makro sätete muutmist, lubades ainult digitaalselt allkirjastatud makrosid.
  3. Lõpuks saate uue makro aktiveerimiseks Outlooki taaskäivitada. Nüüdsest peale, kui postkasti saabub uusi e-kirju, kontrollib Outlook automaatselt kõiki olemasolevaid e-kirju.
  • Kui vanadel meilidel on sama teema kui uutel, lisab Outlook meili teemale automaatselt järelliite „(Vana)”.
  • Ja kui vanemaid e-kirju on Inboxis hoitud üle 2 kuu, kuvatakse teile teade, mis küsib, kas soovite need kustutada, nagu alloleval pildil. Saate valida "Jah" või "Ei" vastavalt oma vajadustele.Küsib, kas kustutada vanemad meilid

 Outlooki faili korruptsioon suure suuruse tõttu

Mõnel inimesel pole harjumust Outlookis vanu elemente regulaarselt kustutada. Seega on nende Outlooki failid suured, mis on täiesti ebasoovitatav. Seda seetõttu, et liiga suured Outlooki failid on palju haavatavamad kui väikesed. Kui fail on rikutud, on sisseehitatud parandustööriist Scanpst.exe enamikul juhtudel abitu. Teie ainulaadne abinõu võib olla tähelepanuväärne ja ennast tõestanud. rikutud Outlook PST parandustööriistNagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas parandada korrumpeerunud SQL Server mdf andmebaas ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.