Hur man automatiskt byter namn på eller tar bort äldre e-postmeddelanden med samma ämnen som de nya inkommande

Outlook-lösningar September 29, 2025

Vissa människor hoppas att Outlook automatiskt kan kontrollera ämnena för äldre e-postmeddelanden när nya e-postmeddelanden anländer och byta namn på eller ta bort de äldre e-postmeddelandena om de har samma ämnen som de nya e-postmeddelandena. Detta kräver användning av Outlook VBA. Denna artikel hjälper dig att uppnå det.

Du måste någonsin ha fått många e-postmeddelanden som har samma ämnen. Är det lite besvärligt för dig att identifiera och urskilja dem i e-postlistan? Eller tror du att de äldre e-postmeddelandena är exakt värdelösa för dig? Om så är fallet måste du önska att Outlook automatiskt skannar och kontrollerar alla befintliga e-postmeddelanden när nya e-postmeddelanden kommer. När det finns e-postmeddelanden som har samma ämnen som det nya kan Outlook fråga dig om du vill byta namn på eller ta bort dem. Utan tvekan ger Outlook inte användare den här typen av funktioner. Därför måste du tillgripa VBA. Här kommer vi att exponera detaljerade koder och operationer för dig.

Byt namn på eller ta bort äldre e-postmeddelanden automatiskt

  1. Först kan du starta Outlook och gå till fliken "Utvecklare".
  2. Då kommer du att kunna hitta och klicka på “Visual Basic” -knappen.
  3. När du har tryckt på den kommer du till VBA-redigeringsfönstret. I det måste du öppna projektet "ThisOutlookSession".
  4. Därefter bör du kopiera och klistra in följande VBA-koder i den.
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-koder - Byt namn på eller ta bort äldre e-postmeddelanden med samma ämnen som de nya inkommande

  1. Därefter måste du signera den här koden digitalt. Klicka på "Verktyg"> "Digital signatur". Sedan i popup-dialogrutan kan du välja ett befintligt certifikat. Om inget färdigt certifikat kan du använda “Digitala certifikat för VBA-projekt” för att skapa ett nytt.Underteckna ThisOutlookSession-projektet
  2. Därefter kan du stänga det aktuella fönstret och fortsätta ändra makroinställningarna, endast tillåta digitalt signerade makron.
  3. Så småningom kan du starta om Outlook för att aktivera det nya makrot. Från och med nu, när nya e-postmeddelanden anländer till inkorgen, kommer Outlook automatiskt att kontrollera alla befintliga e-postmeddelanden.
  • Om de gamla e-postmeddelandena har samma ämne som det nya kommer Outlook automatiskt att lägga till suffixet "(Gammalt)" till e-postämnet.
  • Och om de äldre e-postmeddelandena har lagrats i Inbox i mer än två månader, kommer du att få en fråga och fråga dig om du vill ta bort dem, som bilden nedan. Du kan välja “Ja” eller “Nej” baserat på dina egna behov.Fråga snabbt om du vill ta bort de äldre e-postmeddelandena

 Outlook-filkorruption på grund av stor storlek

Vissa personer har inte för vana att regelbundet radera gamla objekt i Outlook. Därför blir deras Outlook-filer stora, vilket är helt olämpligt. Det beror på att en för stor Outlook-fil är mycket mer sårbar än en liten fil. När filen blir skadad kommer det inbyggda reparationsverktyget Scanpst.exe i de flesta fall att vara hjälplöst. Din unika lösning kan vara en anmärkningsvärd och väl beprövad lösning. skadad Outlook PST reparationsverktyg, tycka om DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparation korrupt SQL Server mdf-databas och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.