Sådan omdøbes eller fjernes ældre e-mails automatisk med de samme emner som de nye indkommende

Outlook-løsninger September 29, 2025

Nogle mennesker håber, at Outlook automatisk kan kontrollere emnerne på de ældre e-mails, når der kommer nye e-mails, og omdøbe eller slette de ældre e-mails, hvis de har de samme emner som de nye e-mails. Dette kræver brug af Outlook VBA. Denne artikel hjælper dig med at nå det.

Du skal nogensinde have modtaget mange e-mails, der har de samme emner. Er det lidt besværligt for dig at identificere og skelne dem i e-mail-listen? Eller tror du, at de ældre e-mails er nøjagtigt ubrugelige for dig? I så fald skal du ønske at lade Outlook automatisk scanne og kontrollere alle eksisterende e-mails, når der kommer nye e-mails. Når der er e-mails, der har de samme emner som det nye, kan Outlook bede dig om at omdøbe eller slette dem. Uden tvivl giver Outlook ikke brugerne denne slags funktion. Derfor skal du ty til VBA. Her vil vi udsætte de detaljerede koder og operationer for dig.

Navngiv automatisk eller fjern de ældre e-mails

  1. Først kan du starte Outlook og gå til fanen "Udvikler".
  2. Derefter vil du være i stand til at finde og klikke på “Visual Basic” -knappen.
  3. Når du har ramt det, får du adgang til VBA-editorvinduet. I det skal du åbne “ThisOutlookSession” -projektet.
  4. Dernæst skal du kopiere og indsætte følgende 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 - Omdøb eller fjern automatisk de ældre e-mails med de samme emner som de nye indkommende

  1. Derefter skal du underskrive denne kode digitalt. Tryk på "Værktøjer"> "Digital signatur". Derefter kan du i popup-dialogboksen vælge et eksisterende certifikat. Hvis der ikke er noget færdigt certifikat, kan du bruge “Digitale certifikater til VBA-projekter” til at oprette et nyt.Underskriv projektet ThisOutlookSession
  2. Derefter kan du lukke det aktuelle vindue og fortsætte med at ændre makroindstillingerne, kun tillade digitalt signerede makroer.
  3. Til sidst kan du genstarte Outlook for at aktivere den nye makro. Fra nu af vil Outlook automatisk tjekke alle eksisterende e-mails, når der ankommer nye e-mails til indbakken.
  • Hvis de gamle e-mails har det samme emne som det nye, tilføjer Outlook automatisk "(Gammel)" suffiks til e-mail-emnet.
  • Og hvis de ældre e-mails er gemt i Indbakke i over 2 måneder, vil du modtage en prompt, der spørger dig, om du vil slette dem, som billedet nedenfor. Du kan vælge “Ja” eller “Nej” baseret på dine egne behov.Spørg, om de ældre e-mails skal slettes

 Outlook-filkorruption på grund af stor størrelse

Nogle mennesker har ikke for vane at slette gamle elementer regelmæssigt i Outlook. Derfor vil deres Outlook-fil være stor, hvilket er præcis frarådeligt. Det skyldes, at en overdimensioneret Outlook-fil er langt mere sårbar end en fil i lille størrelse. Når filen bliver beskadiget, vil det indbyggede reparationsværktøj, Scanpst.exe, i de fleste tilfælde være ubrugeligt. Din unikke løsning kan være en bemærkelsesværdig og velafprøvet løsning. beskadiget Outlook PST reparationsværktøjSom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation korrupt SQL Server mdf-database og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.