Kaip automatiškai pervardyti arba pašalinti senesnius el. laiškus su tomis pačiomis temomis kaip ir naujus gaunamus el.

Kai kurie žmonės tikisi, kad „Outlook“ gali automatiškai patikrinti senesnių el. laiškų temas, kai gaunami nauji el. laiškai, ir pervadinti arba ištrinti senesnius el. laiškus, jei jų temos yra tokios pačios kaip ir naujų el. laiškų. Tam reikia naudoti Outlook VBA. Šis straipsnis padės jums tai pasiekti.

Jūs tikriausiai kada nors gavote daug el. laiškų, kurių temos yra tokios pat. Ar jums šiek tiek sunku juos atpažinti ir atskirti el. pašto sąraše? O gal manote, kad tie senesni el. laiškai jums visiškai nenaudingi? Jei taip, turite leisti Outlook automatiškai nuskaityti ir patikrinti visus esamus el. laiškus, kai gaunami nauji el. laiškai. Kai yra el. laiškų, kurių temos yra tokios pat kaip ir naujų, „Outlook“ gali paklausti, ar juos pervardyti, ar ištrinti. Be jokios abejonės, „Outlook“ nesuteikia vartotojams tokios funkcijos. Taigi, jūs turite kreiptis į VBA. Čia mes jums pateiksime išsamius kodus ir operacijas.

Automatiškai pervardykite arba pašalinkite senesnius el

1. Pirmiausia galite paleisti „Outlook“ ir eiti į skirtuką „Kūrėjas“.
2. Tada galėsite rasti ir spustelėti mygtuką „Visual Basic“.
3. Paspaudę jį, pateksite į VBA redaktoriaus langą. Jame turėsite atidaryti projektą „ThisOutlookSession“.
4. Tada turėtumėte nukopijuoti ir įklijuoti šiuos VBA kodus.

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. Vėliau šį kodą turėsite pasirašyti skaitmeniniu būdu. Spustelėkite „Įrankiai“ > „Skaitmeninis parašas“. Tada iššokančiajame dialogo lange galite pasirinkti vieną esamą sertifikatą. Jei nėra paruošto sertifikato, galite naudoti „Skaitmeninius VBA projektų sertifikatus“, kad sukurtumėte naują.
6. Po to galite išeiti iš dabartinio lango ir keisti makrokomandos parametrus, leidžiančius tik skaitmeniniu parašu pasirašytas makrokomandas.
7. Galiausiai galite paleisti „Outlook“ iš naujo, kad suaktyvintumėte naują makrokomandą. Nuo šiol, kai į gautųjų aplanką ateis nauji el. laiškai, „Outlook“ automatiškai patikrins visus esamus el. laiškus.

• Jei senų el. laiškų tema yra tokia pati kaip ir naujų, „Outlook“ prie el. laiško temos automatiškai pridės priesagą „(Senas)“.
• Ir jei senesni el. laiškai buvo saugomi „Inbox“ ilgiau nei 2 mėnesius, gausite raginimą, kuriame bus klausiama, ar norite juos ištrinti, kaip parodyta paveikslėlyje žemiau. Galite pasirinkti „Taip“ arba „Ne“, atsižvelgdami į savo poreikius.

 „Outlook“ failo korupcija dėl didelio dydžio

Kai kurie žmonės neturi įpročio reguliariai trinti senų elementų programoje „Outlook“. Todėl jų „Outlook“ failai bus dideli, o tai visiškai nepatartina. Taip yra todėl, kad per didelis „Outlook“ failas yra daug pažeidžiamesnis nei mažas. Sugadinus failą, integruotas taisymo įrankis „Scanpst.exe“ daugeliu atvejų bus bejėgis. Jūsų unikali priemonė gali būti puiki ir gerai patikrinta. sugadintas Outlook PST taisymo įrankis, Kaip DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas remontas SQL Server mdf duomenų bazė ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com