Kaip automatiškai ištrinti „Outlook“ el. laiškus iš konkretaus siuntėjo po konkrečių dienų

Norėdami leisti „Outlook“ automatiškai ištrinti konkretaus siuntėjo el. laiškus tam tikromis dienomis, galite perskaityti šį straipsnį. Čia parodysime išsamius veiksmus, kaip naudoti VBA kodą, kad jį gautumėte.

Kai kalbama apie automatinį el. laiškų ištrynimą, pirmiausia galite pagalvoti apie „AutoArchive“ funkciją. Tačiau automatiškai archyvuojant el. laiškus jis negali filtruoti konkrečių siuntėjų. Todėl, pavyzdžiui, jei norite automatiškai ištrinti konkretaus siuntėjo el. laiškus po x dienų, turėtumėte naudoti kitas priemones, pvz., šią.

Automatiškai ištrinkite el. laiškus iš konkretaus siuntėjo po X dienų

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada suaktyvinkite Outlook VBA redaktorių pagal „Kaip paleisti VBA kodą „Outlook“.".
3. Tada nukopijuokite šį VBA kodą į projektą „ThisOutlookSession“.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
 
    Call DeleteEmailsFromSpecificSenderAfterXDays
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'From the specific sender
       If objMail.SenderEmailAddress = "bob_black@datanumen.com" Then
          'Set expiry time - after 5 days
          objMail.ExpiryTime = objMail.ReceivedTime + 4
          objMail.Save
       End If
    End If
End Sub

Private Sub DeleteEmailsFromSpecificSenderAfterXDays()
    Dim strFilter As String
    Dim objExpiredItems As Outlook.Items
    Dim objExpiredMail As Outlook.MailItem
 
    strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34)
 
    'Get all expired items
    Set objExpiredItems = objInboxItems.Restrict(strFilter)
 
    For i = objExpiredItems.Count To 1 Step -1
        If objExpiredItems(i).Class = olMail Then
           Set objExpiredMail = objExpiredItems(i)
 
           'Auto delete expired emails from the specific sender
           If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Then
              objExpiredMail.Delete
           End If
        End If
    Next
End Sub

4. Po to paleiskite „Outlook“ iš naujo, kad suaktyvintumėte šią makrokomandą.
5. Nuo tada kiekvieną kartą, kai į Inbox atkeliauja naujas el. laiškas iš konkretaus siuntėjo, jam bus priskiriamas konkretus galiojimo laikas – konkrečios dienos po jo gavimo.
6. Tada kiekvieną kartą paleidus „Outlook“, ji automatiškai patikrins ir ištrins pasibaigusio galiojimo el. laiškus iš konkretaus siuntėjo.

Atkurkite „Outlook“ duomenis po korupcijos

Galbūt susidūrėte su įvairiomis „Outlook“ klaidomis ir problemomis. Tada ar kada nors susidūrėte su „Outlook“ korupcija? Pavyzdžiui, jei dažnai išeinate iš „Outlook“ netinkamai, jūsų PST failas gali būti sugadintas. Paprastai tokiu atveju galite pasirinkti nuskaityti Outlook duomenis iš atsarginių kopijų. Arba galite naudoti pašto dėžutės taisymo įrankis arba patikimas išorinis įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

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