... Dim objFolder As Outlook.Folder Dim objNS As Outlook.Namespace Dim objMail ... As Outlook.MailItem Dim lCounter ... As Long Set objNS = Outlook.GetNamespace("MAPI") Set ... в Tools->References) Microsoft Outlook 16.0 Object Library. Но ...