Have you ever received the emails which do not have recipients? A great number of users are disturbed by such emails. And sometimes, Outlook’s native “Junk Email Options” is unable to block them. So, this article will help you get rid of them via VBA code.
Outlook has the inbuilt “anti-spam” feature – “Junk Email Options”, but multiple users complain that it doesn’t play a good role. For instance, it frequently blocks the genuine emails. Thus, many users prefer to disable the native function. Then, to block the spams, they will utilize the other means, such as rules.
However, Outlook rule isn’t mighty. For example, rule is unable to check whether an incoming email has recipients or not. Since the emails without recipients are spam normally, you want to block them via rule. But, in fact, rule is incompetent to this task. Therefore, here we will introduce you an effective way. It’s using VBA code to get it. If you don’t know to use VBA, just refer to the article – “How to Run VBA Code in Your Outlook“.
Auto Block or Delete the Incoming Emails without Recipients
- To begin with, launch your Outlook program.
- Then, tap on “Alt + F11” to access Outlook VBA editor.
- Next, in the new screen, put the following code into the “ThisOutlookSession” project.
Public WithEvents objInboxFolder As Outlook.Folder Public WithEvents objInboxItems As Outlook.Items Private Sub Application_Startup() Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox) Set objInboxItems = objInboxFolder.Items End Sub 'Process every new item arriving in Inbox Private Sub objInboxItems_ItemAdd(ByVal objItem As Object) Dim objMail As Outlook.MailItem Dim objJunkFolder As Outlook.Folder If TypeName(objItem) = "MailItem" Then Set objMail = objItem If objMail.Recipients.Count = 0 Then 'Move to Junk Email folder Set objJunkFolder = Application.Session.GetDefaultFolder(olFolderJunk) objMail.Move objJunkFolder 'objMail.Delete ==> delete it End If End If End Sub
- Subsequently, restart your Outlook to activate this mail.
- From now on, every time when an email arrives in Inbox, Outlook will auto check its recipients. If it doesn’t have recipients, it’ll be moved to Junk Email folder or directly deleted according to the code.
Do with Vexing Outlook Issues
It is likely that you are encountering a variety of issues in your Outlook from time to time. For instance, when you try to open a lot of items at once, Outlook is stuck in “not responding”. Or due to frequent improper shutdown, Outlook crashes and Outlook data file gets corrupted. In a nutshell, to some extents, Outlook problems are inevitable. Thus, you have to prepare for them. For example, to fix PST file as soon as it is damaged, you are better off keeping a robust and trustworthy repair tool nearby, such as DataNumen Outlook Repair.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupted mdf and outlook repair software products. For more information visit www.datanumen.com