Hogyan lehet automatikusan átnevezni vagy eltávolítani a régebbi e-maileket, amelyek tárgya megegyezik az új bejövő e-mailekkel

Vannak, akik azt remélik, hogy az Outlook automatikusan ellenőrzi a régebbi e-mailek tárgyát, amikor új e-mailek érkezik, és átnevezi vagy törölheti a régebbi e-maileket, ha azok tárgya megegyezik az új e-mailekkel. Ehhez az Outlook VBA használatára van szükség. Ez a cikk segít elérni ezt.

Biztosan sok olyan e-mailt kapott már, amelynek tárgya ugyanaz. Kicsit gondot okoz Önnek azonosítani és megkülönböztetni őket az e-mail listában? Vagy úgy gondolja, hogy azok a régebbi e-mailek teljesen haszontalanok az Ön számára? Ha igen, akkor az Outlook automatikusan átvizsgálja és ellenőrzi az összes meglévő e-mailt, amikor új e-mailek érkezik. Ha vannak olyan e-mailek, amelyek tárgya megegyezik az újéval, az Outlook megkérdezheti, hogy átnevezze vagy törölje őket. Kétségtelen, hogy az Outlook nem biztosítja a felhasználók számára ezt a fajta szolgáltatást. Ezért a VBA-hoz kell folyamodnia. Itt bemutatjuk Önnek a részletes kódokat és műveleteket.

A régebbi e-mailek automatikus átnevezése vagy eltávolítása

1. Először indítsa el az Outlookot, és lépjen a „Fejlesztő” fülre.
2. Ezután megtalálhatja és rákattinthat a „Visual Basic” gombra.
3. Miután megütötte, eléri a VBA szerkesztő ablakát. Ebben meg kell nyitnia a „ThisOutlookSession” projektet.
4. Ezután másolja és illessze be a következő VBA kódokat.

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

5. Ezt követően digitálisan alá kell írnia ezt a kódot. Kattintson az „Eszközök” > „Digitális aláírás” elemre. Ezután a felugró párbeszédpanelen kiválaszthat egy meglévő tanúsítványt. Ha nincs kész tanúsítvány, akkor a „Digitális tanúsítványok VBA projektekhez” segítségével hozhat létre újat.
6. Ezt követően kiléphet az aktuális ablakból, és módosíthatja a makróbeállításokat, csak a digitálisan aláírt makrókat engedélyezve.
7. Végül újraindíthatja az Outlookot az új makró aktiválásához. Mostantól, amikor új e-mailek érkeznek a Beérkezett üzenetek mappába, az Outlook automatikusan ellenőrzi az összes meglévő e-mailt.

• Ha a régi e-mailek tárgya ugyanaz, mint az újoké, az Outlook automatikusan hozzáadja a „(Régi)” utótagot az e-mail tárgyához.
• És ha a régebbi e-maileket több mint 2 hónapja tárolta az Inboxban, akkor kap egy felszólítást, amely megkérdezi, hogy szeretné-e törölni őket, mint az alábbi képen. Választhat „Igen” vagy „Nem” saját igényei alapján.

 Az Outlook fájl korrupciója a nagy méret miatt

Vannak, akik nem szokták rendszeresen törölni a régi elemeket az Outlookban. Így az Outlook-fájljaik nagy méretűek lesznek, ami kifejezetten nem ajánlott. Ez azért van, mert egy túlméretezett Outlook-fájl sokkal sebezhetőbb, mint egy kis méretű fájl. Ha a fájl megsérül, a beépített javítóeszköz, a Scanpst.exe, a legtöbb esetben tehetetlen lesz. Az Ön egyedi megoldása figyelemre méltó és jól bevált megoldás lehet. sérült Outlook PST javítóeszköz, mint DataNumen Outlook Repair.

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 korrupt javítás SQL Server mdf adatbázis és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com