To let your Outlook auto delete the emails from a specific sender from specific days, you can read this article. Here we will show you the detailed steps to use VBA code to get it.
When it comes to auto deleting emails, you may firstly think of the “AutoArchive” feature. However, it cannot filter the specific senders when auto archiving emails. Therefore, for instance, if you would like to auto delete the emails from a specific sender after x days, you should use the other means, such as the following one.
Auto Delete the Emails from a Specific Sender after X Days
- At the very outset, start your Outlook application.
- Then, trigger Outlook VBA editor according to “How to Run VBA Code in Your Outlook“.
- Next, copy the following VBA code into “ThisOutlookSession” project.
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
- After that, restart Outlook to activate this macro.
- Since then, every time when a new email from the specific sender arrives in Inbox, it will be assigned with a specific expiry time – the specific days after it is received.
- Then, every time you start Outlook, Outlook will auto check and delete the expired mails from the specific sender.
Restore Outlook Data after Corruption
Perhaps you have encountered a variety of errors and troubles in Outlook. Then, have you ever confronted Outlook corruption? For example, if you frequently exit Outlook improperly, your PST file tends to get damaged. Generally, in such a case, you can select to retrieve Outlook data from backups. Or you can either use inbox repair tool or a reliable external tool, such as DataNumen Outlook Repair.
Author Introduction:
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover sql and outlook repair software products. For more information visit www.datanumen.com