Код VBA не работает должным образом на удаленном рабочем столе - PullRequest
Новая
       19

Код VBA не работает должным образом на удаленном рабочем столе

0 голосов
/ 27 мая 2019

У меня есть некоторый код Excel VBA, который выполняет поиск в общей подпапке Outlook и извлекает данные или ответы на выбранные электронные письма.Проблема возникает, когда код пытается назначить подпапку Outlook для переменной.Каким-то образом Excel или код не могут распознать подпапки при запуске на удаленном рабочем столе.

Все работает отлично, если код запускается на локальных компьютерах (под управлением Windows 10), но не работает при запуске на удаленном рабочем столе (под управлением Windows 7).).Все компьютеры работают под управлением Office 2016.

Я вошел в каждую строку кода и определил, что этот код способен считывать учетную запись электронной почты, папку «Входящие», но не удается прочитать подпапки. 

Sub DataExtract_Template()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim objOwner As Outlook.Recipient
Dim topOlFolder As Outlook.MAPIFolder
Dim attach As Outlook.Attachment


Dim fdr_Unprocessed As Outlook.MAPIFolder
Dim fdr_Pending As Outlook.MAPIFolder
Dim fdr_Processed As Outlook.MAPIFolder


Set myNameSpace = Outlook.Application.GetNamespace("mapi")    
Set objOwner = myNameSpace.CreateRecipient("xxxxxx@xxx.com")
    objOwner.Resolve

If objOwner.Resolved Then

Set topOlFolder = myNameSpace.GetSharedDefaultFolder(objOwner, olFolderInbox)

End If

'this is where the code errors out as it can't seem to find the subfolders,  but it can recognize the shared folders inbox

Set fdr_Unprocessed = topOlFolder.Folders("RMA - Unprocessed") 
Set fdr_Pending = topOlFolder.Folders("RMA - Pending")
Set fdr_Processed = topOlFolder.Folders("RMA - Processed")

Сообщение об ошибке, которое я получаю, когда код пытается установить подпапки для переменной:

Ошибка времени выполнения '-2147221233 (8004010f)': попытка выполнить операцию не удалась.Не удалось найти объект.

Пожалуйста, дайте мне знать, если вам нужна какая-либо другая информация.

...