Hoe u automatisch de Outlook-e-mails van een specifieke afzender na specifieke dagen verwijdert

Om uw Outlook automatisch de e-mails van een specifieke afzender van specifieke dagen te laten verwijderen, kunt u dit artikel lezen. Hier laten we u de gedetailleerde stappen zien om VBA-code te gebruiken om het te krijgen.

Als het gaat om het automatisch verwijderen van e-mails, denkt u misschien eerst aan de functie "AutoArchiveren". Het kan echter niet de specifieke afzenders filteren bij het automatisch archiveren van e-mails. Daarom, als u bijvoorbeeld de e-mails van een specifieke afzender na x dagen automatisch wilt verwijderen, moet u de andere middelen gebruiken, zoals de volgende.

Verwijder automatisch de e-mails van een specifieke afzender na X dagen

1. Start allereerst de Outlook-applicatie.
2. Activeer vervolgens de Outlook VBA-editor volgens “Hoe u VBA-code in uw Outlook uitvoert'.
3. Kopieer vervolgens de volgende VBA-code naar het project "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. Start Outlook daarna opnieuw op om deze macro te activeren.
5. Sindsdien krijgt elke keer dat een nieuwe e-mail van de specifieke afzender in Inbox aankomt, een specifieke vervaltijd toegewezen - de specifieke dagen nadat deze is ontvangen.
6. Elke keer dat u Outlook start, controleert en verwijdert het programma automatisch de verlopen e-mails van de betreffende afzender.

Herstel Outlook-gegevens na corruptie

Misschien bent u in Outlook verschillende fouten en problemen tegengekomen. Bent u dan ooit geconfronteerd met Outlook-corruptie? Als u bijvoorbeeld vaak Outlook onjuist afsluit, raakt uw PST-bestand beschadigd. Over het algemeen kunt u er in dat geval voor kiezen om Outlook-gegevens uit back-ups op te halen. Of u kunt ofwel gebruiken inbox reparatieprogramma of een betrouwbare externe tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com