Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items
Я использовал код выше для доступа к основной папке входящих сообщений outlook, но как получить доступ к папкам входящих сообщений и их почте с помощью vba!