Kā automātiski pārdēvēt vai noņemt vecākus e-pastus ar tādiem pašiem priekšmetiem kā jaunie ienākošie

Daži cilvēki cer, ka programma Outlook var automātiski pārbaudīt vecāku e-pasta ziņojumu priekšmetus, kad tiek saņemti jauni e-pasta ziņojumi, un pārdēvēt vai izdzēst vecākos e-pastus, ja tiem ir tādi paši temati kā jaunajiem e-pasta ziņojumiem. Tas prasa izmantot Outlook VBA. Šis raksts palīdzēs jums to sasniegt.

Jums, iespējams, kādreiz esat saņēmis daudz e-pasta ziņojumu ar vienādiem tematiem. Vai jums ir mazliet apgrūtinoši tos identificēt un atšķirt e-pasta sarakstā? Vai arī jūs domājat, ka šie vecāki e-pasta ziņojumi jums ir tieši bezjēdzīgi? Ja tā, jums ir jāļauj programmai Outlook automātiski skenēt un pārbaudīt visus esošos e-pastus, kad tiek saņemti jauni e-pasta ziņojumi. Ja ir e-pasta ziņojumi, kuru tēmas ir tādas pašas kā jaunajām, programma Outlook var lūgt tos pārdēvēt vai izdzēst. Programma Outlook bez šaubām nenodrošina lietotājiem šāda veida funkcijas. Tādējādi jums ir jāizmanto VBA. Šeit mēs jums atklāsim detalizētus kodus un darbības.

Automātiski pārdēvējiet vai noņemiet vecākus e-pastus

1. Sākumā varat palaist programmu Outlook un doties uz cilni “Izstrādātājs”.
2. Tad jūs varēsiet atrast un noklikšķināt uz pogas “Visual Basic”.
3. Pēc tā nospiešanas jūs piekļūsit VBA redaktora logam. Tajā jums būs jāatver projekts “ThisOutlookSession”.
4. Pēc tam jums vajadzētu nokopēt un ielīmēt šādus 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. Pēc tam jums būs jāparaksta šis kods digitāli. Noklikšķiniet uz Rīki> Digitālais paraksts. Pēc tam uznirstošajā dialoglodziņā varat atlasīt vienu esošo sertifikātu. Ja nav gatavu sertifikātu, varat izmantot “Digitālie sertifikāti VBA projektiem”, lai izveidotu jaunu.
6. Pēc tam jūs varat iziet no pašreizējā loga un turpināt mainīt makro iestatījumus, atļaujot tikai digitāli parakstītas makro.
7. Galu galā varat restartēt programmu Outlook, lai aktivizētu jauno makro. Turpmāk, kad iesūtnē pienāks jauni e-pasti, programma Outlook automātiski pārbaudīs visus esošos e-pastus.

• Ja vecajiem e-pasta ziņojumiem ir tāds pats temats kā jaunajam, programma Outlook e-pasta tēmai automātiski pievienos “(Old)” sufiksu.
• Un, ja vecākie e-pasta ziņojumi Inbox ir glabājušies vairāk nekā 2 mēnešus, jūs saņemsit uzvedni ar jautājumu, vai vēlaties tos dzēst, piemēram, zemāk redzamo attēlu. Jūs varat izvēlēties “Jā” vai “Nē”, pamatojoties uz savām vajadzībām.

 Outlook faila korupcija liela izmēra dēļ

Dažiem cilvēkiem nav ieraduma regulāri dzēst vecus vienumus programmā Outlook. Tādējādi viņu Outlook fails būs liels, kas nav ieteicams. Tas ir tāpēc, ka pārāk liels Outlook fails ir daudz neaizsargātāks nekā mazs fails. Kad fails ir bojāts, iebūvētais labošanas rīks Scanpst.exe vairumā gadījumu būs bezspēcīgs. Jūsu unikālais līdzeklis varētu būt ievērojams un labi pārbaudīts. bojāts Outlook PST remonta rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts korumpēts SQL Server mdf datu bāze un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar