Si të riemërtoni ose hiqni automatikisht emailet e vjetra me të njëjtat subjekte si ato të reja hyrëse

Zgjidhjet e Outlook Shtator 29, 2025

Disa njerëz shpresojnë se Outlook mund të kontrollojë automatikisht subjektet e emaileve të vjetra kur të mbërrijnë emailet e reja dhe të riemërtojë ose fshijë emailet e vjetra nëse kanë të njëjtat tema si emailet e reja. Kjo kërkon përdorimin e Outlook VBA. Ky artikull do t'ju ndihmojë ta arrini atë.

Ju duhet të keni marrë ndonjëherë shumë email që kanë të njëjtat tema. A është pak e mundimshme për ju t'i identifikoni dhe dalloni ato në listën e emailit? Apo mendoni se ato emaile të vjetra janë saktësisht të padobishme për ju? Nëse po, duhet të dëshironi të lejoni që Outlook të skanojë dhe kontrollojë automatikisht të gjitha emailet ekzistuese kur të mbërrijnë emailet e reja. Kur ka emaile që kanë të njëjtat tema si ato të reja, Outlook mund t'ju pyesë nëse t'i riemërtoni ose t'i fshini. Pa dyshim, Outlook nuk u ofron përdoruesve këtë lloj funksioni. Prandaj, duhet të drejtoheni në VBA. Këtu do t'ju ekspozojmë kodet dhe operacionet e detajuara.

Riemërtoni automatikisht ose hiqni emailet e vjetra

  1. Në fillim, ju mund të start Outlook dhe shkoni te skeda "Zhvilluesi".
  2. Pastaj do të mund të gjeni dhe klikoni në butonin "Visual Basic".
  3. Pasi ta goditni, do të hyni në dritaren e redaktuesit VBA. Në të, do t'ju duhet të hapni projektin "ThisOutlookSession".
  4. Më pas duhet të kopjoni dhe ngjisni kodet e mëposhtme VBA në të.
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

Kodet VBA - Riemërtoni automatikisht ose hiqni emailet e vjetra me të njëjtat subjekte si ato të reja hyrëse

  1. Më pas, do t'ju kërkohet të nënshkruani në mënyrë dixhitale këtë kod. Shtypni "Mjetet" > "Nënshkrimi Dixhital". Pastaj në kutinë e dialogut që shfaqet, mund të zgjidhni një certifikatë ekzistuese. Nëse nuk ka certifikatë të gatshme, atëherë mund të përdorni "Certifikatat Dixhitale për Projektet VBA" për të krijuar një të re.Nënshkruani Projektin ThisOutlookSession
  2. Pas kësaj, mund të dilni nga dritarja aktuale dhe të vazhdoni të ndryshoni cilësimet e makrove, duke lejuar vetëm makro të nënshkruara dixhitale.
  3. Përfundimisht, ju mund të restart Outlook për të aktivizuar makro të re. Që tani e tutje, kur emailet e reja të mbërrijnë në Inbox, Outlook do të kontrollojë automatikisht të gjitha emailet ekzistuese.
  • Nëse emailet e vjetra kanë të njëjtën temë me ato të reja, atëherë Outlook do të shtojë automatikisht prapashtesën “(Old)” në subjektin e emailit.
  • Dhe nëse emailet e vjetra janë ruajtur në Inbox për më shumë se 2 muaj, atëherë do të merrni një kërkesë, që do t'ju pyesë nëse dëshironi t'i fshini, si në foton më poshtë. Ju mund të zgjidhni "Po" ose "Jo" bazuar në nevojat tuaja.Kërkoni menjëherë nëse do të fshihen emailet e vjetra

 Korrupsioni i skedarit Outlook për shkak të madhësisë së madhe

Disa njerëz nuk kanë zakon të fshijnë artikujt e vjetër rregullisht në Outlook. Kështu skedari i tyre Outlook do të jetë në përmasa të mëdha, gjë që nuk këshillohet saktësisht. Kjo është për shkak se një skedar i madh Outlook është shumë më i prekshëm sesa skedari në madhësi të vogël. Sapo skedari të korruptohet, mjeti i integruar i riparimit, Scanpst.exe, do të jetë i pafuqishëm në most rastet. Vendpushimi juaj unik mund të jetë një vend i jashtëzakonshëm dhe i provuar mirë mjet riparimi i korruptuar i Outlook PST, Si DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim i korruptuar SQL Server baza e të dhënave mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.