Получение данных из подпапки электронной почты с использованием VBA - PullRequest
Новая
       0

Получение данных из подпапки электронной почты с использованием VBA

0 голосов
/ 06 февраля 2020

Я пытаюсь получить данные из электронных писем, которые находятся в подпапке моего почтового ящика под названием «Запросы» в дополнительной учетной записи, которую я настроил на моем внешнем виде (все это с помощью VBA). Используя приведенный ниже код, я могу извлечь его из папки «Входящие», но не смог извлечь его из папки «Запросы». У кого-нибудь есть советы как вытащить из подпапки? 


 Dim ol As outlook.Application
    Dim ns As outlook.Namespace
    Dim fol As outlook.folder
    Dim i As Object
    Dim mi As outlook.MailItem        
    Dim n As Long
    Dim rh As Double
    Dim objOwner As outlook.Recipient

    Set ol = New outlook.Application
    Set ns = ol.GetNamespace("MAPI")
    Set fol = ns.GetDefaultFolder(olFolderInbox)
    Set objOwner = ns.CreateRecipient("email@email.com")
    objOwner.Resolve

    If objOwner.Resolved Then
        Set fol = ns.GetSharedDefaultFolder(objOwner, olFolderInbox)
    End If
...