Kuidas automaatselt kustutada Outlooki meilid konkreetselt saatjalt pärast teatud päevi

Outlooki lahendused September 29, 2025

Lugege seda artiklit, et lubada Outlookil konkreetselt saatjalt teatud päevadel saadetud meilid automaatselt kustutada. Siin näitame teile üksikasjalikke samme VBA-koodi kasutamiseks selle hankimiseks.

Kui rääkida e-kirjade automaatsest kustutamisest, võite esmalt mõelda funktsioonile "Automaatne arhiveerimine". Siiski ei saa see meilide automaatsel arhiveerimisel konkreetseid saatjaid filtreerida. Seega, kui soovite näiteks x päeva pärast konkreetse saatja meilid automaatselt kustutada, peaksite kasutama muid vahendeid, näiteks järgmist.

Kustutage e-kirjad konkreetselt saatjalt automaatselt X päeva pärast

  1. Kohe alguses, start oma Outlooki rakendust.
  2. Seejärel käivitage Outlook VBA redaktor vastavalt "Kuidas Outlookis VBA-koodi käivitada".
  3. Järgmisena kopeerige järgmine VBA kood projekti "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

VBA kood – konkreetselt saatjalt saadetud meilide automaatne kustutamine pärast kindlaid päevi

  1. Pärast seda restart Outlook selle makro aktiveerimiseks.
  2. Sellest ajast alates määratakse iga kord, kui konkreetselt saatjalt uus e-kiri Inboxi saabub, sellele kindel aegumisaeg – konkreetsed päevad pärast selle saamist.Automaatselt lisatud aegumisaeg
  3. Siis iga kord, kui start Outlook, Outlook kontrollib ja kustutab automaatselt konkreetse saatja aegunud kirjad.Automaatselt kustutatud aegunud meilid konkreetselt saatjalt

Outlooki andmete taastamine pärast korruptsiooni

Võib-olla olete Outlookis esinenud mitmesuguseid vigu ja probleeme. Kas olete siis kunagi silmitsi seisnud Outlooki korruptsiooniga? Näiteks kui väljute sageli Outlookist valesti, kipub teie PST-fail kahjustama. Üldiselt saate sellisel juhul valida Outlooki andmete toomise varukoopiatest. Või võite kas kasutada postkasti parandamise tööriist või usaldusväärne välistööriist, nt DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql-i taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.