Some users hope, if an incoming email is still not read since it has gotten into the mailbox for some time, Outlook can auto forward it to another email account. This article will show how to realize this.
Sometimes, when you are too busy, you may miss some important emails. Hence, perhaps you have configured and connected to another email account on your smartphone. In this case, you may hope that Outlook can auto forward the new incoming email to this account if it is still in unread status after some time. Now, in the followings, we will show you how to achieve it.
Auto Forward an Incoming Email If It Is Not Read after Some Time
- At the very outset, start your Outlook application.
- Then, in the main Outlook window, you ought to press “Alt + F11” keys to get access to Outlook VBA editor.
- Next, in the displaying “Microsoft Visual Basic for Applications” window, you have to find and open the “ThisOutlookSession” project.
- Subsequently, you need to copy and paste the following VBA code into such a project.
Private WithEvents objInbox As Outlook.Folder Private WithEvents objItems As Outlook.Items Private Sub Application_Startup() Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox) Set objItems = objInbox.Items End Sub 'Occurs when the new mail arrives in your Inbox Private Sub objItems_ItemAdd(ByVal Item As Object) Dim objMail As Outlook.MailItem Dim objForward As Outlook.MailItem If TypeOf Item Is MailItem Then Set objMail = Item If objMail.Importance = olImportanceHigh Then 'If the incoming email is still unread after 3 minutes, forward it Wait (180) If objMail.Unread = True Then Set objForward = objMail.Forward objForward.Recipients.Add ("firstname.lastname@example.org") objForward.Send End If End If End If End Sub 'Delay seconds Function Wait(nSeconds As Integer) As Boolean Dim dCurrentTime As Date dCurrentTime = Now Do Until DateAdd("s", nSeconds, dCurrentTime) <= Now DoEvents Loop End Function
- After that, you ought to sign this code. Hit the “Tools” button in the menu bar. Then choose “Digital Signature” option. In the newly popup dialog box, follow the onscreen wizard to complete it.
- Later, you need to change macro settings to permit digitally signed macros.
- Finally, you should restart your Outlook application to activate this macro.
- From now on, every time when a new email arrives in the inbox, after several minutes, Outlook will auto check if the mail is still unread. If it is, Outlook will auto forward it to the predefined email address.
Retrieve Corrupt PST Data
Although Outlook is proficient in managing emails, contacts as well as schedules, it still cannot get rid of damage completely. Various factors could lead to Outlook corruption, such as abrupt shutdown and virus attacks, etc. Actually, in this case, Outlook inbox repair tool cannot be up to recovering PST data. Hence, taking aid of an external tool, such as DataNumen Outlook Repair, may be the unique way.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including fix sql and outlook repair software products. For more information visit www.datanumen.com