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

Outlooki andmete taastamine, Outlooki lahendused Võib 21 2018

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".
Avalik sündmustega objInboxItems kui Outlook.Items Privaatne alamrakendus_Startup() Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items Call DeleteEmailsFromSpecificSenderAfterXDays End Sub Private Sub objInboxItems_ItemAdd(ByVal Item As Object) Dim objIfMail Istem Type Outlook. = Üksus 'Alates konkreetne saatja Kui objMail.SenderEmailAddress = "bob_black@datanumen.com" Seejärel määrake aegumisaeg - 5 päeva pärast objMail.ExpiryTime = objMail.ReceivedTime + 4 objMail.Salvesta End If End If End Sub Private Sub DeleteEmailsFromSpecificSenderAfterXDays() Dim strFilter As String A Dim. MailItem strFilter = "[Aegumisaeg] <= " & Chr(34) & Now & Chr(34) 'Hangi kõik aegunud üksused Set objExpiredItems = objInboxItems.Restrict(strFilter) For i = objExpiredItems.Count To 1 ExpiredItems (Aegunud -1 Kui obj(piredItems) i).Class = olMail Seejärel määrake objExpiredMail = objExpiredItems(i) 'Aegunud meilide automaatne kustutamine konkreetselt saatjalt Kui objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Seejärel 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.