“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”