Не удается найти папку входящих сообщений по умолчанию после обновления до Office 365 - PullRequest
Новая
       5

Не удается найти папку входящих сообщений по умолчанию после обновления до Office 365

0 голосов
/ 17 сентября 2018

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

Мы объединили наши электронные письма с корпоративным выкупом и обновили наши учетные записи Microsoft до Office 365. ПомимоИсходя из этого, мой оригинальный код VBA должен работать, поскольку он не ищет какой-либо конкретной папки электронной почты.Все ссылки на Outlook проверены.

Я получаю «ничего» для olMi, и он выходит из оператора if. 

Function Report()

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim olFldr As MAPIFolder
Dim olItms As Items
Dim olMi As MailItem
Dim olEmail As Outlook.MailItem
Dim olAtt As Attachment
Dim MyPath As String
Dim wB As Workbook

Set olApp = GetObject(, "Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set olFldr = olNs.GetDefaultFolder(olFolderInbox)
Set olItms = olFldr.Items
Set olEmail = olApp.CreateItem(olMailItem)

Set rng = Nothing

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False

subj = "Scheduled Report - Instructor List"

Set olMi = olItms.Find("[Subject] = " & Chr(34) & subj & Chr(34))

''___> I get "OlMi = Nothing" here and it used to work
If Not (olMi Is Nothing) Then
    For Each olAtt In olMi.Attachments
        olAtt.SaveAsFile "C:\Users\Instructor\Desktop\temp\Instructor_Master.xls"
    Next olAtt
Else
End If
End Function
...