Kako samodejno izbrisati e-poštna sporočila v Outlooku od določenega pošiljatelja po določenih dneh

Če želite, da vaš Outlook samodejno izbriše e-pošto določenega pošiljatelja iz določenih dni, lahko preberete ta članek. Tukaj vam bomo pokazali podrobne korake za uporabo kode VBA, da jo dobite.

Ko gre za samodejno brisanje e-poštnih sporočil, si najprej omislite funkcijo »AutoArchive«. Ne more pa filtrirati določenih pošiljateljev pri samodejnem arhiviranju e-poštnih sporočil. Če želite na primer po x dneh samodejno izbrisati e-poštna sporočila določenega pošiljatelja, uporabite druga sredstva, na primer naslednje.

Samodejno izbriši e-pošto določenega pošiljatelja po X dneh

1. Na samem začetku zaženite aplikacijo Outlook.
2. Nato sprožite urejevalnik Outlook VBA v skladu z “Kako zagnati kodo VBA v Outlooku".
3. Nato kopirajte naslednjo kodo VBA v 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. Po tem znova zaženite Outlook, da aktivirate ta makro.
5. Od takrat bo vsakič, ko bo novo e-poštno sporočilo določenega pošiljatelja prispelo v mapo Prejeto, zanj dodeljen določen čas poteka - določeni dnevi po prejemu.
6. Nato bo Outlook vsakič, ko zaženete Outlook, samodejno preveril in izbrisal potekla sporočila določenega pošiljatelja.

Obnovite podatke Outlook po korupciji

Morda ste v programu Outlook naleteli na različne napake in težave. Potem ste se že kdaj soočili s korupcijo v Outlooku? Če na primer pogosto nepravilno zapustite Outlook, se datoteka PST običajno poškoduje. Običajno lahko v takem primeru iz varnostnih kopij pridobite Outlookove podatke. Lahko pa uporabite bodisi orodje za popravilo nabiralnika ali zanesljivo zunanje orodje, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnoviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com