So löschen Sie die Outlook-E-Mails nach bestimmten Tagen automatisch von einem bestimmten Absender

Sie können diesen Artikel lesen, damit Outlook die E-Mails eines bestimmten Absenders an bestimmten Tagen automatisch löscht. Hier zeigen wir Ihnen die detaillierten Schritte zur Verwendung von VBA-Code, um ihn abzurufen.

Wenn es darum geht, E-Mails automatisch zu löschen, sollten Sie zunächst an die Funktion „AutoArchivieren“ denken. Es kann jedoch nicht die spezifischen Absender filtern, wenn E-Mails automatisch archiviert werden. Wenn Sie beispielsweise die E-Mails nach x Tagen automatisch von einem bestimmten Absender löschen möchten, sollten Sie die anderen Mittel verwenden, z. B. das folgende.

Automatisches Löschen der E-Mails von einem bestimmten Absender nach X Tagen

1. Gleich zu Beginn start Ihre Outlook-Anwendung.
2. Starten Sie dann den Outlook VBA-Editor gemäß „So führen Sie VBA-Code in Outlook aus".
3. Kopieren Sie als Nächstes den folgenden VBA-Code in das 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. Danach restart Outlook, um dieses Makro zu aktivieren.
5. Seitdem wird jedes Mal, wenn eine neue E-Mail des jeweiligen Absenders im Posteingang eintrifft, eine bestimmte Ablaufzeit zugewiesen - die bestimmten Tage nach dem Empfang.
6. Dann jedes Mal, wenn Sie start Outlook, Outlook überprüft und löscht die abgelaufenen E-Mails automatisch vom jeweiligen Absender.

Wiederherstellen von Outlook-Daten nach Beschädigung

Möglicherweise sind in Outlook verschiedene Fehler und Probleme aufgetreten. Haben Sie jemals mit Korruption in Outlook konfrontiert? Wenn Sie beispielsweise Outlook häufig nicht ordnungsgemäß beenden, wird Ihre PST-Datei häufig beschädigt. In einem solchen Fall können Sie im Allgemeinen auswählen, ob Outlook-Daten aus Sicherungen abgerufen werden sollen. Oder Sie können entweder verwenden Reparaturwerkzeug für den Posteingang oder ein zuverlässiges externes Werkzeug, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX