Kako automatski izbrisati Outlook e-poštu od određenog pošiljatelja nakon određenih dana

Da biste dopustili da vaš Outlook automatski izbriše e-poštu od određenog pošiljatelja iz određenih dana, možete pročitati ovaj članak. Ovdje ćemo vam pokazati detaljne korake za korištenje VBA koda za njegovo dobivanje.

Kada je riječ o automatskom brisanju e-poruka, možete prvo pomisliti na značajku "Automatsko arhiviranje". Međutim, ne može filtrirati određene pošiljatelje prilikom automatskog arhiviranja e-pošte. Stoga, na primjer, ako želite automatski izbrisati e-poštu od određenog pošiljatelja nakon x dana, trebali biste upotrijebiti drugi način, kao što je sljedeći.

Automatsko brisanje e-pošte od određenog pošiljatelja nakon X dana

1. Na samom početku start svoju Outlook aplikaciju.
2. Zatim pokrenite Outlook VBA uređivač prema "Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim kopirajte sljedeći VBA kod u 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. Nakon toga, reztart Outlook za aktiviranje ove makronaredbe.
5. Od tada, svaki put kada nova e-pošta od određenog pošiljatelja stigne u Inbox, bit će joj dodijeljeno određeno vrijeme isteka – određeni dani nakon što je primljena.
6. Zatim, svaki put kad start Outlook, Outlook će automatski provjeriti i izbrisati istekle poruke e-pošte od određenog pošiljatelja.

Vratite Outlook podatke nakon oštećenja

Možda ste se susreli s raznim pogreškama i problemima u programu Outlook. Zatim, jeste li se ikada suočili s oštećenjem Outlooka? Na primjer, ako često neispravno izlazite iz Outlooka, vaša PST datoteka može se oštetiti. Općenito, u takvom slučaju možete odabrati dohvaćanje Outlook podataka iz sigurnosnih kopija. Ili možete koristiti alat za popravak inboxa ili pouzdan vanjski alat, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com