Sub Test()
    Dim myApp As Outlook.Application
    Dim myNS As Outlook.NameSpace
    Dim myTasks As Outlook.MAPIFolder
    Dim myTasks1 As Outlook.MAPIFolder
    
    Set myApp = CreateObject("Outlook.Application")
    Set myNS = myApp.GetNamespace("MAPI")
    
    Set myTasks = myNS.Folders("Почтовый ящик - Тест").Folders("Входящие")    
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы