“Private Sub Application_Quit() FileCompletedInboxMessages End Sub Sub FileCompletedInboxMessages() Dim myOlApp As New Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.MAPIFolder Dim myDestFolder As Outlook.MAPIFolder Dim myItems As Outlook.Items Dim myItem As Object Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) Set myItems = myInbox.Items Set myDestFolder = myInbox.Folders("InboxPro") ' User cleared the follow-up flag Set myItem = myItems.Find("[FLAGSTATUS] = 0") While TypeName(myItem) <> "Nothing" myItem.Move myDestFolder Set myItem = myItems.FindNext Wend   ' User marked as completed Set myItem = myItems.Find("[FLAGSTATUS] = 1") While TypeName(myItem) <> "Nothing" myItem.Move myDestFolder Set myItem = myItems.FindNext Wend End Sub”