Ako automaticky mazať e-maily z Outlooku od konkrétneho odosielateľa po konkrétnych dňoch

Ak chcete, aby váš Outlook automaticky mazal e-maily od konkrétneho odosielateľa z konkrétnych dní, môžete si prečítať tento článok. Tu vám ukážeme podrobné kroky na získanie kódu VBA.

Pokiaľ ide o automatické mazanie e-mailov, najskôr by vás mohla napadnúť funkcia „Automatická archivácia“. Pri automatickej archivácii e-mailov však nemôže filtrovať konkrétnych odosielateľov. Preto napríklad ak chcete automaticky mazať e-maily od konkrétneho odosielateľa po x dňoch, mali by ste použiť iné prostriedky, napríklad nasledujúci.

Automatické mazanie e-mailov od konkrétneho odosielateľa po X dňoch

1. Na samom začiatku spustite aplikáciu Outlook.
2. Potom spustite editor Outlook VBA podľa “Ako spustiť kód VBA v programe Outlook".
3. Ďalej skopírujte nasledujúci kód VBA do projektu „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. Potom reštartujte Outlook, aby ste toto makro aktivovali.
5. Odvtedy bude vždy, keď nový e-mail od konkrétneho odosielateľa dorazí do Doručenej pošty, priradený konkrétny čas vypršania platnosti - konkrétne dni po prijatí.
6. Potom pri každom spustení programu Outlook automaticky skontroluje a odstráni e-maily s uplynutou platnosťou od konkrétneho odosielateľa.

Obnovte údaje programu Outlook po poškodení

Možno ste sa v programe Outlook stretli s rôznymi chybami a problémami. Potom ste už niekedy čelili korupcii v Outlooku? Napríklad ak často nesprávne ukončíte program Outlook, váš súbor PST má tendenciu sa poškodiť. Spravidla v takom prípade môžete zvoliť načítanie údajov Outlooku zo záloh. Alebo môžete použiť nástroj na opravu doručenej pošty alebo spoľahlivý externý nástroj, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S