Sub WorkWithEmails(Item As Outlook.MailItem) Dim oLookItem As Object Dim oLookMail As MailItem Dim oLookFldr As Folder Dim oLookName As NameSpace Dim Ret_Val Set o