Kuinka poistaa Outlook-sähköpostit automaattisesti tietyltä lähettäjältä tiettyjen päivien jälkeen

Voit antaa Outlookin poistaa automaattisen tietyn lähettäjän sähköpostit tietyiltä päiviltä lukemalla tämän artikkelin. Tässä näytämme sinulle yksityiskohtaiset vaiheet VBA-koodin käyttämiseksi sen saamiseksi.

Kun on kyse sähköpostien automaattisesta poistamisesta, kannattaa ensin ajatella "AutoArchive" -ominaisuutta. Se ei kuitenkaan voi suodattaa tiettyjä lähettäjiä, kun arkistoidaan sähköposteja automaattisesti. Siksi, jos esimerkiksi haluat poistaa sähköpostit tietyltä lähettäjältä automaattisesti x päivän kuluttua, käytä muita tapoja, kuten seuraavaa.

Poista sähköpostit tietyltä lähettäjältä automaattisesti X päivän kuluttua

1. Käynnistä Outlook-sovelluksesi aivan aluksi.
2. Käynnistä sitten Outlook VBA -editori kohdan “Kuinka suorittaa VBA-koodi Outlookissa".
3. Kopioi seuraavaksi seuraava VBA-koodi “ThisOutlookSession” -projektiin.

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. Käynnistä sen jälkeen Outlook uudelleen aktivoidaksesi tämän makron.
5. Siitä lähtien joka kerta, kun uusi sähköposti tietyltä lähettäjältä saapuu Saapuneet-kansioon, sille määritetään tietty voimassaoloaika - tietyt päivät sen vastaanottamisen jälkeen.
6. Tämän jälkeen joka kerta, kun käynnistät Outlookin, se tarkistaa ja poistaa automaattisesti tietyn lähettäjän vanhentuneet sähköpostit.

Palauta Outlook-tiedot vioittumisen jälkeen

Ehkä olet kohdannut useita virheitä ja ongelmia Outlookissa. Sitten oletko koskaan kohdannut Outlookin korruptiota? Esimerkiksi, jos poistut usein Outlookista väärin, PST-tiedostosi yleensä vahingoittuu. Yleensä voit tällöin hakea Outlook-tiedot varmuuskopioista. Tai voit joko käyttää Saapuneet-kansion korjaustyökalu tai luotettava ulkoinen työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com